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Neues Vorwort zur Digitalisierung 


Es hat lange gedauert! Aber nun hat sich Thomas Werner die viele 
Arbeit gemacht, den größten Teil meiner Bücher nach, zum Teil über 
dreißig, Jahren in interaktiver PDF-Form zu digitalisieren und als 
Public Domain kostenlos online zur Verfügung zu stellen. Nachdem 
meine Bücher einen langen Dornröschenschlaf hinter sich haben, 
sollen sie und das immense darin festgeschriebene Wissen jetzt wie¬ 
der zum nützlichen Leben erweckt werden : 0 ) 

Meiner Ansicht nach ist die objektorientierte Programmierung nicht 
für die Massenanwendung geeignet. Nach meiner Berechnung sind 
nur ca. 15 Prozent der Bevölkerung in der Lage, mit der OOP sinn¬ 
volle Erfolge zu erzielen. Um aber "massenfähig" zu sein, muss eine 
Programmiersprache mindestens 80 Prozent der Bevölkerung errei¬ 
chen, damit sich Lehrer und Schüler auch außerhalb von IT- 
Leistungskursen über die Softwareentwicklung so verständigen kön¬ 
nen, dass der eine - vermittelbar und auch prüfbar - wenigstens 
"einigermaßen" versteht, was der andere meint. Andererseits "reißt 
unweigerlich der Faden" zwischen Ausbildern und Lernenden. Daher 
ist es auch kein Wunder, dass sich die prozeduralen und damit auch 
leicht anwendbaren Basic-Programmiersprachen, wie z.B. das sehr 
populäre GFA-Basic, einer gewissen Renaissance erfreuen. 

Diese Tendenz werde ich natürlich als ehemals populärer Bestseller- 
Autor nach all meinen Möglichkeiten tatkräftig unterstützen. Ich 
verfüge über mehr als 4000 Seiten umfassenden, ausführlichen und 
auch unter den wachsamen Augen der Öffentlichkeit profund ge¬ 
prüften Software-Wissens. Dieses Wissen ist auch in der heutigen 
Zeit absolut nicht überflüssig und veraltet, sondern bildet auch heute 
noch die Basis für algorithmisches Grundlagenwissen. 

Aber damit nicht genug: ich habe zudem beschlossen, eine neue Pro¬ 
grammiersprache namens "QSIX©" zu entwickeln. Sie wird sich in 
vielen Punkten an einfachem Standard-Basic anlehnen. Auf der 
weltweit überall auf allen Betriebssystemen und in jedem Standard¬ 
browser verfügbaren - und damit 100% cross-kompatiblen - Platt¬ 
form von HTMLs/Canvas wird "QS!X©" als Open Source-Version 
(ähnlich LINUX) verfügbar sein. Nähere Informationen dazu finden 
Sie unter: 

http;//www .Iitzkendorf.net/invitation info d.pdf 




Damit ist auch der "Klasse für die Masse"-Philosophie von Frank 
Ostrowski (dem GFA-Basic-Vater) Rechnung getragen. Wenn denn 
alles so funktioniert, wie ich es mir vorstelle, wird die weise, sanfte 
und erzfreundlich geduldige und bescheidene Denkart von Frank 
Ostrowski auch Jahre nach seinem (viel zu frühen) Ableben noch 
weltweit merkliche Wirkung tragen! Er bildet dann verdientermaßen 
- zumindest im IT-Business - die philosophische Grundlage für eine 
Art "Weltsprache"! Das würde ihm sicher sehr gefallen! 

In treuem Gedenken an einen wirklich großen Mann, mit dem ich 
das Vergnügen hatte, teil- und zeitweise recht eng und vertraut zu¬ 
sammen zu arbeiten und dem mit "QSiX©" auch ein digitales - und 
verdientes - Denkmal gesetzt wird! 

Uwe Litzkendorf 
Hildesheim, im Mai 2020 
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Wichtiger Hinweis: 

Die in diesem Buch wiedergegebenen Schaltungen, Verfahren und Pro¬ 
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schließlich für Amateur- und Lehrzwecke bestimmt und dürfen nicht gewerb¬ 
lich genutzt werden. 
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Vorwort 


Die Autoren anderer GFA-BASIC-BQcher können es sicher bestätigen: 
Es ist sehr, sehr schwer, mit einem Programmier-Virtuosen der Klasse 
eines Frank Ostrowski (der Vater des GFA-BASIC) Schritt zu halten. 

In der Entwicklungszeit zu diesem Buch hat mich ab und zu das Be¬ 
dürfnis befallen, in meinen Computer zu beißen, dem lieben Frank 
einen Beschwerdebrief bezüglich seiner Arbeitswut zu schreiben und 
das GFA-BASIC einfach GFA-BASIC sein zu lassen. 

Es ist einfach eine so gewaltige Menge an Befehlen und damit ver¬ 
bundenen Gags und Tricks, daß mir manchmal ganz schwindelig 
wurde. Hauptsächlich in der Endphase, wenn neben der Arbeit auch 
noch hinzukommt, daß ich wochenlang (ja - wochenlang) nur mit 4 
bis 6 Stunden Schlaf pro Tag auskommen mußte. Der Markt drückt, 
der Verlag drückt, die Konkurrenz drückt, die Händler drücken, das 
kleiner werdende Bank-Konto drückt, der eigene Qualitäts-Anspruch 
drückt und die liebe "family* drückt auch noch - also Druck von allen 
Seiten. 

Und dann der Jubelschrei: "Ich hab’s geschafft!" 

Neben der Möglichkeit, durch diesen "Job" Geld zu verdienen (völlig 
legitimes Bedürfnis, denn: "money makes the world go round") spielt 
es für mich eine sehr große Rolle, daß es ein gutes Buch wird (in der 
Hoffnung auf Ruhm und Ehre, natürlich). Als Maßstab habe ich mir 
immer vor Augen gehalten, was ich selbst von einem Buch erwarte, 
um es als gut bezeichnen zu können. Das wichtigste: es muß "gut in 
der Hand liegen". Darunter verstehe ich ein gutes Gefühl, wenn man 
darin herumblättert; den Eindruck von Vollständigkeit, Qualtität, guter 
Struktur, Inhalt usw. 

Nun gut - ich habe mein Bestes getan, um diese Bedingungen zu er¬ 
füllen. Daß dieses Buch auch Ihnen "gut in der Hand liegt", bleibt mir 
nur zu hoffen, aber ich habe ein "gutes Gefühl"! 

Bei dieser Gelegenheit möchte ich die enormen Geduldsleistungen 
meiner Frau Liane und - vor allem - meiner 3jährigen Tochter Svenja 
hervorheben. Ich werde in nächster Zeit viel damit zu tun haben, ihre 
Entbehrungen nach besten Kräften wieder auszugleichen. 



Sie finden in diesem Buch eine umfassende Beschreibung aller BASIC- 
Befehle und -Funktionen (V2.xx/V3.0), eine Vielzahl kleiner Pro¬ 
gramme und Prozeduren sowie nützliche Tabellen und Grafiken. Da 
ich der Meinung bin, daß man GFA-BASIC den Status eines eigen¬ 
ständigen Entwicklungs-Systems nicht mehr streitig machen kann, 
habe ich mich entschlossen, auch alle System-Funktionen (BIOS, 
XBIOS, GEMDOS), sowie ST-interne Adressen (System-Variablen) 
und andere spezifische Eigenschaften des Atari ST (z.B. Disketten- 
Aufbau, Interrupts, Exceptions etc.) zu beschreiben. Es liegt in mei¬ 
nem Interesse, daß Sie bei der Entwicklung eines Programms ein weit¬ 
gehend vollständiges Buch zur Verfügung haben und nicht ständig in 
vier, fünf oder noch mehr verschiedenen Büchern nachschlagen zu 
müssen. Ein vollständiges BASIC verdient ein vollständiges Buch - 
ohne wenn und aber. 

Weiterhin enthält diese Auflage einen umfangreichen Einsteigerteil 
sowie die Beschreibung des GFA-BASIC-Editors und des V2.xx-Com- 
pilers. Die im Anhang aufgeführten Listen und Tabellen sollen Ihnen 
helfen, in kurzer Zeit wichtige Informationen (bzw. deren Seitennum¬ 
mer) zu finden, ohne - lästigerweise - dauernd blättern zu müssen. 
Bei manchen Tabellen habe ich es - um den Zusammenhang zu erhal¬ 
ten - für besser befunden, diese in die Befehls- bzw. Funktionsbe¬ 
schreibung einzubinden. In solchen Fällen steht Ihnen ein umfassendes 
Stichwort- Verzeichnis zur Verfügung, anhand dessen Sie (quasi asso¬ 
ziativ) die entsprechenden Textstellen ausfindig machen können. Der 
Vollständigkeit halber sei hier noch die Liste aller im Buch beschrie¬ 
benen Prozeduren erwähnt. Bei den meisten dieser Prozeduren habe 
ich - so weit wie möglich - streng darauf geachtet, daß sie als BASIC- 
Befehlserweiterungen allgemein einsetzbar sind und tatsächlich eine 
einfachere und komfortablere Programmierung ermöglichen. 

Bei der Programmierung dieser Prozeduren habe ich fast ausschließlich 
die GFA-BASIC-V2.0/V2.02-Versionen verwendet, da eine zu große 
Anpassung an die V3.0-Version für meine Begriffe noch nicht ratsam 
ist. Der V3.0-Compiler wird erst in ca. einem halben Jahr einsatzbe¬ 
reit sein, und bis die meisten von Ihnen ihn dann zu Haus im Regal 
(bzw. in der Diskettenbox) haben werden, wird mindestens ein wei¬ 
teres halbes Jahr vergehen. Solange wollte ich gewährleisten, daß Pro¬ 
gramme, die diese Prozeduren einsetzen, auch noch mit dem V2.xx- 
Compiler compilierbar sind. Eine spätere Anpassung und Erweiterung 
der Prozeduren an den V3.0-Compiler dürfte den meisten von Ihnen 
dann keine größere Mühe bedeuten. Dennoch sind in einigen Proze¬ 
duren schon mögliche Änderungen und Erweiterungen in Richtung 
V3.0 angedeutet. Die in diesem Buch aufgeführten Prozeduren und 



Beispiele (Beispiele erst ab ca. sechs Zeilen), sowie das RAMKART- 
Programm finden Sie auf der Diskette im Buch, wodurch sie für Sie 
sofort einsetzbar sind. Hierbei wurde auf eine Programm-Kommen¬ 
tierung fast vollständig verzichtet, um alles auf einer einseitigen Dis¬ 
kette unterbringen zu können. 

Ich hoffe, daß dadurch den unterschiedlichen Ansprüchen Genüge 
getan ist. 

Nach aller Mühe, die jedes Lernen neuer Inhalte mit sich bringt, wer¬ 
den Sie sicher nach eingehender Lektüre dieses Buches in der Lage 
sein, für fast alle programmtechnischen Probleme, die Ihnen begegnen 
werden, eine kompakte Lösung zu finden. 

Mein zweites Werk "Der Data Becker Führer GFA-BASIC" bildet 
hierzu eine nützliche Erweiterung, die Ihnen eine kompakte Beschrei¬ 
bung aller GFA-BASIC-Befehle (inkl. V3.0) im praktischen Taschen¬ 
format bietet. 

Ich wünsche Ihnen zu Ihrer Programmierarbeit von Herzen viel Er¬ 
folg, Ausdauer und allzeit "gut Klick". 


Uwe Litzkendorf 


Hildesheim, den 4. August 1988 
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1. Zu diesem Buch 


Das Anliegen dieses Buches ist es, die ca. 450 Befehle und Funktio¬ 
nen, die nunmehr vom GFA-V3.0-Interpreter zur Verfügung gestellt 
werden, nach Schwerpunkten zu ordnen, um so das Auffinden der 
gesuchten Befehlsbeschreibungen nach problemorientierten Gesichts¬ 
punkten zu ermöglichen bzw. zu erleichtern. Um Ihnen als Leser eine 
einheitliche Darstellung zu bieten, habe ich mich an folgende Kon¬ 
ventionen gehalten: 

Jede Befehls- bzw. Funktionsbeschreibung beginnt mit einer Kopf- 
zeile, die deutlich sichtbar den Befehlsnamen, seine mögliche Abkür¬ 
zung und eine (sehr knappe) Kurzbeschreibung enthält. 

Daran anschließend finden Sie die Syntax, in welcher der Befehl/die 
Funktion einzusetzen ist. Auf die Beschreibung des Befehls/der Funk¬ 
tion folgt dann gegebenenfalls ein Beispiel oder ein Hinweis auf Bei¬ 
spiele an anderer Stelle. 

Innerhalb des Textes wurden für bestimmte Situationen, Vorgaben und 
Optionen jeweils einheitliche Markierungen benutzt. 

< > Wird bei einer Befehlsbeschreibung auf bestimmte Tasten ver¬ 
wiesen, wird ihr Name zur besseren Kenntlichmachung in spit¬ 
zen Klammern angegeben (z.B. <Shift>, <A>, <Return> oder 
<Undo>). 

[ ] Bei Befehlen, deren Syntax variabel ist, wird ein optionaler Be¬ 
fehlsteil in eckigen Klammern angegeben. Dies bedeutet, daß die 
Angabe (z.B. oder [,Länge]) nur dann im Befehl angegeben 
werden muß, wenn die damit verbundene Option genutzt werden 
soll. 

{ ) Viele GFA-BASIC-Befehle können als Abkürzung angegeben 
werden. Der Interpreter erweitert diese dann selbständig auf die 
richtige Form. Sollte zu einem Befehl eine Kurzschreibweise 
exisitieren, ist diese in der Titelzeile und in der Quick-Referenz 
innerhalb von geschweiften Klammern angegeben (z.B. { SYS } 
oder { RET }). Diese geschweiften Klammern werden auch von 
einigen BASIC-Befehlen (Speicherzugriffe wie CHAR{}, BYTE{} 
etc.) verwendet. Die Verwechslungsgefahr mit den hier gemein¬ 
ten Abkürzungsklammern ist jedoch gering. 
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Soll eine Folge von Anweisungen innerhalb von Befehlen ver¬ 
deutlicht werden, geschieht dies anhand einer Punktlinie (z.B. 
FOR...NEXT). 

« Bei einigen AES-Funktionen sind Rückgabevariablen anzugeben. 
Um diese eindeutig erkennbar zu machen, ist den entsprechen¬ 
den Variablennamen ein Doppel-Linkspfeil vorangestellt. Diese 
Pfeile gehören nicht zur Syntax und sind beim Funktionsaufruf 
wegzulassen (siehe Kapitel 16: "AES-Bibliothek"). 

» Vereinzelt sind Rückgabe-String-Variablen vorzubereiten. D.h., 
in der Variablen wird bei Funktionsaufruf eine Vorgabe erwar¬ 
tet (z.B. File-Namen) und die Rückgabe erfolgt dann in dersel¬ 
ben Variablen. In diesem Fall ist dem Variablennamen zusätzlich 
ein Doppel-Rechtspfeil nachgestellt (z.B. «Rück$»). Auch 
diese Pfeile sind zur Verdeutlichung gedacht und gehören nicht 
zur Funktionssyntax. 

C-Text 

Bei vielen AES-Zugriffen, bzw. innerhalb der Objektstrukturen 
werden bei Textangaben Strings mit einem abschließenden Null- 
Byte (C-Konvention) erwartet. Für diese Art von Strings steht 
das Synonym "C-Text" (siehe CHAR{}). 

Grundsätzlich sind in der Syntax-Zeile alle Befehlsnamen in 

Großbuchstaben, alle Variablen, Parameter und Strings in normaler 

Schreibweise dargestellt (z.B. OPENW Handle). 

Bei den Parameterangaben wurden weitgehend einheitliche Bezeich¬ 
nungen verwendet: 


Adresse 

Objektbaumadresse/sonst. Adressen (Adressen werden grundsätzlich als 
32-Bit-Integer angegeben). 


Anz 

Anzahl 


Arg 

Funktionsargument 
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Feld 

Beliebige Feldbezeichnung. 


Back=/Var= 

Rückgabedaten bei Funktionen. 


Expr/Expr$ 

Numerischer/alphanumerischer Ausdruck. 


Handle 

GEM-Window-Handle/-Applikations-Handle. 


Index 

Index von Feldelementen. 


Kanal 

Datei-Identifikator. 


Nummer 

GFA-Window-Nummer. 


Ob jekt 

Nummer (Index) eines AES-Objektes. 


Text 

Beliebige Zeichenkette. 


Var/Var$ 

Beliebiger Variablenname (nicht mit VAR verwechseln!). 


Xpos/Ypos 

Bildschirmkoordinaten. 
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Bei Dateiname, Programmname und Ordner ist davon auszugehen, daß 
ein evtl, erforderlicher Suchpfad in den Namen einzubinden ist. 

Unter dem Begriff Ausdruck (s.o. Expr) wird hier eine beliebige Zu¬ 
sammenstellung von Konstanten, Formeln, Texten, Funktionen und 
Variablen verstanden, die zusammen ein Ergebnis liefern. 

z.B. numerischer Ausdruck; 

AX=BX+((234'2A.7)*12.95*CX)‘2.1317+aFunc(AbcX) 

Z.B. alphanumerischer Ausdruck: 

A$="Text"+STR$(AX*BX)+SPACE$(10)+aFunc$(Abc$)+B$ 


In den Beschreibungen von Funktionen wird nicht explizit angegeben, 
daß die Ergebnisse aller (auch selbstdefinierter) Funktionen auf ver¬ 
schiedene Weise ausgewertet werden können, z.B. Zuweisung; 


VarX=aFunc 

VarX=FRE(0) 


Selbstdefinierte Funktion 
BAS IC-Funktion (z.B. FREO) 


z.B. Ausgabe: 


PRINT aFunc -> 
PRINT FRE(O) -> 


Selbstdefinierte Funktion 
BASIC-Funktion (z.B. FREO) 


Z.B. Abfrage: 


IF aFunc=X 
IF FRE(0)=X 


Selbstdefinierte Funktion 
BASIC-Funktion (z.B. FREO) 


Z.B. Dummy-Aufruf: 

VOID aFunc -> Selbstdefinierte Funktion 
VOID FRE(O) -> BASIC-Funktion (z.B. FREO) 


In der Syntaxzeile von Funktionen wird in diesem Buch zur Verdeut¬ 
lichung die Zuweisungsvariante (Var=Funktion()) verwendet. Funkti¬ 
onsaufrufe stehen immer stellvertretend für einen Wert oder String, 
den diese Funktion liefert. Sie können deshalb wie jeder beliebige 
Wert oder String verwendet und eingesetzt werden. Alle Funktionen 
sind im Anhang unter "Alphabetische Befehlsliste" mit einem vorange¬ 
stelltem (f) gekennzeichnet. 
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Bei allen Dateizugriffen (außer OUT und INP), die die Angabe einer 
Kanal-Nummer erwarten, ist die Angabe des Nummernzeichens # op¬ 
tional. 

In Version V3.0 kann bei allen ON...GOSUB Name-Befehlen der Teil 
GOSUB vernachlässigt werden. Er wird vom Interpreter selbständig 
hinzugefügt (z.B. wird aus ON BREAK Name dann ON BREAK 
GOSUB Name). 


1.1 Zur Diskette im Buch 

Um auch ST-Besitzern mit einseitigem Laufwerk alle Programme in 
diesem Buch (mit mehr als ca. 6 Zeilen) zur Verfügung stellen zu 
können, wurde es notwendig, die Programme für die Diskette mög¬ 
lichst kurz zu halten. Aus diesem Grunde wurden zunächst einmal alle 
Kommentare aus den Quelltexten entfernt. Weiterhin sind alle Pro¬ 
gramme als .LST-File abgespeichert. Gehen Sie deshalb bitte so vor: 

Zunächst starten Sie den GFA-Interpreter durch Doppelklick. Nach¬ 
dem die Menüleiste erscheint, wählen Sie den Punkt MERGE an. 
Achten Sie bitte darauf, daß ein evtl, im BASIC-Editor befindliches 
Programm vorher durch New zu löschen ist (evtl, vorher abspeichern). 
Es erscheint eine Fileselect-Box, in der Sie das gewünschte Programm 
anklicken. Beachten Sie die Hinweise in den einzelnen Kapiteln, da 
teilweise noch kleinere Programmteile eingefügt werden müssen. Dazu 
bewegen Sie den Cursor auf die entsprechende Programmstelle und la¬ 
den die Teile ebenfalls mit Merge dazu. Diese nun fertiggestellten 
Programme können Sie sich auf eine eigene formatierte Diskette 
speichern, um diese Arbeit nur einmal durchführen zu müssen. 

Ein wichtiger Hinweis: 

Das Beispiel in Kapitel 21.5.2 "Disketten-Formatierung" formatiert 
automatisch die im Laufwerk befindliche Diskette. Legen Sie daher 
vor(!) Programmstart eine Leerdiskette ein. 


Sie sollten sich auf jeden Fall eine Sicherheitskopie Ihrer Programm¬ 
diskette anfertigen und deren Schreibschutz arretieren. 
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2. Der Atari ST 


Der MC 68000 von Motorola, der Hauptprozessor der meisten neuen 
"16-Bittern", wie z.B. Apple Macintosh, Amiga, QL, aber eben auch in 
unseres Atari ST, bietet im Vergleich zu den früheren 8-Bit-Prozes- 
soren, wie z.B. dem 6502 im C64, eine Vielzahl an Maschinenbefehlen, 
die erst durch die 16-Bit-Datenbreite verwirklicht werden konnten 
und auch gleichzeitig die Fähigkeiten und Geschwindigkeit eines 8- 
Megahertz-Takters voll zur Geltung brachten. 

Was heißt 8 Megahertz? Hertz ist eine aus der Physik bekannte Einheit 
für Schwingungen pro Sekunde. Unsere Fernseher z.B. arbeiten mit 
einer Bildwiederholungsfrequenz von 50 Hertz. D.h. jede Bildschirm¬ 
zeile wird innerhalb einer Sekunde 50mal neu aufgebaut. Für unseren 
Computer bedeutet das, daß ein spezielles Schwing-Quarz mit einer 
Frequenz von 8 Millionen Hertz (8 Millionen Mal in der Sekunde!) 
schwingt, und bei jeder Schwingung ein Schalter-Zustand bearbeitet 
werden kann. In Kombination mit 16 Daten- und 24 Adreßleitungen 
ergibt sich daraus eine kaum noch zu erfassende Variabilität. 

Man stelle sich eine riesige Lagerhalle vor, in welcher Regale mit ins¬ 
gesamt ca. 16 Millionen (!) Schubladen untergebracht sind. In jeder 
dieser Schubladen läge eine Information, die bestimmte Auskünfte 
über die Arbeitssituation im Betrieb gibt. Nun soll jemand innerhalb 
kürzester Zeit erfassen, welche Information in welcher Schublade liegt 
und welche Auswirkungen der Inhalt dieser Schublade im Zusam¬ 
menspiel mit vielen verschiedenen anderen Schubladeninhalten auf die 
Organisation des Gesamtbetriebes hat. 

Das ist, wenn man unser Gehirn als Vergleich nicht in Betracht zieht, 
unzweifelhaft mit menschlicher Kraft nicht machbar - ein Atari ST 
kann das. Da er jedoch auch analysieren, rechnen und einordnen muß, 
würde dies länger als eine Sekunde dauern. Trotzdem reicht seine Ge¬ 
schwindigkeit aus, um z.B. mit dem GFA-Interpreter in weniger als 
einer 20tel Sekunde eine FOR-NEXT-Schleife mit 1000 Schritten zu 
durchlaufen. Innerhalb eines Schrittes dieser Schleife muß er intern 
hunderte von Einzelschritten abarbeiten, die Richtigkeit des Pro¬ 
gramms in seiner Grammatik überprüfen und die verwendeten Befehle 
analysieren und zuordnen (interpretieren). Wahrhaft eine gewaltige 
Leistung. War ein 8-Bitter in seinen Kombinationsmöglichkeiten noch 
einigermaßen überschaubar, ist ein 16-Bitter real kaum noch zu be¬ 
greifen. 
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Glücklicherweise wächst die Fähigkeit mit den Möglichkeiten, die sich 
dem Interessierten bieten. Einer dieser Interessierten war Frank 
Ostrowski und kaum ein anderer hat seine Fähigkeiten mit den ihm 
hier gegebenen Möglichkeiten wachsen lassen. 
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3. Das GFA-BASIC 


Die meisten ST-Besitzer bekamen erst einen Begriff von der Qualität 
ihres Computers, als Frank Ostrowski vor ca. zwei Jahren sein erstes 
GFA-BASIC vorstellte. 

Es gibt wohl kaum andere Programmiersprachen, mit denen auf so 
atemberaubend einfache Weise selbst schwierige Probleme lösbar sind 
wie in GFA-BASIC. Überzeugen Sie sich selbst! 

Wir haben nun einen Interpreter, der das Angebot eines MC 68000 in 
einer für viele nutzbaren Sprache zur Verfügung stellt. Er tritt damit 
in eine ernstzunehmende Konkurrenz mit der bis heute favorisierten 
Compilersprache C. Zugegeben, in manchen Beziehungen werden C- 
und Assemblerprogrammierung Vorrang behalten. Aber die Gruppe 
derer, die bereit sind, sich mit der komplizierten Compiler- und As¬ 
semblertechnik auseinanderzusetzen, wird sich mehr und mehr in 
Grenzen halten, da dieses BASIC (vor allem die V3.0-Version) den 
meisten Anforderungen mit Sicherheit Genüge tut. 

Wie bei jeder Sprache, muß man auch hier erst einmal das ABC ler¬ 
nen, um fließend sprechen zu können. D.h., man muß die Grund¬ 
strukturen, an denen sich die Sprache orientiert, beherrschen, um vom 
Empfänger (in diesem Fall dem Interpreter) richtig verstanden zu 
werden. Glücklicherweise haben wir es hier mit BASIC zu tun, dem ja 
der Ruf anhängt, ein Tausendsassa zu sein, was seine syntaktische To¬ 
leranz angeht. 

Das GFA-BASIC zwingt - glücklicherweise - zu einer strukturierten 
Programmierung. Wer sich z.B. mit den Sprachen C, Modula oder 
Pascal beschäftigt hat, dem werden die Eigenarten der strukturierten 
Programmierung nichts Neues sein. 

In GFA-BASIC wird in jeder Zeile jeweils nur ein Befehl akzeptiert. 
Außerdem werden die Zeilen vom Interpreter selbsttätig in die ent¬ 
sprechende optische Struktur eingeordnet. Es ist eine wahre Freude, zu 
sehen, wie sauber und ordentlich ein derart durchstrukturiertes Pro¬ 
gramm hinterher aussieht. Ein weiterer wichtiger Aspekt ist aber, daß 
bei der Fehlersuche dadurch eine immens große Zeitersparnis eintritt. 
Befehlszeilen sind ohne Zeichen-Scrolling auf einen Blick erfaßbar. 
Zusätzlich wird durch das Einrücken der Zeilen sofort erkennbar, z.B. 
welches ENDIF zu welchem IF, oder welches NEXT zu welchem FOR 
gehört. 
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Der vielleicht wichtigste Vorteil der Struktur-Programmierung ist aber 
der, daß beiläufig während der Programmerstellung immer wieder 
kleine Unteroutinen abfallen, die in sich geschlossen sind und dadurch 
die Möglichkeit bieten, nach und nach eine umfangreiche Bibliothek 
an Hilfsprogrammen und allgemein verwendbaren Prozeduren zusam¬ 
menzustellen. Das wäre prinzipiell in anderen Programmierarten ge¬ 
nauso möglich, nur ergibt sich hier die Gelegenheit dazu erheblich 
seltener. Komfortabel wird es dann noch, wenn man diesen Prozedu¬ 
ren (wie in GFA-BASIC) eine fast beliebig lange Parameterliste über¬ 
geben kann. Effektiver geht es fast nicht mehr. 

Die V3.0-Version hat gegenüber den früheren Versionen erhebliche 
Veränderungen erfahren. Das beginnt bei der Variablen-Organisation 
(Einführung von Byte- und Word-Variablen), geht über einen phanta¬ 
stischen Programm-Editor und endet nach vielen weiteren Änderungen 
bei wesentlich strafferen Strukturierungsmöglichkeiten (SELECT- 
CASE, ELSE IF, FUNCTION etc.). 

Aus diesen neuen Möglichkeiten ergibt sich eine erhebliche Einspa¬ 
rung an Programmtext und zudem eine ebenso erhebliche Steigerung 
der Geschwindigkeit im Programmlauf sowie bei der Programm-Ent¬ 
wicklung. Einige neue Befehle ermöglichen eine derart einfache Pro¬ 
grammierung auch komplizierter Vorgänge (z.B. RC_INTERSECT, 
RC_COPY), daß es fast zu einem Kinderspiel wird. 

Wahrscheinlich das erste, was Ihnen am neuen GFA-BASIC auffallen 
wird, ist die rasante Geschwindigkeit des Editors beim Suchen, Erset¬ 
zen, Blättern und Scrollen. Diesen Super-Editor kann man ohne wei¬ 
teres schon fast als komplette Textverarbeitung bezeichnen. Dieses 
Buch wurde z.B. vollständig auf dem V3.0-Editor geschrieben, was 
übrigens auch seine Kapazität andeutet. Texte bis zur jeweils maxi¬ 
malen Länge (bei 1 Megabyte-Speicher ca. 750 KByte) werden an¬ 
standslos verarbeitet. Ein Suchvorgang durch den gesamten Text dau¬ 
erte im Durchschnitt nicht länger als 1 bis zwei Sekunden (!). 

Last but not least sollen hier noch die neuen Editor-Funktionen ge¬ 
nannt werden, wovon vor allem <Control><U> (die zuletzt durch 
<Control><Delete> gelöschte Zeile restaurieren) <Control>- 
<P>/<Control><0> (Teilzeilen löschen und restaurieren), die Funkti- 
onstasten-Belegung, die interne Zeilennumerierung und der History- 
Zeilenspeicher im Direktmodus hervorzuheben sind. 
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Man mag mir verhalten, daß ich nichts anderes kenne als das GFA- 
BASIC, was vielleicht auch zum Teil stimmt, aber nach allem, was ich 
kenne, ist das V3.0-GFA-BASIC mitsamt seinem Editor das beste Pro¬ 
gramm, was es es für den Atari ST zu kaufen gibt. Ich bin jedenfalls 
restlos begeistert und ich nehme an, daß es den meisten von Ihnen 
ganz genauso gehen wird. 
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4. Basis-BASIC 


Es ist unmöglich, in einem einzelnen Buch, das die Programmierung in 
einer bestimmten Programmiersprache erläutern soll, allen Ansprüchen 
gerecht zu werden. Richtet es sich nach den Interessen der Anfänger, 
wird es für den Fortgeschrittenen und Profi langweilig. Richtet es sich 
dagegen nach den Bedürfnissen der Könner, versteht der Anfänger 
nur noch wenig. Also muß versucht werden, einen Kompromiß zu 
schaffen. Dieser besteht darin, dem Anfänger die Grundlagen der Pro¬ 
grammierung nahezubringen, ohne in Banalität zu versinken, und 
komplexe Sachinhalte für Fortgeschrittene darzustellen, ohne in Fach- 
Chinesisch abzudriften. 

Um nun Anfängern die Möglichkeit zu eröffnen, mit GFA-BASIC 
den Grundstein zu ihrer Programmierer-Karriere zu legen, will ich 
hier die wesentlichen Grundlagen dieser Programmiersprache erläutern 
und zusätzlich eine Einführung in die Computer-Linguistik anbieten. 

Wer also der Meinung ist, er sei über den Aufbau eines Computers, 
über Boolesche Logik, Zahlensysteme etc. bereits ausreichend infor¬ 
miert, kann dieses Kapitel vernachlässigen. 

Den Einsteigern möchte ich allerdings empfehlen, sich hier mit dem 
nötigsten Rüstzeug auszustatten, denn ohne gewisse Grundkenntnisse 
läßt sich auch der bedienungsfreundlichste Computer nicht zu sinn¬ 
vollen Betätigungen bewegen. 

Dann wollen wir jetzt einsteigen: ein Computer ist in erster Linie ein 
äußerst dummer Zeitgenosse. Ob sich das in Zukunft mit Bio- und 
Megachips, Transputern, Supraleitern u.ä. wesentlich ändern wird, 
bleibt abzuwarten. Da Computer der gegenwärtigen Generation nur die 
beiden Zahlen 0 und 1 unterscheiden können, muß man manchmal 
gewaltige Anstrengungen unternehmen, um ihre Aufmerksamkeit zu 
erregen. 

Unter normalen Umständen begegnet ein Laie einem Computer mit 
Skepsis, aber auch mit einer unleugbaren Faszination. Diese Faszina¬ 
tion ist der Grund dafür, daß man manchmal vor lauter Ehrfurcht den 
eigentlich simplen Charakter eines solchen Geräts nicht erkennt. Das 
einzig bewundernswerte daran ist die mikroskopische Größe der 
Schaltungen, die fast unfaßbare Geschwindigkeit, mit welcher die 
verschiedenen Operationen durchgeführt werden und die genial gef¬ 
lochtenen Leiterbahnen auf einem fingernagelgroßen Mikrochip. 
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In jedem Fall sind es kreative und mit einer äußerst hohen analyti¬ 
schen Intelligenz begabte Menschen, die so ein Ding gebaut haben. 
Wenn also Ehrfurcht, dann vor den Informatikern, Technikern und 
Physikern, nicht vor dem Gerät. Wenn Sie nämlich die Stromzufuhr zu 
den Computer- Prozessoren unterbrechen, ist das Gerät Ihnen hilflos 
ausgeliefert. Es ist in gewisser Weise sogar sehr wichtig, sich dieses zu 
vergegenwärtigen, da die Chance, kreativ und produktiv mit einem 
Computer zu arbeiten steigt, je mehr man seine Ehrfurcht ihm gegen¬ 
über abbaut. 

Nach dieser Einleitung nun zur Technik. Es ist hier nicht möglich, in 
die tieferen Sphären der Computertechnik einzusteigen. Deshalb will 
ich mich damit begnügen. Ihnen einige Begriffe zu erläutern. Dabei 
werde ich mich auf solche Begriffe beschränken, die Ihnen in Ihrer 
Programmierer-Karriere oft begegnen werden und deren Kenntnis 
zum Verständnis des Computer-Jargons hilfreich ist. 


4.1 Computer-ABC 

Jeder Computer verfügt über eine zentrale Arbeitseinheit (CPU = 
Central Processing Unit). Diese ist das eigentliche Herz des Computers. 
Es handelt sich dabei um einen Prozessor (Arbeits-Chip), der von den 
o.g. Informatikern so programmiert wurde, daß er selbstständig in der 
Lage ist, eingehende Befehle zu erkennen und diesen entsprechend zu 
reagieren. Befehle werden im allgemeinen über die Tastatur eingege¬ 
ben oder als Programm eingelesen. Im Atari ST sind dazu die ver¬ 
schiedenen Schnittstellen durch ein Bündel von Leitungen mit der 
CPU verbunden. Dieses Leitungsbündel nennt man Bus. Es gibt Da¬ 
ten- ,Adreß- und Steuerbusse. Während uns der Steuerbus hier nicht 
näher interessieren soll, sind die Daten- und Adressbusse doch von er¬ 
heblicher Bedeutung. 

Der Datenbus wird dazu verwendet, Daten (Integer-Binär-Werte) 
zwischen den den Einheiten auszutauschen. So ist es möglich, z.B. 
einen Wert über die Tastatur an die CPU zu senden, die diesen dann 
entsprechend der gewünschten Operation verarbeitet und ggfs, im 
Speicher ablegt oder (was eigentlich dasselbe ist) auf dem Monitor 
ausgibt. Unter dem Speicher versteht man eine Ansammlung von 
Speicherchips, die ebenfalls durch Busse mit der CPU in Verbindung 
stehen. Hier kommt der Adreßbus ins Spiel. Um den gesamten Spei¬ 
cher organisieren zu können, wird jedem einzelnen Speicher-Byte (8- 
Bit-Speicherplatz) eine eigene Adresse zugewiesen. Durch Angabe 
dieser Adresse ist es also möglich, auf jedes einzelne Byte des Spei- 
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Chers zuzugreifen. Zu den Bits und Bytes kommen wir später. 
Zunächst sehen wir uns noch einmal die Übertragungsmöglichkeiten 
per Bus an. 

Wie gesagt, ist der Bus ein Bündel an Leitungen. Die CPU verfügt 
über eine Vielzahl von Pins (Steckfüsse des Chips), von denen beim 
ST genau 16 für Daten-Codes und 23 für Adreß-Codes verwendet 
werden. Diese Pins sind direkt mit den Bussen verbunden. Da in der 
Digital-Technik eine Stromleitung nur zwei Zustände annehmen kann 
(an und aus), ist es nicht möglich über eine einzelne Busleitung andere 
Werte als 0 (für aus) und 1 (für an) zu senden. Um einen Adreßraum 
von bis zu 4 Megabyte (Mega ST) zu versorgen, reicht eine Leitung 
also nicht aus. 

Wenn man sich nun eine Stromleitung vorstellt, in die über einen 
Schalter Strom eingeleitet wird, und man faßt das freie Ende dieser 
Leitung an, bekommt man einen Schlag. Genauso geht es den Chips, 
die die jeweilige Information aufzunehmen haben. Aufgrund dieses 
elektrischen Impulses "weiß" nun der Empfänger, daß ihm etwas Be¬ 
stimmtes übermittelt werden soll. Er ist darauf programmiert, ent¬ 
sprechend der eintreffenden Informationen entweder einen bestimmten 
Prozeß auszulösen, auszuführen oder die Information einfach nur zu 
behalten (speichern). Aber was kann man schon mit einer einzigen 
Leitung anfangen, die entweder die Information "Ja" (l=an) oder 
"Nein" (0=aus) übermitteln kann. Ein Gesprächspartner, der auf die 
Dauer nur Ja oder Nein sagt, wird schnell langweilig. Man möchte 
konkretere Auskünfte! 


4.2 Bits und Bytes 

Dazu benötigen wir mehrere Informationseinheiten (Bit = engl. Abk. 
für Binary Digit), durch deren Kombination eine Vielfalt an unter¬ 
schiedlichsten Zuständen ausgedrückt werden kann. 

Nimmt man nun zwei Stromleitungen, die unabhängig voneinander an- 
oder ausgeschaltet werden, sind schon vier verschiedene Kombinatio¬ 
nen denkbar. Stellen wir jede stromführende Leitung als 1 und jede 
"leere" Leitung als 0 dar, dann sieht das so aus: 

00 = Beide Leitungen führen keinen Strom 

10 = Leitung 1 = An/Leitung 2 = Aus 
01 = Leitung 1 = Aus/Leitung 2 = An 

11 = Beide Leitungen an 
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Dies ist also schon ein kleiner Schritt mehr in Richtung Kommunika¬ 
tion. Um es noch deutlicher zu machen, wird das Spiel mit vier 
Stromleitungen wiederholt; 

0000 = Alle Leitungen aus 

1000 = Leitung 1 an/2, 3 und 4 aus 

0100 = Leitung 2 an/1, 3 und 4 aus 

0010 = Leitung 3 an/1, 2 und 4 aus 

0001 = Leitung 4 an/1, 2 und 3 aus 

1100 = Leitung 1 und 2 an /3 und 4 aus 

0110 = Leitung 2 und 3 an /I und 4 aus 

0011 = Leitung 3 und 4 an /I und 2 aus 

1001 Leitung 1 und 4 an /2 und 3 aus 

1010 = Leitung 1 und 3 an /2 und 4 aus 

0101 = Leitung 2 und 4 an /I und 3 aus 

1110 = Leitung 1, 2 und 3 an/4 aus 

0111 = Leitung 2, 3 und 4 an/1 aus 

1011 = Leitung 1, 3 und 4 an/2 aus 

1101 = Leitung 1, 2 und 4 an/3 aus 

1111 = Alle Leitungen an 



Mit jeder weiteren Leitung verdoppelt sich die Anzahl der Darstel¬ 
lungsmöglichkeiten: 
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Alle Leitungen 

aus 


s 

0 

1. 

Leitung 

an 

= 

2'0 

= 

1 

2. 

II 

an 

s 

2'1 

= 

2 

3. 

11 

an 

= 

2‘2 

= 

4 

4. 

II 

an 

= 

2‘3 

S 

8 

5. 

II 

an 

= 

2‘4 

= 

16 

6. 

II 

an 


2‘5 


32 

7. 

H 

an 

= 

2'6 

= 

64 

8. 

tl 

an 

= 

2*7 

= 

128 


Suime aller Möglichkeiten, 
die mit einem BYTE (= 8 BIT) 

dargestellt werden können = 256 (inkl. Null) 

Ich habe diese Liste bewußt mit der Potenz 7 enden lassen, da diese 8 
Leitungen mit ihren 256 verschiedenen Aussagemöglichkeiten eine 
Grundeinheit in der Computerlogik darstellen. Diese Einheit wird Byte 
genannt. Ein Computer mit einem Arbeitsspeicher von 1 Million Byte 
kann also 1 Million mal unabhängig voneinader einen solchen Infor¬ 
mationsblock (Byte) von je 8 Bit aufnehmen. 

Wie Ihnen vielleicht schon bekannt ist, verfügt der Atari ST über 256 
verschiedene Schriftzeichen. Nach den letzten Ausführungen wissen 
Sie, daß diese Zahl also kein Zufall ist. Warum nun als erste Potenz 
eine Null gewählt wird, ist eine mathematische Festlegung. Jeder Wert 
der mit dem Wert Null potenziert wird, ergibt den Wert Eins. Diese 
Eins ist in jedem Zahlensystem die kleinste Einheit. 


4.3 Binär-Arithmetik 

Der Trick an der Sache ist nun der, daß jeder Zustand, der sich mit 
diesen 8 Leitungen darstellen läßt, auch mit einem Wert belegt werden 
kann. Es wurde nun ein Zahlensystem entwickelt, das ausschließlich 
die Zustände "An" und "Aus" zur Zahlendarstellung verwendet. 

Dabei geht man mathematisch genauso vor, wie wir es von unserem 
Dezimalsystem her kennen. Der einzige Unterschied ist der, daß als 
Basis zur Potenz nicht der Wert 10, sondern der Wert 2 genommen 
wird. Die niedrigste Stelle einer Binärzahl (Bi = griech: Zwei) steht 
ebenso wie in einer Dezimalzahl rechts und die höchste Stelle links. 
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Als Beispiel nehmen wir ein beliebiges Byte: 





01011101 

= 

93 


(10 

hoch 

0) 

* 3 

= 

3 

+ 

(10 

hoch 

1) 

* 9 

s 

90 




Ergebnis 

= 

93 


(2 

hoch 

0) 

• 1 


1 

♦ 

(2 

hoch 

1) 

* 0 

s 

0 

+ 

(2 

hoch 

2) 

* 1 

= 

4 

+ 

(2 

hoch 

3) 

* 1 

s 

8 

+ 

(2 

hoch 

4) 

• 1 

s 

16 


(2 

hoch 

5) 

* 0 

s 

0 

♦ 

(2 

hoch 

6) 

* 1 

s 

64 

+ 

(2 

hoch 

7) 

• 0 

= 

0 




Ergebnis 

= 

93 


4.4 Das Hexadezimal-System 

Wozu braucht man nun noch das Hexadezimalsystem? Wollte man 
diese Bytes als Binärzahl darstellen, müßte man dazu jedesmal eine 
Zeichenkette von 8 Einsen und Nullen schreiben. Um diese Zahlen¬ 
darstellung zu vereinfachen, hat man sich die Hexadezimalzahlen aus¬ 
gedacht. 

Dieses Zahlensystem hat alle Eigenschaften der anderen Systeme. Der 
einzige Unterschied ist der, daß als Basis zu den Potenzen weder die 2 
noch die 10 genommen wird, sondern der Wert 16. Das hat den Vor¬ 
teil, daß sich die Hälfte eines Bytes (auch Tetrade oder Nibble ge¬ 
nannt), also 4 Bit (maximal darstellbarer Wert = 15) mit einer einzigen 
Hexadezimalziffer darstellen läßt. Da sich jedoch mit den uns übli¬ 
cherweise bekannten Zahlen keine größere Zahl als 9 einstellig schrei¬ 
ben läßt, mußten für die Zahlen 10 bis 15 Buchstaben gewählt wer¬ 
den. Der Zahl 10 wird der Buchstabe "A" zugeordnet, der Zahl 11 das 
"B", 12 = "C", 13 = "D", 14 = "E" und die 15 erhält den Buchstaben "F". 

Somit läßt sich also die größte Zahl, die ein ST im GFA-BASIC ver¬ 
arbeiten kann, nämlich 2^31-1, mit nur 8 Ziffern darstellen 
(7FFFFFFF). Im allgemeinen werden Hexadezimalzahlen gekennzeich¬ 
net, indem ihnen ein "$" (Dollar, z.B. $1AF7) vorangestellt wird. Das 
GFA-BASIC handhabt dieses jedoch anders. Hier erhalten Zahlen im 
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Hexa-Format das Kürzel "&H" (z.B. &H1AF7). Hexzahlen haben in 
erster Linie den Vorteil der Zeit- und Platzersparnis. 

Siehe hierzu auch unter HEX$, OCT$". 


4.5 Codes und Opcodes 

Ein Wert kann bei entsprechender Vorgabe stellvertretend als numeri¬ 
sches Symbol für ein bestimmtes Wort, Zeichen oder einen Befehl in¬ 
terpretiert werden. 

Bei den Schriftzeichen (ASCII-Zeichen = American Standard Code for 
Information Interchange; engl.: amerikanischer Standard-Code für In¬ 
formationsaustausch) steht z.B. der Wert 65 für den Buchstaben "A", 
der Wert 66 für "B", der Wert 67 für "C" usw. (ASCII-Tabelle siehe 
Anhang). Angenommen, der Wert 192 stünde für "Gebe den im fol¬ 
genden Byte enthaltenen ASCII-Wert als Schriftzeichen an Cursor-Po¬ 
sition auf dem Bildschirm aus". Die Arbeitsweise sieht dann verein¬ 
facht so aus, daß das TOS weiß, wenn es den Wert 192 empfängt, soll 
es das ASCII-Zeichen auf dem Bildschirm ausgeben, das dem auf den 
Befehl folgenden Byte-Wert entspricht. 

Der Befehl würde dann so aussehen: 

Dezimal : 192 66 

Binär : 11000000 10000010 

Hexadezimal: CO UZ 

Es würde also das Zeichen "B" auf dem Bildschirm ausgegeben wer¬ 
den. Immer dann, wenn wir auf Werte stoßen, die eine Initialisie¬ 
rungsfunktion haben, also als Auslöser für bestimmte Prozesse dienen, 
haben wir es mit Opcodes (Operation-Codes) zu tun. Solche Opcodes 
sind nichts anderes als ein Befehl, der symbolisch durch eine Zahl re¬ 
präsentiert wird. Alles, was den Prozessor interessiert, sind Zahlen, die 
ihm in verschiedenen Formaten als Bit-Häppchen serviert werden. 

Bei der TOS-Programmierung wurden also verschiedene Funktionsab¬ 
läufe vordefiniert, die nun z.B. von einem Interpreter anhand solcher 
Opcodes aufgerufen werden können. 

Wenn Sie also in BASIC die Zeile 


PRINT "B" 
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eingeben, wird Ihre Eingabe vom Interpreter auf die oben beschrie¬ 
bene Weise in das Binärformat gewandelt und dem Betriebssystem zur 
Weiterverarbeitung übergeben. Genausogut könnte man 

PRINT CHR$(66) I (66 < ASCII-Wert für "B") 

schreiben, nur daß das etwas umständlicher wäre. 


4.6 Words und Longwords 

Um nun einen Sprung von den Bytes zu den Words zu machen, 
braucht man keinen großen Anlauf. Als Word wird eine Irtformati- 
onseinheit bezeichnet, die sich statt aus 8 Bit (1 Byte) aus 16 Bit zu¬ 
sammensetzt. Es können nicht nur 256 verschiedene, sondern 65536 
(0-p2^0+2^1-p2^2+2^3-f2^4+2^5+2^6-f2^7-f2^8+2^9-H2^ 10 -h2^ 11+2^ 1 2-p2^ 
13-p 2^14+2^15) verschiedene Zustände dargestellt werden. 

Wie erwähnt, arbeitet der 68000er (ST-CPU) mit einer Datenbreite 
von 16 Bit. Es können also problemlos Werte im Bereich von 0-65535 
(0 bis 2^16-1) von ihm gelesen, verarbeitet und zurückgegeben wer¬ 
den. Doch es gibt noch eine Steigerung. Wenn man nur Werte bis 
65535 ausdrücken könnte, könnten manche nicht einmal ihre Steuerer¬ 
klärung damit bearbeiten. Deshalb ist der 68000er so programmiert, 
daß er (wenn es ihm gesagt wird) zwei 16-Bit-Words direkt nachein¬ 
ander verarbeitet und dann so vorgeht, als ob es ein 32-Bit-Wert ge¬ 
wesen ist. 

Von diesen 32 Bits werden in GFA-BASIC allerdings nur 31 Bit zur 
Wertedarstellung verwendet. Das letzte (höchste) Bit wird zur Kenn¬ 
zeichnung negativer Zahlen verwendet. 

Die Zahlen, die sich damit ausdrücken lassen, dürften fast für jede 
erdenkliche Steuererklärung ausreichen: 

2 hoch 31-1 = 2U7483647 

Diese 32-Bit-Breite wird als Longword bezeichnet. Die CPU ist nun 
so programmiert, daß sie zwischen diesen drei verschiedenen Daten¬ 
breiten unterscheiden kann. Ihr ist es also egal, in welchem Format 
Daten übergeben werden, solange man dazusagt, welches Format ge¬ 
meint ist. Bei den BASIC-Befehlen finden Sie deshalb auch 
POKE/PEEK (Byte-Werte schreiben/lesen), DPOKE/DPEEK (Words 
schreiben/lesen) und LPOKE (Longwords schreiben/lesen). 
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4.7 Die Speicherorganisation 
RAM 

"Random Access Memory"- engi.: Freier Zugriffs-Speicher (der 
Speicherbereich, in/aus den/dem Daten geschrieben/gelesen 
werden können) 


ROM 

"Read Oniy Memory" - engi.: Nur-Lese-Speicher (Speicherchips, 
in die Daten unveränderbar eingebrannt wurden. z.B.: ROM-TOS 
= im ST integriertes Betriebssystem) 

TOS "Tramiel Operating System" (das ST-Standard-Betriebssystem) 

Der Adreßbus hat eine Breite von 23 Bit, wovon für das RAM bei ei¬ 
nem 520ST+ oder 1040STF nur 20 Bit genutzt werden. 

2‘20-1 = 1048575 

Besitzer eines 520ST+ oder 1040STF werden feststellen, daß der bei 
Systemstart am oberen Ende des Arbeitsspeichers angesiedelte 
Bildschirmspeicher genau 32767 (2^15-1) Byte unterhalb dieser 
Adresse liegt. Geben Sie bitte dazu folgende Zeile im Direktmodus ein 
und vergleichen Sie den erhaltenen Wert mit der Zahl 2^20-1. 

PRINT XBI0S(2)+32767 

XBIOS(2) ist die Anfangsadresse des Bildschirmspeichers (siehe 
XBIOS). Der Bildschirmspeicher ist genau 32767 Bytes groß, wovon 
die ersten 32000 Bytes zur Darstellung des aktuellen Bildes benötigt 
werden. Die restlichen 767 Bytes werden so gut wie nie benutzt. Die¬ 
ser Bereich ist also völlig frei, um darin zum Beispiel kleine Maschi¬ 
nenprogramme oder Werte abzulegen. Über den Adressbus kann die 
CPU nun also 1048575 einzelne Bytes ansprechen. Diese Bytes befin¬ 
den sich in dem oben bereits erwähnten Speicher und haben nichts 
weiter zu tun, als sich eben die Daten zu merken, die die CPU ihnen 
übergibt. 

Die Organisiation des Arbeitsspeichers sieht nun so aus, daß das Byte 
mit der kleinsten Adresse vorn liegt und alle anderen Bytes sich der 
Reihenfolge nach daran anschließen. Der Speicher ist also eine lange 
Kette aus einzelnen Bytes. Um sich einiges an Verwirrung zu erspa¬ 
ren, ist es wichtig, sich klarzumachen, daß der Speicher keine mehr¬ 
dimensionale Sache ist, sondern, wie ein gerader Strich, eindimensio¬ 
nal. Um sich das zu vergegenwärtigen, stellen Sie sich bitte einen sehr. 
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sehr langen Zug vor, dessen einzelne Waggons jeweils einem Byte 
entsprechen und von vorn an (ab der Lokomotive) durchnumeriert 
wurden. 

Aus dieser langen Kette von Speicherplätzen werden nun vom Be¬ 
triebssystem einzelne Teile herausgeschnitten und je nach Bedarf für 
verschiedene Aufgaben verwendet. So belegt z.B. ein Teil des Be¬ 
triebssystems den Anfang des Speichers. Andere Teile werden für die 
verschiedenen Anwendungen (wie z.B. den BASIC-Interpreter) zur 
Verfügung gestellt oder eben als Bildschirmspeicher benutzt. 

Der Bildschirmspeicher stellt eine Besonderheit dar. Er wird von ei¬ 
nem Video-Kontroll-Chip ständig in einzelne, der jeweiligen Grafik- 
Auflösung entsprechende Zeilen zerlegt und diese Zeilen untereinan¬ 
der (in mittlerer und niedriger Grafik-Auflösung auch in mehreren 
Ebenen "Bit-Planes") ausgegeben. 


4.8 Boolesche Logik 

Um nun den Computer zu einer Arbeit zu bewegen, die Ergebnisse 
liefert, mit denen wir etwas anfangen können, mußte ein Verfahren 
entwickelt werden, das die Arbeitsweise des Computers unserer eige¬ 
nen angleicht. Es nützt wenig, ihn stur mathematische Aufgaben lösen 
zu lassen, was ja seine Lieblingsbeschäftigung ist. Man will auch, daß 
unter bestimmten Bedingungen Entscheidungen von ihm selbstständig 
getroffen werden. Sonst wäre er nichts weiter als ein besserer Ta¬ 
schenrechner. 

Ein englischer Mathematiker namens George Boole hat sich dazu eine 
Form der Arithmetik ausgedacht, die daher auch Boolesche Arithmetik 
oder Boolesche Algebra genannt wird. Seine Idee war es, für das 
Grundprinzip menschlicher Entscheidungen allgemeine Regeln zu be¬ 
stimmen und diese auf den Computer zu übertragen. 

Wie entscheidet sich ein Mensch? Entscheidungen sind die Reaktion 
auf einzelne oder auch eine Folge von Bedingungen. 

Man nimmt eine Situation wahr, ordnet ihre Anforderungen in ein 
vorhandenes Handlungsschema ein und trifft aufgrund von Überein¬ 
stimmungen oder eben auch Nichtübereinstimmungen mit dem vor¬ 
handenen Wertesystem die Entscheidung darüber, was nun zu tun ist. 

Wir wissen alle, was die Worte "und" und "oder" bedeuten. 
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Wenn es warm ist und ich Zeit habe, werde ich baden gehen. 


oder 


Wenn es kalt ist oder ich nicht Zeit habe, werde ich nicht baden 
gehen. 

Wir verknüpfen mehrere Bedingungen miteinander, um daraus zu 
entscheiden, was zu tun oder zu lassen ist. 

Nichts anderes bewirkt die Boolesche Logik. Ein Computer ist nur ein 
Computer, wenn er in der Lage ist, Entscheidungen dieser oder ähn¬ 
licher Art zu fällen. Dazu hat sich Boole mehrere solcher 
Verknüpfungsmodi einfallen lassen. 

Diese sind: 


AND, OR, NOT, XOR, IMP, EQV 

Wobei NOT eine Ausnahme darstellt. Hier handelt es sich nicht um 
eine Verknüpfung, sondern um die Umkehrung der eingehenden In¬ 
formation. Schauen wir uns nun an, wie sich diese Verknüpfungen auf 
die Behandlung der eingehenden Informationen auswirken. Dabei wer¬ 
den nacheinander von rechts ausgehend die Bits des ersten Operanden 
mit den jeweiligen, gleichrangigen Bits des zweiten Operanden ver¬ 
knüpft. 


AND: 


11011001 (Byte 1} 

AND 01101101 (Byte 2) 


01001001 Ergebnis 
PRINT BIN$(&X11011001 AND &X01101101} 
PRINT &X11011001 AND &X01101101 


Im Ergebnis-Byte wird nur dann ein Bit gesetzt, wenn an der gleichen 
Stelle im ersten UND im zweiten Ursprungs-Byte ein Bit gesetzt ist. 


OR: 


11011001 (Byte 1) 

OR 01101101 (Byte 2) 


11111101 Ergebnis 
PRINT BIN$(&X11011001 OR &X01101101) 
PRINT &X11011001 OR &X01101101 
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Im Ergebnis-Byte wird immer dann ein Bit gesetzt, wenn entweder im 
ersten ODER im zweiten ODER in beiden Ursprungs-Bytes ein Bit 
gesetzt ist. 


XOft: 


11011001 (Byte 1> 

XOR 01101101 (Byte 2) 


10110100 Ergebnis 
PRINT BIN$(&X11011001 XOR &X01101101) 
PRINT &X11011001 XOR &X01101101 


Im Ergebnis-Byte wird dann ein Bit gesetzt, wenn entweder im ersten 
ODER im zweiten, ABER NICHT in beiden Ursprungs-Bytes ein Bit 
gesetzt ist. XOR = eXclusiv OR = exclusives (ausschließendes) Oder. 


Bei den folgenden drei Operationen ist zu beachten, daß Vergleiche 
jeweils im Long-Format (32 Bit) durchgeführt werden. Da das gesamte 
Langwort verknüpft wird, ergeben sich bei diesen Beispielen aufgrund 
der Zweierkomplementierung Minuswerte (siehe unter Vari- 
ablen/Boole-Variable). 


IMP: 


11011001 (Byte 1) 

IMP 01101101 (Byte 2) 


11111111111111111111111101101111 Ergebnis 
PRINT BIN$(&X11011001 IMP &X01101101) 
PRINT &X11011001 IMP &X01101101 


Im Ergebnis wird immer dann ein Bit gesetzt, wenn in beiden Ur¬ 
sprungs-Bytes ein Bit gesetzt ist oder in beiden Ursprungs-Bytes kein 
Bit gesetzt ist oder wenn im ersten Byte kein Bit, aber im zweiten 
Byte ein Bit gesetzt wird. Dies nennt man Implikation. Das Ergebnis 
ist immer "unwahr" (also 0), wenn im ersten Byte ein Bit gesetzt ist, 
aber im zweiten keins. In allen anderen Fällen ist das Ergebnis "wahr" 
(also 1). 


EQV: 


11011001 (Byte 1) 

EQV 01101101 (Byte 2) 


11111111111111111111111101001011 Ergebnis 
PRINT BINS(&X11011001 EQV &X01101101) 
PRINT &X11011001 EQV &X01101101 


Dies ist das Gegenteil zu XOR. Im Ergebnis-Byte wird dann ein Bit 
gesetzt, wenn in beiden Ursprungs-Bytes entweder ein Bit gesetzt ist 
oder in beiden Ursprungs-Bytes kein Bit gesetzt ist. Ist in einem der 
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beiden Bytes ein Bit gesetzt, aber im anderen nicht, ist das Ergebnis 
"unwahr" (also 0). 

NOT: 

NOT 11011001 


11111111111111111111111100100110 Ergebnis 
PRINT BIN$(N0T &X11011001) 

PRINT NOT &X11011001 

Im Ergebnis-Byte wird dann ein Bit gesetzt, wenn im Ursprungs-Byte 
kein Bit gesetzt ist. Das Ergebnis ist also immer das Negativ des Ur¬ 
sprungs-Bytes. 

Mit Binärmustern lassen sich auch - wie mit Normalzahlen - Additio¬ 
nen, Subtraktionen, Multiplikationen und Divisionen durchführen. 


Addition: 

11011001 

{dez.=217) 


♦ 

01101101 

(dez.=109) 

I.Bit 

1+1 

0 

(Übertrag=1) 

2.Bit 0+0+übertrag= 

1 

(übertrag=0) 

3.Bit 

0+1 

1 

(übertrag=0) 

4.Bit 

1+1 

0 

(Ubertrag=1) 

5.Bit 

1+0+übertrag= 

0 

(übertragen 

6.Bit 0+1+übertrag= 

0 

(Übertragei) 

7.Bit 

1+1+übertrag= 

1 

(Übertragei) 

8.Bit 

1+0+übertrag= 

0 

(Übertragei) 

9.Bit 

= Übertrag = 

1 




101000110 

(dez.e326) 

PRINT 

BIN$(&X11011001+&X01101101} 

PRINT 

&X11011001+&X01101101 


Subtraktion: 

11011001 

(dez.=217) 


- 

01101101 

(dez.=109) 

I.Bit 

1-1 

0 

(übertrageO) 

2.Bit 

0-0 

0 

(übertrageO) 

3.Bit 

0-1 

1 

(Übertragei) 

4.Bit 

1-1-übertrag= 

1 

(Übertragei) 

5.Bit 

1-0-übertrag= 

0 

(ÜbertrageO) 

6.Bit 

0-1 

1 

(Übertragei) 

7.Bit 

1-1-übertrag= 

1 

(Übertragei) 

8.Bit 

1-0-übertrag= 

0 

(ÜbertrageO) 



1101100 

(dez.e108) 

PRINT 

BINS(&X11011001 

-&X01101101) 


PRINT &X11011001-&X01101101 
Multiplikation: 




11011001 * 01101101 

(dez.: 217*109) 

OPI/BitI 

* OP2= 

01101101 

(Rang: 2'0) 

+ OP1/Bit2 

* OP2 

+00000000 

(Rang: 2*1) 

Zwischenergebnis 

e 001101101 


+ OP1/Bit3 

* OP2 

+00000000 

(Rang: 2*2) 
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Zwischenergebnis = 
+ OP1/Bit4 * OP2 
Zwischenergebnis = 
+ OP1/Bit5 * OP2 
Zwischenergebnis = 
+ OP1/Bit6 • OP2 
Zwischenergebnis = 
+ OP1/Bit7 * OP2 
Zwischenergebnis = 
+ OPI/BitS * 0P2 


0001101101 

+01101101 

01111010101 

+01101101 

101010100101 

+00000000 

0101010100101 

+01101101 

10010111100101 

+01101101 


(Rang: 2'3) 
(Rang: 2‘4) 
(Rang: 2'5) 
(Rang: 2‘6) 
(Rang: 2‘7) 


101110001100101 Ergebnis 
PRINT BIN$(&X11011001*4X01101101) 

PRINT &X11011001*&X01101101 
Division (Integer): 


Die bitweise Division ist ein relativ kompliziertes Unterfangen. 
Aus diesem Grund wird hier nur ein einfaches Beispiel behan¬ 
delt, dessen nähere Erläuterung zu weit führen würde. Es kann 
hier nur ein ganzzahliges Ergebnis entstehen, da die bitweise 
Realzahl-Division auf diese Art nicht machbar, bzw. derart auf¬ 
wendig ist, daß das Thema mehrere Seiten füllen würde. 


11011001 / 10 = 1101100 
10 .■!!!!!! 


- 10 


erweitert: 00011 
- 10 


010 1 
- 10.'j 

.... I 

erweitert: 0001 -‘ 

- 10 . 


11...11111111111 (= -1, also Rest 1) 

PRINT BIN$(&X11011001/&X01101101) 

PRINT &X11011001/SX01101101 


Bei all diesen Beispielen wurde das Format Byte gewählt, da Ihnen 
dieses Format am häufigsten begegnen wird. Grundsätzlich sind diese 
Operationen mit jedem Format durchführbar. 


Im wesentlichen kann 
bei der Binär-DiVision 
(ebenso wie bei +, *) 

genauso verfahren werden, 
wie bei Dezimalrechnungen. 
Da jedoch in Zweierpotenzen 
gearbeitet wird, können 
gebrochene Anteile nicht 
exakt ermittelt werden. 


Die eben behandelte Thematik gehört nicht gerade zu den einfachen 
Dingen in der Computerwelt. Eine Notwendigkeit, mit logischen Ope¬ 
ratoren und Bit-Arithmetik umzugehen, besteht allerdings nur für 
jene, die den Ehrgeiz haben, in die tieferen Ebenen der Computer- 
Programmierung hinabzusteigen. Wenn Sie dazu nicht die Neigung 
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verspüren, ist es auf jeden Fall gut, etwas davon gehört, bzw. gelesen 
zu haben. 


4.9 Bedingungen und Konsequenzen 

In einer anderen Beziehung ist es jedoch ausgesprochen ratsam, sich 
doch zumindest mit den beiden Boole-Operatoren AND und OR aus¬ 
einanderzusetzen. Es gibt nämlich mehrere Befehle im BASIC, die die 
Angabe einer Bedingung erforderlich machen. 

Nehmen wir als Beispiel den Befehl IF...ELSE...ENDIF (siehe dort). 
Dieses ist wohl der gebräuchlichste Befehl, um den Fortlauf des Pro¬ 
gramms von einer Bedingung abhängig zu machen. Weiter vorn wur¬ 
den zwei typische Bedingungen und ihre Konsequenzen vorgestellt, 
wie sie in dieser oder einer ähnlichen Art im täglichen Leben ständig 
Vorkommen. 

Wenn es warm ist und ich Zeit habe, werde ich baden gehen. 

Wenn es kalt ist oder ich nicht Zeit habe, werde ich nicht baden 
gehen. 

Es werden in beiden Fällen zwei Bedingungen gestellt, deren Erfül¬ 
lung mit einer Konsequenz verbunden ist. 

Um das nun in ein anwendbares Beispiel zur Programm-Entscheidung 
übertragen zu können, setzen wir für einige Worte in den beiden Sät¬ 
zen Symbole ein. Für jeden Ausdruck, der etwas bejaht, nehmen wir 
den Wert 1 und für jeden Ausdruck, der etwas verneint, setzen wir 
den Wert 0. 

Also: 


ist = 1 
haben = 1 
gehen :: 1 
nicht haben = 0 
nicht gehen = 0 

In die Struktur einer IF-Bedingung eingefügt, bekommen die beiden 
Sätze nun folgende Form: 
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If warin=1 And Zeit=1 
Baden=1 
Endif 

If Kalt=1 Or Zeit=0 
Baclen=0 
Endif 


! Uerm warm ''ist" UND Zeit "haben" 

! dann baden "gehen" 

! Ende der Konsequenz 

I Wenn kalt "ist" ODER Zeit "nicht haben" 
I dann baden "nicht gehen" 

I Ende der Konsequenz 


Sie merken, daß bei Verwendung von Symbolen für "Ja" und "Nein" 
schon recht komplizierte Entscheidungen möglich sind. Das kann man 
sogar noch wesentlich weiter führen, wenn man eine weitere Möglich¬ 
keit anwendet, die einem das GFA-BASIC bietet, man kann mehrere 
Bedingungen mit einer Klammer zusammenfassen und dazu alternativ 
weitere Bedingungen stellen. 

Eine solche Alternative könnte im obigen Beispiel sein: 

...oder wenn die Badehalle auf ist,... 

Der vollständige Satz wäre dann: 

Wenn es warm ist oder wenn die Badehalle auf ist. und ich Zeit 
habe, werde ich baden gehen. 

Für die positive Eigenschaft "auf setzen wir den Wert 1. 

IF-Struktur: 

If (Uarm=1 Or HaUe=1) And Zeit=1 I Wenn (warm "ist" ODER 

! Badehalle "auf") 

I UND Zeit "haben" 

Baden=1 I dann baden "gehen" 

Endif I Ende der Konsequenz 

Der Faktor "Zeit" bezieht sich hier auf beide vorangestellten Alternati¬ 
ven. Wenn ich z.B. auch in die Badehalle gehen würde, wenn ich keine 
Zeit hätte, müßte die Klammer anders gesetzt werden, da sich "Zeit" 
dann nur auf "warm" bezieht: 


If (warm=1 And Zeit=1) Or Halle=1 


Baden=1 

Endif 


! Warm (warm "ist" UND 
! Zeit "haben") 

I ODER Badehalle "auf" 
! dann baden "gehen" 

I Ende der Konsequenz 


Wenn im vorherigen Beispiel "warm" ODER "Badehalle" die Alternati¬ 
ven waren, so sind es jetzt "(warm UND Zeit)" ODER "Badehalle". 
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Zur IF-Struktur ist hier zu sagen, daß diese grundsätzlich mit einem 
ENDIF abgeschlossen werden muß, um dem Interpreter kenntlich zu 
machen, welche Konsequenzen zu welcher Bedingung gehören. 

Es gibt auch noch die Möglichkeit, eine Alternativ-Konsequenz zu 
formulieren. 

Wenn ich sage, daß ich unter bestimmten Bedingungen etwas tun 
werde, so folgt daraus implizit, daß ich dann, wenn die Bedingungen 
nicht erfüllt sind, etwas anderes tun werde. 

Im obigen Beispiel könnte das sein: 

Wenn es warm ist oder wenn die Badehalle auf ist, und ich Zeit 
habe, werde ich baden gehen. 

Andernfalls werde ich nicht baden gehen und ein Buch lesen. 

Für "lesen" (positiv) setzen wir hier wieder eine 1 und für "nicht lesen" 
(negativ) eine 0. 

IF-Struktur: 


If (Uarni=1 Or Halle=1) And 2eft=1 I Wenn (warm "ist" ODER 



1 Badehalle "auf") 

! UNO Zeit "haben" 

i 

Baden=1 

! dann baden "gehen" 


Buch=0 

! dann Buch "nicht lesen" 


Else 

! sonst . 

-- 

Baden=0 

! baden "nicht gehen" 


Buch=1 

! Buch "lesen" 

1 


Bucn=i ! BUCH "lesen” i 

Endif ! Ende d. Alternativ-Konsequenz-• 


Der Ausdruck ELSE steht hier für "andernfalls" oder auch "sonst". 
ELSE ist also die konsequente Umkehrung der bei IF gestellten Bedin¬ 
gungen. Die zwischen ELSE und ENDIF eingeschlossenen Konse¬ 
quenzen bekommen nur dann Gültigkeit, wenn keine der bei IF ge¬ 
stellten Bedingungen zutrifft. 

Das heißt wiederum, daß immer dann, wenn das Programm auf eine 
IF-Abfrage trifft, die mit einer ELSE-Anweisung verbunden ist, ent¬ 
weder die unter IF oder die unter ELSE eingebundenen Konsequenzen 
Gültigkeit bekommen. Soll das nicht geschehen, wird die ELSE-An¬ 
weisung einfach weggelassen. D.h., daß die Nichterfüllung der unter 
IF gestellten Bedingungen keine weitere Konsequenz hat, als daß das 
Programm hinter der zugehörigen ENDIF-Anweisung fortgesetzt wird. 
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Um nun nicht alle Bedingungen, die abgefragt werden sollen, in eine 
einzige Programmzeile schreiben zu müssen, oder um mehrere Folge¬ 
bedingungen definieren zu können, können solche IF-Abfragen auch 
"verschachtelt" werden. Den Begriff "Verschachteln" werden Sie weiter 
unten auch bei den Schleifen-Strukturen wiederfinden. Damit ist ge¬ 
meint, daß z.B. in einer IF-Abfrage weitere Abfragen auftreten kön¬ 
nen, so daß auch Unterverzweigungen möglich werden. 


If Uann=1 Or HaUe=1 
If Zeit=1 
Baden=1 
Else 
Baden^O 
Endif 
Buch=0 
Else 
Buch=1 
Endif 


Wenn wam “ist" ODER Halle "auf" 

UND Zeit "haben" . | 

dann baden "gehen" j 

sonst.. 

baden "nicht gehen" j 

Ende der Alternative .' 

in beiden Fällen "nicht lesen" 

sonst .I 

Buch "lesen" , 

Ende d. 1. Alternativ-Konsequenz 


Dieses Beispiel entscheidet in zwei Stufen, welche Konsequenzen die 
Erfüllung zweier unabhängiger Bedingungen haben soll. Erst wenn es 
warm ist oder die Badehalle auf ist, soll der Zeitfaktor in Betracht 
gezogen werden. Ist es weder warm, noch ist die Badehalle auf, so 
wird der Zeitfaktor von vorneherein vernachlässigt und die Entschei¬ 
dung "Buch lesen" getroffen. 

Anhand dieser einfachen Beispiele ist die Übertragbarkeit alltäglicher 
Entscheidungen in die Logik der Computerwelt hoffentlich etwas 
deutlich geworden. Mit Zunahme Ihrer Routine wird auch die Einsicht 
in die Möglichkeiten dieser Verknüpfungen wachsen. Es ist jedenfalls 
manchmal recht faszinierend, wie sich durch komplexe Bedingungen 
unterschiedliche Einflüsse so abfangen und verarbeiten lassen, daß 
schon der Eindruck eines "intelligenten" Programms entsteht. Die Vir¬ 
tuosität im Umgang mit Bedingungen kennzeichnet den guten Pro¬ 
grammierer. 


4.10 Flags 

Oben wurde noch ein weiteres Prinzip effektiver Programmierung 
sichtbar. Man nennt es Flags (engl.: Flaggen). 

Diese Flaggen haben eine sehr wichtige Funktion in jedem Programm, 
das nicht nur die Grundfunktionen und -Strukturen verwendet, son¬ 
dern darüber hinaus verschiedene Zustände signalisieren kann, die 
dann in die Entscheidungsfindung einbezogen werden sollen. Bemühen 
wir noch einmal unser Beispiel: 
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If WarnFl Or BadehaUe=1 
Flag=1 
Endff 

. ... weiteres Progranm ... 

If Flag=1 And Zeit=1 
Baden=1 
Endif 

Es kann also ein Zustand an irgendeiner Programmstelle ausgewertet 
werden, dessen Ergebnis erst später zur Wirkung kommen soll. Es ist 
hier denkbar, daß die in "Flag" gespeicherte Information an mehreren 
Stellen im Programm ausschlaggebend sein soll. 

Um nun nicht an jeder dieser Stellen die Entscheidung treffen (und 
auch definieren) zu müssen, ob es warm ist oder ob die Badehalle auf 
ist, kann man diese Entscheidung bei frühestmöglicher Gelegenheit 
vornehmen und die Information, ob die Entscheidung positiv oder ne¬ 
gativ ausgefallen ist, in einer Variablen speichern und diese dann bei 
weiteren Gelegenheiten abfragen. 

Vielleicht weiß ich heute schon, daß es morgen warm sein wird, aber 
ich weiß heute noch nicht, ob ich morgen Zeit haben werde, baden zu 
gehen. Also treffe ich die zweite Teilentscheidung erst dann, wenn die 
dazu erforderlichen Umstände eingetreten sind. Im Beispiel wurde der 
Variablenname "Flag" willkürlich gewählt. Sie können dafür natürlich 
jeden beliebigen Variablennamen verwenden. 


4.11 Die Variablen 

Variablen haben in einem Programm dieselbe Funktion, wie wir sie 
aus der Mathematik kennen. Sie werden als Platzhalter für Größen 
oder Ausdrücke (numerische oder alphanumerische) eingesetzt, deren 
Inhalte erst im Programmverlauf ermittelt und zugewiesen werden und 
»ich im weiteren Programm ständig verändern können. Wir wissen also 
entweder zum Zeitpunkt der Programmentwicklung nur, "daß" etwas 
in diesen Variablen abgelegt wird, aber noch nicht "was", oder wir 
weisen ihnen im Programm-Listing Inhalte zu, die wir an den gegebe¬ 
nen Stellen für notwendig halten. 

Um keine Mißverständnisse auf kommen zu lassen: auf eine Art wissen 
wir im ersten Fall schon, "was" diese Variablen aufzunehmen haben, 
wir wissen nur nicht, welcher konkrete Inhalt es sein wird. Denn eine 
Entscheidung hat man von vorneherein selbst zu treffen. Nämlich, 
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welcher Variablentyp einzusetzen ist. Es gibt zwei grundlegend ver¬ 
schiedene Typen von Variablen. Das eine sind die numerischen, bzw. 
Werte-Variablen und das andere die alphanumerischen, bzw. Text¬ 
oder auch String-Variablen. 

Numerische Variablen haben die Aufgabe, Werte zu speichern. 
Hypo=SQR(22‘2+13‘2) ! Hypo = Wurzel aus (22 hoch 2+13 hoch 2) 

Ein Beispiel, das wohl alle aus der Schule kennen. Es werden die bei¬ 
den Kathetenlängen eines rechtwinkligen Dreiecks quadriert und die 
Quadrate addiert. Anschließend wird nach dem Satz des Pythagoras die 
Länge der Hypothenuse berechnet. Das Ergebnis dieser Berechnung 
wird nun der Variablen "Hypo" zugewiesen. Solange keine weiteren 
Werte an diese Variable übergeben werden, enthält sie nun also die 
Länge der Hypothenuse des angegebenen Dreiecks. Dieser Wert kann 
im Laufe des Programms beliebig oft erfragt oder auch durch Neuzu¬ 
weisungen verändert werden. 

Es gibt nun wieder drei verschiedene Typen (in V3.0 fünf) von nu¬ 
merischen Variablen. Wenn wir eine Zahl speichern wollen, die auch 
Nachkommastellen beinhaltet, also eine sogenannte Realzahl, wird nur 
der reine Variablenname angegeben. Diesen Typ haben wir im obigen 
Beispiel kennengelernt. Er benötigt zur Speicherung der ihm überge¬ 
benen Werte generell einen Speicherplatz von 6 Byte (in V3.0 8) pro 
Variable. Dadurch ist eine Genauigkeit von bis zu 11 (13) Stellen 
möglich. Wertezuweisungen, die über diese 11 (in V3.0 13) Stellen 
hinausgehen, werden automatisch auf die 11. (13.) Stelle gerundet: 

A=123.125237667231 ergibt A=123.12523767 

Bei ganzzahligen Anteilen von mehr als 11 Stellen (in V3.0 13) wird 
die übergebene Zahl automatisch in das Exponentialformat gewandelt: 

A=642653017623.527 ergibt A=6.4265301762E+11 

Andererseits werden Wertzuweisungen, die als "Normal"-Zahl darstell¬ 
bar sind und im Exponentialformat angegeben wurden, in das Nor¬ 
malformat gewandelt. 

A=1284.55E+5 ergibt A=128455000 

Im Exponentialformat sind Wertzuweisungen im Bereich von - 
1.3407807929E+154 bis 1.3407807929E+154 möglich. 
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Eine Exponentialzahl ist folgendermaßen zu lesen: 

54.6341E+7 entspricht 54.6341 * (10 ‘ 7) 

Ein weiterer Typ ist die Integerzahl. Dies sind Zahlen, die keine 
Nachkommastellen beinhalten sollen. Es können ihnen also nur Ganz¬ 
zahlen zugewiesen werden. Um wieder einem Irrtum vorzubeugen: es 
können natürlich auch Realzahlen zugewiesen werden. Nur, diese wer¬ 
den in einer Integervariablen nicht als solche gespeichert, sondern die 
evtl, mit übergebenen Nachkommastellen werden einfach "vergessen". 

A*=149.523 

PRINT AX 

=»========> Ausgabe: 149 

Um dem Interpreter klar zu machen, daß er es hier mit einer Vari¬ 
ablen des Integertyps zu tun hat, muß dem Variablennamen ein ’%’ 
(z.B. Var%) angehängt werden. Pro Variable benötigt dieser Typ einen 
Speicherplatz von 4 Bytes, woraus sich ein Integer-Bereich von - 
2147483648 bis 2147483647 ergibt. In V3.0 gibt es noch die 1- und 2- 
Byte-Integervariable. 

Der dritte numerische Typ ist die Boole-Variable. In ihr können aus¬ 
schließlich zwei Werte abgelegt werden. Wenn Sie sich später mit den 
einzelnen BASIC-Befehlen befassen werden, werden Ihnen mehrere 
Funktionen begegnen, die als Ergebnis ebenfalls nur zwei verschiedene 
Werte liefern können. Der eine Wert ist die Null. Dieser Wert gilt im 
Interpreter als der Wahrheitswert 0. Auch wenn er Wahrheitswert ge¬ 
nannt wird, ist dieser Wert stellvertretend für die Feststellung "falsch". 
Der andere Wahrheitswert ist die Zahl -1. Dieser Wert steht grund¬ 
sätzlich stellvertretend für die Feststellung "richtig". 

Warum für die Feststellung "richtig" eine -1 steht, hat seinen Grund in 
der sogenannten Zweierkomplement-Darstellung. In einem Longword 
sind in diesem Fall alle Bits "gesetzt" (angeschaltet), also auch das 
höchste. Daraus ergibt sich ein Minuswert. Dieses Verfahren hier zu 
erläutern, würde den gesetzten Rahmen sprengen. Als BASIC-Anfän- 
ger muß es sie im allgemeinen auch nicht näher interessieren. Kluge 
Köpfe werden evtl, weiter oben bei Words und Longwords schon 
stutzig, wo als maximaler Wertebereich 2^31-1 genannt wurde. Dieses 
liegt eben an der Zweierkomplementierung, die das oberste Bit als 
Minus-Identifikator verwendet. Sobald vor einer Zahl ein Minuszei¬ 
chen steht, wird das oberste Bit eines Longwords gesetzt und die Zahl 
vorzeichenlos von 2^31 abgezogen. Das daraus entstehende Bit-Muster 
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wird bei Zweierkomlementdarstellung als Minuswert interpretiert und 
dementsprechend zurückgegeben. 

PRINT BIN$(1) 

========> Ausgabe: 1 (1 Bit) 

PRINT BIN${2‘31-1) 

======»> Ausgabe: 1111111111111111111111111111111 (31 Bit) 

PRINT BIN$(-2'31) 

=======» Ausgabe: 10000000000000000000000000000000 (32 Bit) 

PRINT BIN$(-2'31+1) 

=======» Ausgabe: 10000000000000000000000000000001 (32 Bit) 

PRINT BIN*(-2'31+2) 

========> Ausgabe: 10000000000000000000000000000010 (32 Bit) 

PRINT BIN*(-2'31+2'15) 

======»> Ausgabe: 10000000000000001000000000000000 (32 Bit) 

PRINT BIN*(2‘31-2‘15) 

========> Ausgabe: 1111111111111111000000000000000 (31 Bit) 

A%=-1 

PRINT LPEEK(VARPTR(AX)) 

======»> Ausgabe: 11111111111111111111111111111111 (32 Bit) 

Zurück zu den Wahrheitswerten. Nehmen wir dazu als Beispiel den 
Befehl EXIST. Dieser hat die (oberflächlich gesehen) einfache Auf¬ 
gabe, festzustellen, ob eine bestimmte Datei auf der Diskette existiert 
oder nicht. Existiert die Datei, liefert EXIST den Wert -1. Andernfalls 
wird der Wert 0 zurückgegeben. Andere Werte können von dieser 
Funktion nicht geliefert werden, weil eben nur zwei Zustände auftre- 
ten können. Entweder die Datei existiert oder sie existiert nicht. Dar¬ 
aus ist der eigentliche Sinn der Boole-Variablen erkennbar. Überall 
dort, wo aus einer Entscheidungsfindung nur die Antworten "Ja" oder 
"Nein", bzw. "richtig" oder "falsch" resultieren kann, können Wahr¬ 
heitswerte in ihnen abgelegt werden. 

Die Boolevariable kann nur einen dieser beiden Werte aufnehmen. 
Selbst wenn Sie irgend einen beliebigen Wert zuordnen, wird der In¬ 
terpreter immer nur zwischen "falsch" (0) und "richtig" (-1) unter¬ 
scheiden. Alle Werte, die diesem Variablentyp übergeben werden und 
ungleich 0 sind, werden automatisch als 'wahr’, also -1 interpretiert 
und abgespeichert. Dieser Variablentyp hat den Vorteil, daß er zur 
Speicherung seiner Inhalte nur 2 Byte pro Variable benötigt. Will man 
eine Variable als Boolevariable verstanden wissen, muß man dem Va¬ 
riablennamen das Zeichen ’!’ (z.B. Var!) anhängen. 

In Text-, bzw. String-Variablen (String; engl.; Kette/Reihe/Schnur/ 
Saite) werden dagegen keine Werte, sondern Textzeichen abgelegt. Ge¬ 
naugenommen sind diese Zeichen ebenfalls Werte, wie wir es weiter 
vorn schon kennengelernt haben (ASCII-Zeichen). Nur bei dieser Art 
der Variablen "weiß" das BASIC, daß es die hier abgelegten Werte 
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nicht als Zahlen, sondern als ASCII-Zeichen zu interpretieren hat. 
Vorausgesetzt, es wurde ihm klargemacht, daß es sich hier um eine 
String-Variable handelt. Das macht man, indem man dem Variablen¬ 
namen ein (Doliarzeichen - z.B. Var$) anhängt. 

Eine String-Variable kann im GFA-BASIC eine Zeichenkette mit ei¬ 
ner Anzahl von 0 bis 32767 einzelner Textzeichen aufnehmen. Das 
heißt nun nicht, daß jede String-Variable einen Speicherplatz von 
32767 Byte (1 ASCII-Zeichen = 1 Byte) reserviert, sondern daß ein 
String mit maximal 32767 Zeichen übergeben werden kann. Die 
Länge, die eine solche Variable annimmt, hängt jeweils eben davon 
ab, wieviel Zeichen zugeordnet wurden. An Speicherplatz benötigt 
eine String-Variable soviel Byte, wie Zeichen vorhanden sind. Zusätz¬ 
lich werden zu jeder String-Variablen noch 6 Byte für einen Pointer 
(engl.: Zeiger) benötigt. 

Zu jeder String-Variablen existiert nämlich ein sogenannter Descriptor 
(engl.; Beschreiber), der sich selbstständig die Adresse, also den Stand¬ 
ort der Variablen im Speicher, sowie ihre Länge "merkt" (mehr dazu 
unter ARRPTR und "Variablenorganisation/-typen"). 

A*=''BASIC" 

PRINT "Der String hat eine Länge von ";LEN(A$);'' Zeichen" 

PRINT "Die Stringadresse ist ";VARPTR(A$) 

PRINT "Der Descriptor für A$ steht bei Adresse ";ARRPTR(A$) 

PRINT "Das erste Byte des Strings hat den Wert ";PEEK(Varptr(A$)) 

PRINT "Der Wert ";PEEK(VARPTR(A$));" repräsentiert das Zeichen 
PRINT CHRS(PEEK(VARPTR(A$))) 

Als erstes wurde hier der Variablen "A$" der String "BASIC" überge¬ 
ben. Anschließend wird mit der BASIC-Funktion LEN die Länge des 
Strings ermittelt. Um nun in Erfahrung zu bringen, wo das erste Zei¬ 
chen (Byte) dieses Textausdrucks im Speicher zu finden ist, kann mit 
der BASIC-Funktion VARPTR (was soviel wie "Variablenzeiger" 
heißt), die Adresse erfragt werden. Mit der Speicherlese-Funktion 
PEEK wird nun der Byte-Wert des ersten Zeichens aus der mit 
VARPTR ermittelten Adresse ausgelesen. Und zum Schluß wandelt die 
l'extfunktion CHR$ den so gelesenen Wert wieder zurück in ein 
Textzeichen, das genau der erste Buchstabe des übergebenen Strings 
Ist. 

Zählen Sie zu der mit VARPTR ermittelten Adresse eine 1 hinzu, ha¬ 
ben Sie die Adresse des zweiten Zeichens. Addieren Sie eine 2, erhal¬ 
len Sie die Adresse des dritten Zeichens usw. 
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AS="BASIC» 

PRINT "Das zweite Zeichen hat den ASCII-Wert ";PEEK(VARPTR(A$)+1) 

Wenn Sie den ganzen Variableninhalt auf dem Bildschirm sehen wol¬ 
len, geben Sie 

PRINT A$ 

ein und der String wird auf dem Bildschirm ausgegeben. 

Probieren geht über studieren! Zum obengenannten Thema finden Sie 
weitere Informationen unter 24.2. "Variablenorganisation/-typen". 


4.12 Matrix und Vektor 

Das hört sich fast an, wie der Titel eines Shakespeare-Dramas. Da es 
ja nicht langweilig werden soll und man außerdem ohne sie nicht aus- 
kommen kann, gibt es noch eine weitere Gattung der Variablentypen. 
Man nennt sie Felder oder Arrays (array = engl.: Aufstel¬ 
lung/Reihe/Ordnung). Wer in der Schule gut aufgepaßt hat, weiß, daß 
man zur Berechnung einer Funktionskurve mindestens zwei Größen 
benötigt. In den meisten Fällen werden dies die Größen "X" und "Y" 
gewesen sein. Der Berechnungsvorgang ist der, daß zu jeder ange¬ 
nommenen Größe "X" anhand einer Funktionsgleichung die Größe "Y" 
zu ermitteln war. Aus den Schnittpunkten dieser beiden Größen erga¬ 
ben sich dann die Punkte der Kurve. 

Diese beiden Werte stellten auf die jeweilige Funktion bezogen ein 
Koordinatenpaar dar. Um nun mit den jeweils zusammengehörenden 
Ordinaten-Werten nicht durcheinanderzukommen, kann man sich ein 
Feld einrichten. Dieser Vorgang ist nichts anderes, als das, was wohl 
die meisten unter dem Begriff Wertetabelle kennen. Solch ein zweidi¬ 
mensionales Feld wird auch als Matrix bezeichnet, wovon jede ein¬ 
zelne Dimension einen Vektor darstellt. 
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Ein Vektor (hier im Sinne von "Einheitsvektor") ist dagegen (im allge¬ 
meinen Verständnis) ein Feld, das nur eine Dimension besitzt und 
meist dazu verwendet wird, um mehrere Werte, die zu einer bestimm¬ 
ten Gruppe gehören, unter einer gemeinsamen "Überschrift" (dem Va¬ 
riablennamen) zusammenfassen und ordnen zu können. 

Weitere Informationen zum Umgang mit Feldern finden Sie unter DIM 
bzw. "Aufbau eines mehrdimensionalen Feldes". 

Außer den Boole-Variablen benötigen alle anderen Variablentypen in 
einem Array denselben Speicherplatz, den sie auch als Einzelvariable 
beanspruchen. Die Boole-Variable benötigt dagegen in einem Array 
pro Element nur einen Speicherplatz von einem einzigen Bit(!). 


4.13 Erkennungsdienst 

Mir ist immer wieder aufgefallen (auch an mir selber), daß eines der 
größten Probleme, eine Computersprache zu erlernen, darin besteht, 
daß man am Anfang in einem Listing nicht unterscheiden kann, was 
denn nun Befehle (also feststehende Begriffe) und was Namen (also 
frei bestimmbare Begriffe) sind. Dazu nun einige Grundregeln. 
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Die erste; Lernen Sie alle Befehlsnamen so schnell wie möglich aus¬ 
wendig. Alles andere können nur noch freie Begriffe sein! Vorsicht: 
Ironie, aber etwas Wahres ist an diesem banalen Satz. 

Wenn das so einfach wäre, wie es sich anhört. Gerade bei einer Spra¬ 
che wie GFA-BASIC, die in der V3.0-Version ca. 450 verschiedene 
Befehle, Funktionen, reservierte Variablen und Felder kennt, ist man 
schnell überfordert. 

In GFA-BASIC kann man ab der Version 2.02 problemlos auch Be¬ 
fehlsnamen als Variablennamen verwenden. Es gibt also bis auf reser¬ 
vierte Variablen (TIMER, GINTIN, DATES etc.) keine reservierten 
Begriffe mehr. Bei Prozeduren war es auch schon vorher möglich, zur 
Namensbildung Befehlsnamen zu verwenden, jedoch lassen sich diese 
relativ einfach von Befehlen unterscheiden. Eine Prozedur beginnt 
immer mit der Kennung PROCEDURE, eine Funktion immer mit der 
Kennung DEFFN und ein Label steht immer allein, bzw. evtl, mit ei¬ 
nem Kommentar (IKommentar) versehen und endet mit einem Dop¬ 
pelpunkt. 

Data label: 


oder 


Xyz_label.1: IKonmentar abc_xyz 

Prozedur-Aufrufe sind an dem vorangestellten GOSUB oder (3) zu er¬ 
kennen, während Funktions-Aufrufe immer mit FN oder (ebenfalls) 
mit @ beginnen. 

Gosub Proci oder SProcI 

XyX=Fn Funkt oder Xy*=aFunk1 

Bei Labels sind nur solche Bezeichnungen möglich, die vom Interpre¬ 
ter nicht falsch verstanden werden können. Z.B. wird ein Label mit 
dem Namen Save: in den Befehl SAVE oder der Name Fileselect: in 
FILES "elect." umgewandelt. 

Der Label-Name Print: ist z.B. also ohne weiteres möglich, sollte je¬ 
doch zugunsten der besseren Überschaubarkeit unterbleiben. 

Wie vorn schon ausgeführt, haben Variablen (bis auf Real-Variablen) 
alle eine Endkennung. Integervariablen erhalten ein ’%’ (Var%), Boole- 
Variablen ein ’!’ (Var!) und String-Variablen ein ’$’ (Var$). Diese sind 
also ebenfalls an ihren Kennungen leicht auszumachen. 
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Als Namen können beliebig lange Bezeichnungen eingesetzt werden, 
die sich aus den normalen Textzeichen (A-Z/a-z/0-9), sowie dem 
Tiefstrich _ und dem Punkt . zusammensetzen können. Bei Namen 
von Variablen und Funktionen muß das erste Zeichen allerdings ein 
Buchstabe sein. 

V.ariB_blen_name.1 
Feld_titel.xyzX(0im1,0iin2,...) 

1: <- Soll ein Label seinl 

PROCEDURE 1724 von_a.bis.z 
DEFFN hardcopySxX»YX 

Um allen Irritationen aus dem Wege zu gehen, können Sie bei Pro¬ 
grammen, die Ihnen nicht nur auf dem Papier begegnen, sondern die 
Sie in den BASIC-Editor laden und dort listen können (.BAS- und 
.LST-Files) einen Komfort-Befehl des GFA-BASIC verwenden. Drüc¬ 
ken Sie, nachdem Sie das Programm geladen haben, die <Esc>-Taste. 
Geben Sie nun im Direktmodus 

OK >deflist 0 

ein und bestätigen Sie die Eingabe mit <Return>. Nachdem Sie zum 
Editor zurückgefunden haben (<Esc> <Return>, Eingabe von ’ed’ und 
<Return> bzw. Drücken von <Control>+<Shift>+<Alternate>) werden 
Sie feststellen, daß sich die Darstellung des Listings geändert hat. Es 
werden nun alle Befehlsnamen in Großbuchstaben und alle anderen 
Namen in Kleinbuchstaben dargestellt. Für den Anfänger ist dies eine 
gewaltige Hilfe. 

Wenn Sie sich einige Zeit mit GFA-BASIC beschäftigt haben, werden 
Sie diese Hilfe sicher nicht mehr benötigen, da sich allein aus der Lo¬ 
gik der Syntax schon eine eindeutige Bestimmung ergibt. Ein Name, 
hinter dem ein Gleichheitszeichen steht, kann z.B. nur eine Variable 
sein und ein Name, dem ein "(3)" vorangestellt ist und der direkt am 
Zeilenanfang steht, kann nur ein Prozeduraufruf sein. Befindet sich 
dagegen vor einem Namen mit vorangestelltem ein Gleichheits¬ 
zeichen, kann es sich nur um einen Funktionsaufruf handeln usw. 

Ich komme wieder auf den obigen "Spruch" zurück. Setzen Sie sich am 
Anfang zuerst mit den Grundlagen-Befehlen (PRINT, INPUT, READ, 
DATA, PEEK, POKE, GOSUB etc.) auseinander und versuchen Sie, 
die übrigen Komfort-Befehle und -Funktionen erst einmal weitestge¬ 
hend zu ignorieren. Wenn Sie in den Grund-Befehlen sattelfest sind, 
erweitern Sie Ihren Sprachschatz nach und nach um die restlichen Be¬ 
fehle. 
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4.14 Schleifenstrukturen 

Eine Schleife nennt man jede Form von Programmstruktur, die be¬ 
wirkt, daß ein ganz bestimmter Programmblock mehrmals nacheinan¬ 
der durchlaufen wird. In GFA-BASIC sind vier solcher Loops (Loop = 
engl.: Schleife) verwendbar. 

1. FOR...NEXT-Schleife 

2. DO...LOOP-Schleife 

3. REPEAT...UNTIL-Schleife 

4. WHILE...WEND-Schleife 

Untersuchen wir als erstes zwei Typen, die Bedingungsabfragen im¬ 
plizit verwenden. 


Die REPEAT,..UNTIL-Schleife 

Der Schleifendurchlauf wird durch die Anweisung REPEAT eingelei¬ 
tet. Im Anschluß an diese Anweisung folgt nun ein beliebig großer 
Programmblock, der wiederholt ausgefUhrt werden soll. Die Eigenart 
dieser Schleife ist eine Bedingungsabfrage am Ende, also am Wende¬ 
punkt der Schleife. Die dort gestellte Bedingung bestimmt, wie oft die 
Schleife durchlaufen werden soll, bzw. unter welchen Bedingungen die 
Schleife nicht mehr durchlaufen werden soll. Der Schleifenwendepunkt 
heißt hier UNTIL. Dieser Umkehr-Anweisung wird die genannte Be¬ 
dingung beigestellt. 

REPEAT 
INC A 
B=SQR(A) 

PRINT "Wurzel aus ";A;" « ";B 
UNTIL B=15 OR A=200 

Innerhalb der Schleife wird hier ein Zähler (A) durch INC bei jedem 
Durchlauf um 1 erhöht, anschließend die Wurzel daraus ermittelt und 
die beiden Werte ausgegeben. Wie Sie sehen, bestimmt die Bedingung 
B=15, daß die Schleife so oft durchlaufen wird, bis der Wurzelwert 
mit der Zahl 15 identisch ist. Wie auch bei IF-Abfragen können hier 
die Bedingungen mit logischen Operatoren verknüpft werden. So wird 
hier die Schleife auch (unabhängig von B) verlassen, wenn der Zähler 
den Wert 200 erreicht. 

Die wesentliche Eigenart dieses Schleifentyps ist, daß der Schleifenin¬ 
halt auf jeden Fall mindestens einmal durchlaufen wird, da die Bedin¬ 
gungsabfrage erst am Ende der Schleife erfolgt. 
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Anders ist es bei der WHILE...WEND-Schleife. Diese wird dagegen 
gar nicht durchlaufen, wenn die Abbruchbedingung bereits bei Er¬ 
reichen der Schleife erfüllt ist. 

A=11 

UHILE A<10 
INC A 

PRINT SQRCA) 

UEND 

Der Programmblock innerhalb der Schleife wird nicht ausgeführt. Der 
Schleifeneinstieg WHILE (engl.; während/solange) sagt aus, daß der 
Block solange durchlaufen werden soll, wie A kleiner als 10 ist. Da A 
bereits vorher größer ist, wird das Programm sofort hinter dem Wen¬ 
depunkt WEND fortgesetzt. 

Für den Fall, daß die Schleife durchlaufen wird, wird bei jedem 
Durchlauf geprüft, ob die bei WHILE gestellte Bedingung erfüllt ist. 
Ist sie das, wird der Block nicht noch einmal ausgeführt und das Pro¬ 
gramm ebenfalls hinter WEND fortgesetzt. Auch hier können, bei An¬ 
gabe mehrerer Bedingungen, diese logisch verknüpft werden. 

Eine sehr gebräuchliche Schleifenform, die FOR...NEXT-Schleife, 
verwendet dagegen keine Bedingung dieser Art, sondern führt die 
Schleife so oft aus, wie in einer Zählanweisung vorgegeben wird. 

FOR AX=1 TO 225 
B=SQR(AX) 

PRINT "Wurzel aus ";A%;" = ";B 

NEXT AX 

In der FOR-Zeile wird eine beliebige Zählvariable (hier A%) angege¬ 
ben, die im Verlauf der Schleife solange um den Wert 1 (hier begin¬ 
nend mit 1) erhöht wird, bis sie den Endwert (hier 225) erreicht hat. 
Der Schleifen Wendepunkt wird durch die Anweisung NEXT gekenn¬ 
zeichnet. Dieser Anweisung ist der Name der verwendeten Zählvari¬ 
ablen beizustellen. Die FOR...NEXT-Schleife verfügt noch über einige 
Varianten, die Sie aus der Befehlsbeschreibung zu FOR...NEXT ent¬ 
nehmen können. 

Eine Schleife ohne Bedingungsabfrage oder Zähler ist die DO...LOOP- 
Schleife. Dieser Schleifentyp führt den zwischen DO und LOOP ein¬ 
geschlossenen Programmblock unendlich lange aus. Es kann keine Ab¬ 
bruchbedingung implizit definiert werden. 
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DO 

INC AX 
B=SQR(AX} 

PRINT "Wurzel aus ";AX;" = ";B 
LOOP 


Soll eine DO...L(X)P-Schleife abgebrochen werden, hat man nur die 
Möglichkeit, entweder die Tasten-Kombination <Control/Shift/ 
Alternate> zu drücken oder eine spezielle Abbruchbedingung zu stel¬ 
len. Diese Abbruchbedingung heißt EXIT IF (siehe dort). 


Bei allen Schleifenarten ist es möglich, diese ineinander zu verschach- 
teln. Es kann also in einer Schleife eine weitere, gleich welcher Art, 
aufgerufen werden. 

UHILE IX<10 
INC IX 

FOR J=1 TO 10 
REPEAT 
INC K 

PRINT "IX = ";IX;" J = ";J;" K = ";K 
UNTIL K>IX*10 
NEXT J 
UENO 


Bei Verschachtelungen dieser Art ist darauf zu achten, daß die jewei¬ 
ligen Schleifenwendepunkte (NEXT/UNTIL/LOOP/WEND) in der 
umgekehrten Reihenfolge ihrer Startanweisungen (FOR/REPEAT/ 
DO/WHILE) gesetzt werden. 


Falsch: 


REPEAT 
UHILE A<10 
UNTIL A=10 
UEND 


Falsch: 


FOR 1=1 To 10 
FOR J=1 To 10 
NEXT I 
NEXT J 


Richtig: 


REPEAT 
UHILE A<10 
UEND 

UNTIL A=10 


Richtig: 


FOR 1=1 To 10 
FOR J=1 To 10 
NEXT J 
NEXT I 


Sollten Sie diese Reihenfolge nicht einhalten, wird Ihnen der Inter¬ 
preter bei Programmstart einen "Schwarzen Peter" überreichen. 

Diejenigen, die es von anderen BASIC-Interpretern her gewohnt sind, 
Schleifen anhand von GOTO-Anweisungen zu konstruieren, sollten 
sich frühzeitig angewöhnen, dafür eine der obigen Schleifen-Kon- 
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sich frühzeitig angewöhnen, dafür eine der obigen Schleifen-Kon- 
struktionen einzusetzen. Dieses hat einen wesentlichen Vorteil. GOTO- 
Anweisungen werden in GFA- BASIC nicht als Struktur-Elemente 
anerkannt. D.h. also, daß Schleifen nicht auf Anhieb erkennbar wären, 
während man GFA-Loops sofort an der Zeileneinrückung erkennen 
kann. 


Standard-BASIC : 


10 A=A'*'1 :Print A;:If A<20 Then Goto 10 


GFA-BASIC: 


Label; 

INC A 
PRINT A; 

IF A<20 
GOTO Label 
ENDIF 


I In diesem Fall würde man 
I natürlich eine F0R...NEXT- 
I Schleife verwenden. Hier 
I sollen jedoch nur die 
! verschiedenen Strukturen 
I von Schleifen aufgezeigt werden. 


Besser: 


UH ILE A<20 oder 

INC A 
PRINT A; 

UEND 


DO oder 

INC A 
PRINT A; 

EXIT IF A=>20 
LOOP 


REPEAT 
INC A 
PRINT A; 
UNTIL A=>20 


4.15 Vergleichsoperationen 

Bei der vorangegangenen Beschreibung der Schleifenstrukturen wurden 
mehrfach sogenannte Vergleichsoperatoren verwendet. 


<> bzw. >< 
<= bzw. =< 
>= bzw. => 


Gleich 

ITngefShr gleich (25-Bit-VergIeich) 

Kleiner 

GröBer 

Ungleich 

Kleiner oder gleich 
Größer oder gleich 


Diese Operatoren können also eingesetzt werden, um zwei Werte oder 
Textausdrücke miteinander zu vergleichen. 

PRINT "ABC">"BCD'' 


oder 
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A$="eins" 
B$=''zwei“ 
PRINT A$<>B$ 


oder 


PRINT 123=234 


oder 


AX=17356 
B=651423.241 
PRINT AX<B 

Diese Beispiele wirken etwas seltsam, erhalten jedoch dann einen Sinn, 
wenn man weiß, daß als Ergebnis eines Vergleichs immer ein Wahr¬ 
heitswert (0 oder -1) geliefert wird. Die Beispiele 1 und 3 würden 
demnach eine Null (falsch) als Ergebnis ausgegeben, da der String 
ABC nicht größer ist, als der String BCD und auch der Wert 234 nicht 
gleich dem Wert 123 ist. Die Beispiele 2 und 4 liefern dagegen eine -1 
(wahr), da A$ und B$ tatsächlich ungleich (<>) und "A%" kleiner als 
"B" ist. 

Auch hier ist eine sinnvolle Anwendung der Boole-Variablen denkbar, 
indem man die ermittelten Wahrheitswerte an eine solche Variable 
übergibt. 

Sie werden sich evtl, fragen, wie man denn Textausdrücke auf 
"größer" oder "kleiner" prüfen kann. Das geht folgendermaßen vor 
sich: Sollen zwei Textausdrücke verglichen werden, geht das BASIC 
der Reihe nach alle Zeichen der beiden Ausdrücke durch und ermit¬ 
telt, welches der beiden verglichenen Zeichen den größeren ASCII- 
Wert besitzt. Der Ausdruck, der in einer der verglichenen Positionen 
das Zeichen mit dem größeren ASCII-Wert enthält, ist somit der 
"größere" String. Beim Vergleich zweier Strings auf "kleiner" wird das 
gleiche Verfahren angewandt. Nur ist hier eben der "kleinere" String 
der, der zuerst ein Zeichen enthält, dessen ASCII-Wert kleiner ist, als 
der des verglichenen Zeichens des anderen Strings. 

Haben die beiden Strings ungleiche Längen und hat der Vergleich bis 
zum Ende des kürzeren Strings keine Unterschiede zwischen beiden 
Strings aufgewiesen, so ist beim Vergleich auf "größer" der längere 
String auch der größere, bzw. beim Vergleich auf "kleiner" der kürzere 
String der kleinere. 
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Beim Vergleich von Textausdrücken ist allerdings darauf zu achten, 
daß alle "normalen" Textzeichen einmal in großgeschriebener Form 
(A-Z/ASCII 65-90) und einmal kleingeschrieben (a-z/ASCII 97-122) 
existieren. Um also einen tatsächlich gültigen Vergleich auf alphabe¬ 
tische Reihenfolge durchzuführen, müßten beide Textausdrücke vor¬ 
her vollständig entweder in Groß- oder Kleinschrift übertragen wer¬ 
den (siehe UPPERS). 

PRINT '•ABC"<“ABCD"="abc">"abcd" 

Dieses fiktive Beispiel ist sicher nicht auf Anhieb zu verstehen. Zuerst 
werden die ersten beiden Ausdrücke getestet. Da ABC kleiner ist als 
ABCD, ergibt sich daraus der Wahrheitswert -1. Anschließend ergibt 
sich aus dem Vergleich abc > abcd der Wahrheitswert 0. Diese beiden 
Wahrheitswerte werden nun auf Gleichheit getestet. Da sie ungleich 
sind, wird der Wert 0 (= falsch) geliefert. 

Enthalten die Strings auch andere Zeichen als die von A-Z (Ziffern, 
Leerzeichen, Satzzeichen), werden diese nach demselben Schema in 
den Vergleich mit einbezogeh. Siehe dazu auch unter MAX bzw. MIN. 


4.16 Vorfahrtsregeln 

Richtig heißt es natürlich Vorrangregeln oder Prioritäten. Gemeint ist 
damit die Reihenfolge, nach welcher die verschiedenen arithmetischem 
Operationen ausgeführt werden. Aus der Mathematik werden wohl den 
meisten Konstrukte wie das folgende oder ähnliche bekannt sein: 

X=Sqr(12'3+(36-22*1.2)-(-V3))*Sin(13) 

Formeln dieser Art werden nach folgender Rangfolge aufgelöst: 

1. Funktionen: Sqr, Tan, Atn etc. sowie DEFFN-Funktionen. 

2. Klammern: ( ) Erst innere, dann äußere Klammern. 

3. Potenzierung: ^ 

4. Negation: - 

5. Multiplikation/Division: * , / 

6. Modulo/Ganzahldivision: MOD , DIV od. \ 

7. Addition/Subtraktion: + , - 

Da auch Vergleichsausdrücke und logische Verknüpfungen in dieser 
Form angegeben werden können, werden diese in die Rangfolge mit 
eingeordnet. 
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8. Vergleichsoperatoren: =, ==, <>, >, <, =>, <= 

9. Logische Operatoren: AND,OR,NOT,XOR,IMP,EQV 

PRINT (12'3+(36-22-1.2)-(-4/3))*3>U‘3 

oder 


A=(12‘3+(36-22‘1.2)-(-4/3))»3 AND 14-3 

Werden innerhalb eines arithmetischen Ausdrucks nur gleichwertige 
Operatoren verwendet, werden diese der Reihe nach von links nach 
rechts ausgeführt. Wollen Sie diese Reihenfolge durchbrechen, können 
Sie die Berechnungen, die zuerst behandelt werden sollen, in Klam¬ 
mern einfassen. In einer Klammer werden die Operationen wieder in 
der üblichen Rangfolge bearbeitet. 


4.17 Fingerübungen 

Im bisherigen Verlauf dieses Kapitels wurden schon einige BASIC- 
Befehle vorgestellt. Da ihre Verwendung sich aus dem jeweiligen Zu¬ 
sammenhang ergab, gehe ich davon aus, daß hier eine Vorstellung der 
wichtigsten Grundlagenbefehle und ihre Verwendungsmöglichkeiten 
angebracht ist. 

Wie in Programmier-Lehrbüchern üblich, besteht das erste Programm 
eines Computerneulings daraus, den Satz "Hello World" auf dem Bild¬ 
schirm auszugeben. Ich möchte hier nicht nachstehen, wobei ich der 
Meinung bin, daß in BASIC die Bildschirmausgabe eines beliebigen 
Textes derart leicht ist, daß ein erheblicher Lernerfolg daraus nicht 
herzuleiten ist. 

Die Initialisierung und Bedienung des Computers wird Ihnen wohl 
dank der Atari-Bedienungsanleitung mittlerweile geläufig sein. Und 
wie der GFA-Interpreter gestartet wird, bzw. welche Bedienungs¬ 
funktionen zu beachten sind, wurde Ihnen ja bereits weiter vorn er¬ 
läutert. Sie haben nun - bis auf die zwei Menüzeilen am oberen 
Bildrand - einen leeren Editor-Bildschirm vor sich. Der Cursor - das 
ist das kleine schwarze Rechteck oben links in der Ecke - zeigt Ihnen 
an, wo bei der nächsten Tastenbedienung ein Schriftzeichen erscheinen 
wird. 

Geben Sie nun bitte über die Tastatur ein: 


p "Hello World 
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und drücken Sie anschließend die <Return>-Taste. Hier begegnet Ih¬ 
nen gleich ein wesentlicher Vorteil des GFA-BASICs. Die meisten 
Befehle können anhand von Kürzeln eingegeben werden. Sie werden 
bemerkt haben, daß der Interpreter selbstständig die Eingabe auf 

Print “Hello World" 

erweitert hat. Dieser Komfort hat bei einigen Befehlen erhebliche 
Wirkung, da es mit Sicherheit wesentlich schneller geht, z.B. statt 
GRAPHMODE einfach nur ein "g" schreiben zu müssen. 

Probieren Sie es aus; Schreiben Sie einfach in die nächste Zeile ein 
"g r (in V3.0 "gr 1"), drücken Sie die <Return>-Taste und schon steht 
da Graphmode 1. Fahren Sie nun mit der Cursor-Taste Pfeil aufwärts 
(die Taste zwischen Insert und CIrHome im mittleren kleinen Tasten¬ 
block) den Cursor eine Zeile aufwärts auf die Graphmode-Zeile, 
drücken Sie <Control>+<Delete> gleichzeitig und schon ist die zweite 
Zeile auf Nimmerwiedersehen verschwunden. 

Außerdem müssen bei Texteingaben nur die Einführungszeichen ge¬ 
setzt werden. Das BASIC erkennt das Textende selbständig. 

PRINT "Text 


oder 


A$="Text 


Wir haben es bei dem GFA-BASIC-Interpreter mit einem äußerst 
komplexen Programm zu tun, dessen Leistungen erst bei längerer Ar¬ 
beit deutlich werden. 

Ich vergleiche es für mich immer mit einem Qualitätsauto. Der Un¬ 
terschied zwischen drei bestimmten deutschen Autofirmen und ihren 
Konkurrenten besteht meistens in den fast unmerklichen Kleinigkei¬ 
ten. Und wenn es nur das Geräusch des Türöffnens ist. Bei der einen 
Marke tut man es, weil man einsteigen will. Bei der anderen macht 
man die Tür wieder zu, um sie noch einmal öffnen zu dürfen - das 
Geräusch ist so schön! Dieses Beispiel ist natürlich stark übertrieben, 
macht jedoch das Wesen der Qualität deutlich: Auf die Kleinigkeiten 
kommt es an. Sie werden bei der Arbeit mit GFA-BASIC immer wie¬ 
der auf solche angenehmen Kleinigkeiten stoßen und es sollte Ihnen 
selbst bei der Entwicklung Ihrer eigenen Programme immer nahelie¬ 
gen, auf diese Kleinigkeiten zu achten. 
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Aber weiter mit unserem ersten Programm. Sie haben nun mehrere 
Möglichkeiten, Ihr kleines Programm zu starten. 

1. Sie können mit dem Mauszeiger nach rechts oben in die Bild¬ 
schirmecke auf "Run" fahren und die linke Maustaste drücken. 

2. Sie können <Shift>-Taste und <F10> gleichzeitig drücken. 

3. Sie schalten in den Direktmodus um und geben dort den Befehl 
"ru" (Abk. für "Run") ein, gefolgt von der <Return>-Taste. 

In jedem dieser Fälle wird der Bildschirm gelöscht, Ihr freundlicher 
Gruß oben links auf den Bildschirm geschrieben und eine sogenannte 
Alert-Box mit dem Hinweis "Programmende" ausgegeben. Nachdem Sie 
nun die <Return>-Taste gedrückt oder mit dem Mauszeiger auf "Re¬ 
turn" geklickt haben, kehrt der Interpreter wieder zum Eingabe-Editor 
zurück. Damit dürfte eigentlich der Grundstein für Ihre Program¬ 
miererkarriere gelegt sein. Alles andere ist nur Übung. 

Das Spiel, das wir oben veranstaltet haben, ist im eingentlichen Sinne 
noch nicht als Programm zu bezeichnen. Bei einer einfachen PRINT- 
Anweisung handelt es sich lediglich um einen einzelnen Programm¬ 
schritt. Erst das sinnvolle Aneinanderreihen von mehreren Programm¬ 
schritten bildet ein Programm. 

Für den Anfang kann es jedoch nützlich sein, sich nach und nach mit 
den Möglichkeiten vertraut zu machen. Um ein wenig zu probieren, 
klicken Sie mit dem Mauszeiger im Menükopf des Editors das Feld 
"Direct" an. Sie sehen jetzt am linke Bildrand die Eingabeaufforderung 
"OK >". Dies ist der sogenannte Direkt- oder Kommandomodus. Auf 
dieser Ebene haben Sie nicht die Möglichkeit Programme zu schreiben, 
sondern können jeweils nur eine Befehlszeile (max. 255 Zeichen) ein¬ 
geben, die nach Druck auf die <Return>-Taste direkt ausgeführt wird. 

Geben Sie bitte ein: 

OK >p ''Hello World 

Gleich unter der Eingabezeile erscheint nun: 

Hello World 

Sie sehen, daß jeder Befehl sofort nach <Return> ausgeführt wird. Im 
Direktmodus haben Sie also eine gute Möglichkeit, erst einmal einige 
Befehle in Ruhe auszuprobieren. Es gibt zwar Befehle, die hier nicht 
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ausführbar sind (Befehle, die mehr als eine Zeile für ihre korrekte 
Struktur benötigen), aber zur Übung ist der Direktmodus bestens ge¬ 
eignet. 

Versuchen Sie es noch einmal; 

OK >a 1,“Meine erste[Alert-Box",1,“ Na jtoll“,a 

und nun <Return> drücken. So einfach ist das! Wenn Sie genug geübt 
haben, gelangen Sie durch <Esc> und anschließendem <Return> oder 
durch Drücken der Abbruchtasten <Control/Shift/Alternate> wieder 
zurück in den Editor. 

Wieder im Editor? Gut, dann schreiben Sie nun Ihr erstes richtiges 
Programm. 

Das wichtigste an einem Programm sind in jedem Fall die Eingabe- 
und Ausgabe-Anweisungen. Sicher sind andere Befehle auch wichtig, 
aber ohne die E/A-Befehle (in Engl.: I/O = Input/Output) geht gar 
nichts. Also werden wir damit beginnen: 

REPEAT 

CLS 

INPUT "Wie heissen Sie “;Name* 

INPUT "Wie alt sind Sie ";AlterX 
PRINT "Drücken Sie bitte <Return>" 

UNTIL INP(2)=13 

PRINT "Ihr Name ist also ";Name$ 

PRINT "Sie sind ";AlterX;" Jahre alt." 

Innerhalb der REPEAT...UNTIL-Schleife wird Ihr Name und Alter 
erfragt. Zuvor wird durch CLS der Bildschirm gelöscht und der Cur¬ 
sor in die linke, obere Bildschirmecke gebracht. Im Anschluß an die 
Eingaben, die jeweils durch <Return> abzuschliessen sind, werden die 
Daten in Variablen gespeichert. Der Name als STRING in einer 
String-Variablen und das Alter als numerischer Wert in einer Integer¬ 
variablen. Danach werden Sie durch den PRINT-Befehl aufgefordert, 
nochmals <Return> zu drücken. In die UNTIL-Bedingungsabfrage 
wurde ein zweiter Eingabe-Befehl eingebunden, der auf eine einzelne 
Taste wartet. Wird nun <Return> (ASCII-Wert = 13) gedrückt, wird 
die Schleife verlassen und Ihre Eingabe - mit einem Kommentar ver¬ 
sehen - wieder ausgegeben. Drücken Sie eine andere Taste, wird die 
Schleife wiederholt, indem zuerst der Bildschirm wieder gelöscht wird 
und das Spiel von vorn beginnt. 
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An den beiden abschließenden PRINT-Befehlen ist zu erkennen, daß 
die Ausgabe varriert werden kann. Durch das Format-Symbol kön¬ 
nen PRINT- Ausgaben verkettet werden. Dabei ist es egal, in welcher 
Reihenfolge die Ausdrücke stehen. 

Eine PRINT-Zeile kann z.B. auch so aussehen: 


A*="Text'‘ 

PRINT LEN(A*)'• "A$;" in GFA-";CHR$(66);''ASIC",CRSCOL'INP(2); 

Eine solche Zeile kann also sehr bunt gemischt sein. Oben wird zuerst 
die Variable A$ mit dem Text Text initialisiert. Mit LEN(A$) wird 
die Länge des in A$ gespeicherten Textes, der Inhalt von A$ selbst, 
ein direkter String-Ausdruck (in GFA-), ein einzelnes ASCII-Zeichen 
(ASCII 66 = B), wieder ein Direkt-String (ASIC), die aktuelle Cursor- 
Position (CRSCOL) und zu guter Letzt eine Tastaturabfrage (INP(2)) 
in die Zeile eingebunden. Während(!) der Textausgabe werden die in¬ 
tegrierten Funktionen bearbeitet und nach Erledigung ihr Ergebnis 
ebenfalls ausgegeben. So wird die Tastaturabfrage INP(2) erst bear¬ 
beitet, nachdem schon der übrige Text angezeigt wurde. Es sind ge¬ 
nerell alle Funktionen (ergebnisliefernde Operationen) in einer 
PRINT-Zeile einsetzbar. 

Zur Verkettung der Ausdrücke wurden außerdem noch zwei weitere 
Format- Symbole verwendet. Ein Komma zwischen den Ausdrücken 
bewirkt, daß die darauffolgende Ausgabe an der nächsten von 5 Ta¬ 
bulatorpositionen erfolgt (siehe PRINT). Ein Apostroph dagegen gibt 
nur ein einzelnes Leerzeichen an der Position aus, an der es im Aus¬ 
druck steht. Das Semikolon haben Sie oben schon kennengelernt. In 
diesem Fall wurde es ganz am Ende der Zeile eingesetzt, um zu er¬ 
reichen, daß die nächste PRINT-Ausgabe (bzw. auch OUT und 
WRITE) oder INPUT-Eingabe (oder auch INP, INPUTS etc.) direkt 
hinter dem zuletzt angezeigten Text positioniert wird. 

Durch 

PRINT ATdO.IO); 

INPUT "Eingabe: ",A$ 

können Sie also auch die Position von Eingabe-Anweisungen bestim¬ 
men, wobei jedoch nach erledigter Eingabe der Cursor generell an den 
Anfang der nächsten Zeile zurückspringt. Im letzten Beispiel habe ich 
Ihnen wieder zwei neue Varianten vorgestellt. Durch den Zusatz 
AT(X,Y) kann die Cursor-Position beliebig auf dem Bildschirm be¬ 
stimmt werden (siehe PRINT). Außerdem habe ich in der INPUT- 
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Zeile ein Komma hinter dem Eingabekommentar eingesetzt, um damit 
zu erreichen, daß die Eingabe ohne Frage- und Leerzeichen direkt 
hinter dem Kommentar beginnt. 

Vergleichen Sie: 

INPUT "Eingabe: ";A* 

INPUT "Eingabe: ",AS 

Unter den Befehlsbeschreibungen finden Sie noch weitere E/A-Be- 
fehle, die an Möglichkeiten fast keine Wünsche mehr offen lassen. 

Versuchen wir uns nun ein wenig an der Grafik. 

Möchten Sie lieber Kreise oder Rechtecke zeichnen? Oder vielleicht 
eine Freihandlinie? Alles kein Problem! Fortschrittliche BASIC-Dia- 
lekte haben selbstverständlich ein reichhaltiges Angebot an grafischen 
Befehlen. Das ist ganz und gar nicht so selbstverständlich, wie es uns 
heutzutage erscheint. Vor nur wenigen Jahren mußten die Algorithmen 
dazu noch per Hand geschrieben werden - und wer weiß schon aus 
dem Stehgreif, wie ein Kreis oder eine Ellipse konstruiert wird. 

Wir haben es da einfach. In der Befehlsliste im Anhang finden Sie 
eine Fülle von Grafikbefehlen, deren Bedienung denkbar einfach ist. 
Unser Bildschirm ist in Hires (High Resolution = engl.: hohe Auflö¬ 
sung), also bei Betrieb eines Schwarz/Weiß-Monitors in 640 Bild¬ 
punkte horizontal und 400 Bildpunkte vertikal eingeteilt. Der Bild¬ 
punkt mit der Koordinate 0/0 liegt üblicherweise (siehe OPENW) in 
der äußersten linken, oberen Bildschirmecke. Durch dieses Wissen läßt 
sich nun jeder einzelne Bildschirmpunkt auch einzeln benennen. Sie 
müssen sich also nur entscheiden, an welcher Bildschirmposition Sie 
ein Grafik-Objekt sehen möchten, übergeben dem Befehl die ent¬ 
sprechenden Koordinaten und schon erscheint das Objekt. Die fol¬ 
gende Zeile zeichnet eine Ellipse, deren Zentrum genau in der Mitte 
des Bildschirms liegt: 

ELLIPSE 320,200,310,190 

Die ersten beiden Parameter bestimmen die Position, der dritte den 
horizontalen Radius und der vierte den vertikalen Radius der Ellipse. 
Diese Koordinatenangaben beziehen sich - wie gesagt - auf Hires. Bei 
Farbmonitoren gibt es zwei Auflösungsstufen. Die eine ist Midres 
(Middle Resolution = engl.: mittlere Auflösung) mit einer Einteilung 
von 640 horizontalen und 200 vertikalen Bildpunkten. Die zweite ist 
Lowres (Low Resolution = engl.: niedrige Auflösung) mit 320 hori- 
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zontalen und 200 vertikalen Punkten. Mit diesen Informationen und 
den Beschreibungen der Befehle werden Sie sicherlich keine größeren 
Probleme mit der Grafik haben. 

Malen Sie doch mal ein kleines Bild mit dem folgenden Programm. 


DeffiU ,2,4 

1 FüUmuster einstellen 


Do 

1 Hauptschleifenstart - 


Repeat 

! 1. REPEAT-Schleife . 

1 

Until Mousek 

! wartet auf Mausklick . 


Mouse X,Y,K 

! Mauskoordinaten in X,Y 


Repeat 

! 2. REPEAT-Schleife . 

, 

Mouse Xx,Yy,K 

1 Neue Koordinaten in Xx,Yy 

1 

1 

If Mousek=1 

1 Linke Maustaste? 

1 

Line X,Y,Xx,Yy 

1 Dann Linie zeichnen 

1 

1 

X=Xx 

1 Neue Koordinaten werden 

1 

1 

Y=Yy 

1 Alte Koordinaten 

1 

Endif 

1 

1 

If Mousek=2 

1 Rechte Maustaste? 

1 

Flag!=True 

1 merken 

1 

Graphmode 3 

1 Grafikmodus XOR 

1 

1 

Box X,Y,Xx,Yy 

1 Box zeichnen 

1 

Box X,Y,Xx,Yy 

1 Box löschen 

1 

Graphmode 1 

! Grafikmodus Replace 

1 

1 

Endif 

1 

1 

If Mousek=3 

1 Beide Maustasten? 


Flag!=False 

1 Merker löschen 

I 

1 

FiU Xx,Yy 

1 Ab Mausposition füllen 

1 

1 

Endif 

! 

1 

1 

Until Mousek=0 

1 Maustaste losgelassen? - 

. 1 

If Flagl=True 

1 Merker für Maustaste 2? 


Flag!=False 

1 Merker löschen 


Box X,Y,Xx,Yy 

I Box nochmal zeichnen 


Endif 

1 


Loop 

! Zurück zum Anfang . 

... 


Hier finden Sie gleich ein Beispiel für den Einsatz von Flags. Flag! ist 
hier eine völlig beliebige Boole-Variable, die die Aufgabe hat, sich zu 
merken, ob in der 2. REPEAT-Schleife die rechte Maustaste gedrückt 
wurde. Wurde sie das, wird im XOR-Modus zweimal eine Box auf 
dieselbe Stelle gezeichnet. Dieses hat den Effekt, daß die Box bei je¬ 
dem Durchlauf nur für einen kurzen Moment zu sehen ist. Wird die 
rechte Maustaste wieder losgelassen, wird anschließend die Box noch 
einmal im REPLACE-Modus (siehe GRAPHMODE) gezeichnet. 

Achten Sie bitte darauf, daß Sie, wenn Sie den Füllprozeß mit beiden 
Maustasten gleichzeitig auslösen wollen, zuerst die rechte und dann die 
linke Taste drücken, da sonst im Linienmodus schon ein Punkt ge¬ 
zeichnet wird, ehe der Füllprozeß beginnt. Dazu eine kleine Spielerei: 
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Plot 320,200 
For 1=0 To 220 Step 0.1 
Add A,0.1 

X*=320+Cos(I)*A»1.6 
YX=200+Sin(I)*A 
Drau To XX,YX 
Next I 


I Linienstart 

I lOtel-Step-Schleife -. 

I Radius vergrößern j 

I X-Koordinate 
I Y-Koordinate 
I Linie zeichnen { 

I Nächster Schritt .' 


Beachten Sie hier, daß die FOR...NEXT-Schleife mit einer Real vari¬ 
ablen (I) läuft, da Integervarialen nur Ganzzahlen aufnehmen können. 
Mit einer Integer-Zählvariablen würde das Programm lediglich eine 
gerade Linie zeichnen und unendlich weiterlaufen, da die Zählvariable 
immer wieder auf Null gesetzt würde. Die Linie ergibt sich dann aus¬ 
schließlich aus der Erhöhung des Radius durch den Real-Faktor "A". 


Das folgende Beispiel könnte für die absoluten Computer- 
"Greenhorns" unter Ihnen auf den ersten Blick etwas verwirrend wir¬ 
ken. Es stellt eine weitere Möglichkeit dar, mit Grafik zu jonglieren. 
Halten Sie bitte die Grafik-Programmierung nicht für nebensächlich! 
Manche Probleme lassen sich durch einen geschickten Einsatz von 
Grafik wesentlich vereinfachen. Es handelt sich also nicht nur um 
schmückendes Beiwerk. Ein Bild sagt mehr als tausend Worte. Sollten 
Ihnen die folgenden Erläuterungen nicht ausreichen, schlagen Sie bitte 
bei den entsprechenden Befehlen nach. 


' •* Zeichnen der Linienzüge •• 
Restore GFA 
Repeat 
Read XX,YX 
Do 

Read XxX,YyX 
Exit if XxX<0 
Line XX,YX,XxX,YyX 
XX=XxX 
YX=YyX 
Loop 

Until XxX=-1 

1 ** Versatz der Grafik und Fül 
For JX=1 To 3 
Read XlX,XrX 
Get XlX,100,XrX,270,A$ 

For IX=XIX To XlX+8 Step 2 
Put IX,100-(XIX-IX),A$,7 
Next IX 


! DATA-Zeiger auf GFA-Label setzen 

I Äußere Schleife >. 

I Linien-Startkoordinaten lesen 

I Innere Schleife >.. 

I Linien-Endkoordinaten lesen j 
I Abbruch bei Encknark. -1 oder -2 
I Linie zeichnen 

( Endkoordinate = Startkoordinate 
I der nächsten Liniej 

I Schleifen-Uendepunkt <.' 

I Abbruch bei Endmarkierung -1 <-- 

I ** 

! 3mal >. 

I Koordinaten lesen 
! Buchstaben speichern 
! Amal 

! Grafik transparent versetzen 


Fill XlX+9,190 I Buchstaben füllen 

Next JX I <. 

Do ! Endlos-Schleife >. 

Sget A$ I Full-Screen speichern 

For JX=0 To 19 I 20 mal >.. 

For IX=100+JX To 300+JX Step 20 I 200 Pixel in 20er Schritten ! 

Bmove Varptr(A$)+IX*80,Xbios{2)+32000-IX*80,80 ! verdrehen j 
Next IX ! 

Next JX I <.■ 
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Loop ! <... 

GFA: 

Data 124,100,200,100,200,120,130,120,120,130,120,240 
Data 130,250,190,250,200,240,200,180,150,180,150,160 
Data 220,160,220,246,196,270,124,270,100,246,100,124 
Data 124,100,-2,-2 

Data 250,100,350,100,350,120,270,120,270,160,330,160 
Data 330,180,270,180,270,270,250,270,250,100,-2,-2 
Data 404,100,476,100,500,124,500,270,480,270,480,180 
Data 400,180,400,270,380,270,380,124,404,100,-2,-2 
Data 410,120,470,120,480,130,480,160,400,160,400,130 
Data 410,120,-1,-1 
Data 100,220,250,350,380,500 


Soweit zur Einführung in die Programmiersprache GFA-BASIC und in 
die Hintergründe und Grundlagen der Computer-Programmierung. Es 
ist mir nicht immer leicht gefallen, die richtigen Worte zu finden, um 
ein Thema auch - und gerade - für den Computer-Anfänger ver¬ 
ständlich und durchschaubar werden zu lassen. Ich habe es jedenfalls 
nach besten Kräften versucht und hoffe, daß Ihnen dieses Rüstzeug 
auf Ihrem weiteren Weg in der "hohen Schule" der Programmierkunst 
ein Stück helfen wird. 


Sie finden zudem im Verlauf des Buches immer wieder kleine Ein¬ 
schübe, die dazu beitragen sollen, Ihre hier erworbenen Kenntnisse zu 
vertiefen. Noch ein kleiner Tip zum Schluß. Setzen Sie sich in der 
Anfangszeit so viel wie möglich mit fremden Programmen auseinan¬ 
der. Achten Sie dabei darauf, daß diese in ihrer Komplexität ungefähr 
Ihrem eigenen Wissensstand entsprechen und verändern Sie sie ge¬ 
ringfügig. 
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5. Ein-/Ausgabebefehle 


5.1 Dateneingabe 


fÖRM INPUT { F MINPUT/V3.0: F} Formatierte String-Eingabe 
FORM INPUT Anz,Var$ 

Eine Kombination aus INPUT- und INPUTS-Befehl ist der FORM 
INPUT-Befehl. Sie können damit eine maximale Länge des einzuge¬ 
benden Textes vorherbestimmen. Die größtmögliche Länge des Strings 
liegt bei 255 Zeichen. Wird vom Anwender die vorgesehene String- 
Länge erreicht, bleibt der Cursor an der letzten Stelle stehen und es 
ertönt ein Alarmton (falls die Lautstärke an ist). Die Eingabe kann 
also nur durch <Return> abgeschlossen werden. Veränderungen am 
Text sind auf die gleiche Art und Weise möglich, wie unter INPUT 
beschrieben. Ebenso die Eingabe von Sonderzeichen. Die Angabe einer 
Variablenliste oder eines vorangestellten Textes ist hier allerdings nicht 
möglich. Es wird generell der Cursor auf die erste Stelle des Eingabe¬ 
bereichs gesetzt. 

Beispiel: 

FORM INPUT 32,Textvar$ 

Positionieren können Sie den Eingabebereich übrigens, wie auch bei 
INPUT und LINE INPUT, indem Sie mit 

PRINT AT(XP,YP); 

den Cursor an die Stelle bringen, wo das erste Zeichen der Eingabe 
erscheinen soll. Durch das dem PRINT-Befehl nachgestellte Semikolon 
wird der Wagenrücklauf (CR = Carriage Return) und der 
Zeilenvorschub (LF = Line Feed) unterdrückt. Das nächste Zeichen 
einer TOS-Ausgabe wird dann an die Position direkt hinter dem zu¬ 
letzt ausgegebenen Zeichen gesetzt. 
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FORM INPUT AS Formatierte String-Eingabe m. Vorgabe 
{ F MINPUT AS/V3.0: F AS } 

FORM INPUT Anz AS Var$ 

Hier gilt grundsätzlich das gleiche wie bei FORM INPUT. Nur daß 
hier der Inhalt einer String-Variablen auf dem Bildschirm ausgegeben 
und die nachträgliche Edition des darin enthaltenen Strings (oder eines 
Teils davon) ermöglicht wird. 

"Anz" enthält die Anzahl der Zeichen ab Anfang des Vorgabe-Strings, 
die zur Edition ausgegeben werden sollen. Nach erneuter Eingabe und 
Bestätigung durch <Return> wird der neu entstandene String in die 
Variable übernommen. Der vorherige Variabieninhalt wird komplett 
ersetzt. Wird mit ’Anz’ die Länge der angegebenen Variablen nicht 
überschritten, muß vor der Edition anhand der <Delete>-Taste Platz 
zur Eingabe geschaffen werden. Bei Angabe einer Leervariablen er¬ 
füllt dieser Befehl dieselbe Funktion wie FORM INPUT. 

Beispiel: (in Verbindung mit MID$()= und MID$) 

A$="String vor der Eingabe!" I Beliebiger String 

B$=Nid$(A$,7,4) ! 3 Zeichen austrennen 

Print At(10,10);"=> ";A$;" => I Eingabe positionieren 
Form Input 7 As BS 18 Zeichen zur Eingabe 

Mid$(A$,8,Len(B$))=B$ I Eingabe einfügen 

Print At(io,10);"=> ";A$;Spc(15) I String ausgeben 

Void Inp(2) ! Auf Taste warten 

INKEY$ Einzelzeichen von Tastatur holen 

Zeichens=INKEY$ => Zeichen-Zuweisung 

[iF/WHILE/UNTIL] LEN(INKEY$) = > Bedingung: InkeyS >"" 

[IF/WHILE/UNTIL] INKEY$="r = > Bedingung: T' gedrückt 

Mit INKEYS können nicht nur die normalen Tastenbelegungen erfragt 
werden, sondern auch alle Sondertasten (z.B. Fl - FlO und Cursor- 
Block). Zusätzlich werden fast alle Kombinationen von <Control>, 
<Shift> oder <Alternate> mit anderen Tasten registriert. So lassen sich 
die Funktionstasten in Kombination mit der Shift-Taste doppelt bele¬ 
gen. Die Funktion schaltet intern auf einen anderen Modus um, sobald 
Sondertasten bzw. ihnen entsprechende Tastenkombinationen gedrückt 
werden. Im Normalfall wird ein Ein-Zeichen-String zurückgegeben, 
der das der gedrückten Taste entsprechende ASCII-Zeichen beinhaltet. 
Bei Sondertasten wird dagegen ein Zwei-Byte-String zurückgegeben. 
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der im ersten Byte eine Null enthält und im zweiten Byte dann einen 
Code, der zwar ebenfalls ASCII-Zeichen produziert, aber eigentlich 
nichts mehr mit diesen zu tun hat. Dieser Code leitet sich aus einer 
systeminternen Tasten-Identifikations-Matrix ab, die Scan-Code ge¬ 
nannt wird. Damit lassen sich dann (fast) sämtliche Tasten, die auf der 
Tastatur zu finden sind und (fast) alle Tastenkombinationen gezielt 
identifizieren. Wird im Moment der INKEYS-Abfrage keine Taste ge¬ 
drückt, wird ein Leer-String ("") geliefert. 

In der V3.0-Version sind hier allerdings die durch KEYPAD einge¬ 
stellten Tastaturattribute zu beachten. Außerdem haben Sie in V3.0 
eine erweiterte Auswahl an Tastatur-Abfragen, die -je nach Einsatz¬ 
gebiet - zum Teil noch um eine Kleinigkeit komfortabler sind (siehe 
KEYxxx-Befehle). 


Beispiel: 


Print "Testen Sie beliebige Tasten und Tastenkombinationen" 
Print " (Abbruch durch <Esc>) 


Do 

Repeat 

Key*=InkeyS 
Until Key$>"" 

Print AtdO.IO); 

If Len(Key$}=1 
Print "ASCII : "; 

Out 5,Asc(l(ey$} 

Print "Asc(Key$). 

Else 

Print "Scan : "; 

Out 5,Asc(Right$(Key$)} 
Print "Asc(Right$(Key$))" 
Endif 

Exit If Key$=Chr$(27) 

Loop 


I GroBe Schleife 
I Eingabeschleife 
I Abfrage 

I bis Taste gedrückt ist 
I Ausgabe positionieren 
I Ein-Byte-Code 

I TOS-Direkt-Ausgabe 
I ASCII-Code 
I Zwei-Byte-Code 

I TOS-Direkt 
''I Scan-Code 

I Abbruch bei <Esc> 

I Schleifenende 


Da gibt es allerdings ein Problem. Der Tastatur-Puffer hat die - 
manchmal unangenehme - Eigenart, sich die Tasten, die gedrückt 
wurden, zu merken. Und zwar alle! Das führt dazu, daß - wenn man 
ganz kontrolliert nur einen Tastendruck zulassen will - über INKEYS 
alle Zeichen ausgegeben werden, die im Tastaturspeicher evtl, durch 
einen Dauertastendruck gespeichert wurden. Dieses Problem läßt sich 
beseitigen, indem man nach der INKEYS-Abfrage eine kleine Schleife 
einbaut, die den Tastaturpuffer leert. 

Repeat 

Until Inkey$="" 
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Derselbe Effekt läßt sich erzielen, wenn man in den Orga-Bereich des 
Tastaturpuffers an die Stelle, wo die momentan vorhandene Zeichen¬ 
anzahl des Puffers gespeichert wird, einfach eine Null LPOKEd. 

Lpoke Xbios(14,1)+6,0 
■ {Xbios(1A,1)+6}=0 ! (V3.0-Variante) 

Um eine Einzeltastenabfrage durch INKEY$ zu realisieren (z.B. in ei¬ 
nem alphanumerisch indizierten Menü) kennt man aus anderen BASICs 
die Variante 

100 A$=Inkey*:If A$="" Then Goto 100 
Diese Konstruktion wird in GFA-BASIC ersetzt durch: 

Repeat 

Until LcndnkeyS) 


oder 


Repeat 

Until InkeySo"" 

Sie hat die gleiche Aufgabe, nämlich darauf zu warten, daß irgendeine 
Taste auf dem Keyboard gedrückt wird. 

Um eine bestimmte Taste zu erfragen, gibt es in anderen BASIC-Dia- 
lekten die altbekannte Möglichkeit: 

100 A$=Inkey$:If A$<>"b" Then Goto 100 
Das gleiche in GFA-BASIC: 

Repeat Until Inkey$="b" 


Damit kann also kontolliert werden, ob eine bestimmte Taste (hier: b) 
gedrückt wurde. Wird eine andere Taste gedrückt, bleibt das Pro¬ 
gramm in der Warteschleife. 

Manchmal kann es unter bestimmten Umständen zu Verwechslungen 
zwischen ASCII- und Pseudo-Scan-Code kommen, da eben auch die 
Scan-Codes innerhalb des normalen alphanumerischen Bereichs (a - z, 
A - Z, 0 - 9 und Interpunktion) liegen können und außerdem aus 
dem Code nicht unbedingt zu erkennen ist, mit welcher Umschalttaste 
(<Control>, <Shift>, <Alternate>) nun der Zwei-Byte-Code produziert 
wurde. 
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Wenn man ganz sicher gehen will, empfiehlt es sich, zusätzlich zur 
normalen INKEY$-Analyse (Key%=ASC(RIGHT$(INKEY$))) noch 
gezielt den Status der Umschalttasten zu ermitteln. Dies erreichen Sie 
durch die BIOS-Funktion 11; 

SkeyX=BI0S{11,-1) 

Hier erhalten Sie in Skey% (beliebiger Variablenname) einen 5BIT- 
Wert mit folgender Bedeutung: 

BIT 0 an (IF SkeyX AND 1) = Rechte Shift-Taste gedrückt 
BIT 1 an (IF SkeyX AND 2) = Linke Shift-Taste gedrückt 
BIT 2 an (IF SkeyX AND 4) = Control-Taste gedrückt 
BIT 3 an (IF SkeyX AND 8) = Alternate-Taste gedrückt 
BIT 4 an (IF Skey% AND 16)= CapsLock iit euigeschaltet 


Der Wert 22 würde also z.B. aussagen, daß zum Zeitpunkt der Abfrage 
CapsLock angeschaltet war und gleichzeitig <Shift-links> und 
<Control> gedrückt wurden. 

Wollen Sie eine Warteschleife realisieren, die auf die Betätigung einer 
bestimmten Umschalttaste (hier <Alternate>) wartet, gehen Sie wie 
folgt vor: 

Repeat 

Until Bios(11,-1) And 8 


Mit dieser BIOS-Funktion haben Sie auch die Möglichkeit, eine be¬ 
stimmte Umschalttaste oder Umschalttastenkombination zu simulieren, 
bzw. den Status der Umschalttasten auf Null zu setzen. Wie Sie bereits 
erfahren haben, gibt es in GFA-BASIC eine Programm-Abbruchfunk¬ 
tion, die durch gleichzeitiges Drücken von <Control>, <Shift> und 
<Alternate> ausgelöst wird. Über ON BREAK GOSUB Prozedurname 
läßt sich diese Funktion unterbinden und statt dessen zu einer beliebi¬ 
gen Prozedur verzweigen. 


On Break Gosub Abbruch 
Do 

KcyX=Asc(Righ tS(Inkey$)) 
If KeyX>0 
If KeyX<>27 
Void Bios(11,14) 

Else 

Edit 

Endif 

Endif 

Loop 

Procedure Abbruch 
Void Bios(11,0) 


! Break-Versuch unleiten 

I Tastatur-Abfrage 
I Taste gedrückt? 

I <Esc> nicht gedrückt? 

I Dann Break-Funktion simulieren 
! <Esc> gedrückt I 
! Dann Programmende 


I Status auf Null setzen (Break Off) 
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Print "Abbruch nur durch <Esc>" 

Return 

So läßt sich z.B. auch CapsLock beliebig ein- und ausschalten: 

Void Bios(11,16) I CapsLock einschalten 

Input "beliebige Eingabe (<Return>=Ueiter) :";A$ 

Void Bios(11,0) I CapsLock ausschalten 

Input “beliebige Eingabe (<Return>=Ueiter) :“;A$ 

Möchten Sie eine 100%ige Identifikation erreichen, haben Sie noch 
eine weitere Möglichkeit, die durch eine GEMDOS-Funktion alles er¬ 
reicht: 

Deffn Scan=Geiiidos(6,255) 

(als Funktion definiert; Aufruf: ascan) 

Die Arbeitsweise dieser Funktion ist identisch mit INKEY$. Es wird 
nicht auf einen Tastendruck gewartet, sondern der zum Zeitpunkt des 
Aufrufs auf der Tastatur erzeugte Code oder Null zurückgegeben. Sie 
erhalten: 

1. In den unteren 8 Bit den ASCII-Code der Taste: 

AsciiX=ascan And 255 


2. In den Bits 16-23 den echten Scan-Code der Taste: 

ScanX=aScan/2‘I6 And 255 

3. In den Bits 24-31 den Status der Umschalttasten (nur gleichzeitig 
mit anderer Taste oder wenn CapsLock an): 

StatusX=ascan/2‘24 And 255 

Beispiel: 

Do 

KeyX=aScan I Tastatur-Code holen 

AsciiX=KeyX And 255 I ASCII-Code 

' AsciiX=And(KeyX,255) I (V3.0-Variante) 

ScanX=KeyX/2‘16 And 255 I Scan-Code 
' ScanX=And(Swap(KeyX),255) I (V3.0-Variante) 

StatusX=KeyX/2'24 And 255 ! Umschalttasten-Status 
' StatusX=And(Swap(KeyX),&HFFOO) ! (V3.0-Variante) 

If KeyX I Taste gedrückt? 

Print At(10,10);KeyX'',AsciiX'',ScanX''.StatusX'' 

Endif 

Loop 

Deffn Scan=Genidos(6,255) ! Funktionsdefinition 
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Durch den in Key% gelieferten Gesamtwert wird jede Taste und jede 
mögliche Tastenkombination eindeutig identifizierbar. Damit dürfte 
die Tastenanalyse kein Problem mehr für Sie darstellen. 




m IS 1313 IS IS |3 IS IS IS IS IS IS IS I 







|iFlba|bi|te2 



tioi 3 , 





31 

ISIS IS |3 

|3 

IS IS |S IS 

|3 

ISIS Is |S 


|s Is IS 

1 

\mm\m 


INPUT {INP} Dateneingabe 

INPUT ["Text";,] Var1 [,Var2,...] 

INPUT #Kanal,Varl [,Var2,...] 

Dieses ist der auf TOS-Ebene noch am meisten verwendete Befehl zur 
Eingabe von Werten oder Strings an das Programm. Im Anschluß an 
diesen Befehl kann eine Text-Konstante angegeben werden, die vor 
der ersten Eingabestelle erscheinen soll. 

Nach einem Komma oder Semikolon wird dann die Werte- oder Text¬ 
variable angegeben, die die eingegebenen Daten aufzunehmen hat. Der 
Unterschied zwischen der Angabe eines Kommas oder eines Semiko¬ 
lons ist der, daß bei einem Semikolon nach dem Befehl, bzw. nach 
dem eingefügten Text ein Leer- und ein Fragezeichen erscheint, 
während beim Komma direkt nach dem Befehl oder Text der Cursor 
erscheint und dort die Eingabe beginnen kann. 

Sollen mehrere Werte oder Strings über einen Input-Befehl eingegeben 
werden, können Sie durch Kommas getrennt eine Liste der dafür vor¬ 
gesehenen Variablen anfügen. Der Befehl ist dann erst abgeschlossen, 
wenn für jede angegebene Variable die entsprechenden Daten einge¬ 
geben wurden. Dabei ist es sogar möglich, verschiedene Variablenty¬ 
pen zu verwenden. Sie können somit also mit einem Input-Befehl 
gleichzeitig Werte und Text erfragen. Weisen Sie jedoch dem angege¬ 
benen Variablentyp nicht die entsprechenden Daten zu (bei numeri¬ 
schen Variablen Text oder umgekehrt), wird ein akustisches Signal 
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ausgegeben (sofern Sie die Lautstärke Ihres Monitors nicht ausge¬ 
schaltet haben) und die Eingabe kann wiederholt werden. 

Jede einzelne Eingabe kann bei Mehrfach-INPUT entweder durch 
<Return> abgeschlossen werden oder Sie können die Daten innerhalb 
einer Zeile jeweils durch ein Komma voneinander trennen. Bei Tren¬ 
nung durch <Return> wird dann allerdings der Cursor an den Anfang 
der nächsten Bildschirmzeile gesetzt und dort auf die nächste Eingabe 
gewartet. 

Möchten Sie Kommas in der Eingabezeile verwenden, ohne daß da¬ 
durch zur nächsten Variablen weitergeschaltet wird, erreichen Sie dies, 
indem Sie die betreffende Antwort in Anführungsstriche setzen. Bei 
Verwendung einer einzelnen String-Aufnahmevariablen und Verwen¬ 
dung von Kommas, ohne daß die Antwort in Anführungsstriche ge¬ 
setzt wurde, wird die Antwort bei dem ersten auftretenden Komma 
abgeschnitten und nur dieser vordere String-Teil der Variablen zuge¬ 
ordnet. 

Beispiel: 

Print At(10,10); 

Input "Eingabe Wert,String,Wert: ",AX,B$,CX 
Print AX,B$,CX 

Bei String-Eingaben sind Strings mit einer Länge von bis zu 255 Zei¬ 
chen möglich. Während der Eingabe können Sie die schon eingegebe¬ 
nen Daten auf verschiedene Weise korrigieren: 

<Backspace> = Zeichen links vom Cursor löschen 
<Oelete> = Zeichen unter dem Cursor löschen 

<Pfeil-links> = Cursor um eine Stelle nach links 
«Pfeil-rechts> = Cursor un eine Stelle nach rechts 

(sofern er nicht am Zeilenende steht) 

<Pfeil-hoch> = Cursor zum Zeilenanfang 
«Pfeil-runter> = Cursor zum Zeilenende 


In V3.0 können Sie zusätzlich durch <Insert> zwischen Überschreib¬ 
und Einfügemodus wählen. 

Wollen Sie bei der Eingabe Sonderzeichen verwenden, gibt es dazu 
drei Möglichkeiten: 


1. <Alternate> und andere <Taste>. 
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2. Gleichzeitig <Control> und <s> drücken, anschließend eine an¬ 
dere <Taste>. 



Wird nach <Control> und <s> zusätzlich zur <Taste> nochmals 
<Control> gedrückt, ergibt sich eine andere Belegung. 
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3. Gleichzeitig <Control> und <a> drücken, anschließend den 
ASCII-Wert des gewünschten Zeichens eingeben. Zeichen mit 
einem ASCII-Wert zwischen 0 und 32 müssen nach Eingabe des 
Wertes mit <Return> quittiert werden. 

Diese lassen sich dann allerdings innerhalb der Eingabe nicht auf 
dem Bildschirm darstellen (Steuerzeichen). 

Wie bei PRINT gibt es auch hier die Kanal-Variante. Mit INPUT # 
und der daran anschließenden Nummer des gewünschten Datenkanals 
können auch Daten aus Diskettendateien, bzw. über die Schnittstellen 
(siehe OPEN) bezogen werden. 

Beispiel: 

Open "I",#!,"DATEI.DAT" 

Input #1,A$,B$,C$ 


oder: 


Open "",#1,"AUX:" 

Input #1,A$,BS,C$ 

Bei diesen Beispielen muß allerdings gewährleistet sein, daß die aus 
der Datei gelesenen Daten auch zu den vorgegebenen Variablentypen 
passen. 
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rNPUT$o Zeichenketteneingabe 

A$=INPUT$(Anz) 

A$=INPUT$(Anz,#Kanal) 

Wollen Sie, daß Strings "verdeckt" eingegeben werden, können Sie das 
mit dieser Eingabe-Funktion erreichen. Anders als bei allen anderen 
Input-Arten wird hier die aufnehmende Variable nicht dem Befehl 
nachgestellt, sondern der String wird einer Variablen zugewiesen 
(A$«INPUT$(10)), direkt nach Abschluß der Eingabe ausgegeben 
(PRINT INPUT$(10)) oder in eine Abfrage eingebunden werden (IF 
INPUT$(4)="xxxx"). 

Der Funktion wird in Klammern eine Zahl übergeben, die angibt, 
wieviele Zeichen maximal eingegeben werden können. Wird diese 
Zeichenanzahl erreicht, wird das Programm, ohne auf die Betätigung 
der <Return>-Taste zu warten, fortgesetzt. Der eingegebene Text ist 
während der Eingabe nicht zu sehen. Korrekturen an der Eingabe sind 
auf dieselbe Art wie bei INPUT möglich. 

Auch hier gibt es die Kanal-Variante (A$=INPUT$(10,#1)). Dieser 
Befehl eignet sich besonders dazu, um eine bestimmte Datenmenge aus 
einer Diskettendatei zu lesen. Um zum Beispiel eine ganze Datei in 
einen String einzulesen (vorausgesetzt, sie ist nicht länger als die ma¬ 
ximale String-Länge von 32767 Byte), können Sie folgendes Mini-Pro¬ 
gramm verwenden (siehe auch BGET# bzw. LINE INPUT#) : 

Open "I'',#!,"Datei.Dat" 

A»=Input${Min(32767,Lof(#1)),#1) 

CIose #1 
Print A$ 

Void Inp(2) 

Sie müssen hierbei die Länge der Datei nicht kennen, da sie durch 
LOF() ermittelt wird. Um die maximal mögliche String-Länge (32767 
Zeichen) nicht zu überschreiten, wird die einzulesende Zeichenanzahl 
durch MINO auf diese maximale Anzahl begrenzt. 


liiNE iNPUt { U 1NPUT/V3.0: U } Zeichenketteneingabe 


UNE INPUT ["Text";,] Var$ [Var2$,...] 

UNE INPUT #Kanal, Var$ [Vair2$,...] 

Der LINE INPUT-Befehl ist ein direkter Nachkomme des normalen 
INPUT-Befehls. Sie unterscheiden sich dadurch, daß LINE INPUT 
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ausschließlich für Texteingabe zu verwenden ist, und daß bei Angabe 
einer Variablenliste die Eingaben alle einzeln mit <Return> abge¬ 
schlossen werden müssen. Während bei INPUT durch die Eingabe ei¬ 
nes Kommas kenntlich gemacht wird, daß nun die nächste Variable in 
der Liste bedient wird, wird hier das Komma als Textzeichen inner¬ 
halb des eingegebenen Strings anerkannt. Genauso wie bei INPUT 
kann auch hier ein Text-String übergeben werden, der dann vor dem 
ersten einzugebenden Zeichen erscheint. 

Beispiel; 

Line Input "Bitte Text eingeben : ",AaS,Bb$,Cc$ 

Durch Verwendung eines Kommas oder Semikolons zwischen dem 
Befehl (bzw. Text) und der Variablen (bzw. Variablenliste) kann auch 
hier bestimmt werden, ob ein Leerzeichen und ein Fragezeichen vor 
der ersten Eingabestelle erscheinen soll oder nicht. Editionsmöglich¬ 
keiten wie bei INPUT. 

Die zweite Syntaxform liest die Daten aus der in Kanal angegebenen 
Datei oder Schnittstelle (siehe OPEN). Hier erklärt sich auch, warum 
dieser Befehlsname mit LINE beginnt. Befinden sich nämlich inner¬ 
halb des eingelesenen Textes keine CR’s oder LF’s, bzw. zwischen ei¬ 
nem CR/LF und dem nächsten liegen mehr als 254 Zeichen, wird der 
Text nach maximal 254 Zeichen automatisch abgeschnitten und der 
betreffenden Variablen zugeordnet. Texteingaben mit mehr als 254 
Zeichen (254+CR+LF = 256 = max. Zeilenlänge) sind nicht möglich. 

Sind im Text Zeichen mit einem ASCII < 32 enthalten, die keine 
Zeilentrennzeichen (CR/LF) sind, sind Fehleingaben möglich. 

Etwas verwirrend ist, daß in Fällen, in denen nur ein Carriage Return 
zur Zeilentrennung verwendet wurde, dies zwar insoweit erkannt wird, 
daß nur der vordere Teil des Textes bis zum ersten CR an die Va¬ 
riable übergeben wird, jedoch der File-Pointer um die gesamte Anzahl 
der gelesenen Zeichen weitergesetzt wird. 

Folgerung: LINE INPUT# ist nur für ASCII-Text (ASCII > 31) - mit 
CR+LF als Zeilentrennung - korrekt einsetzbar. 

Beispiel (Hires/Midres/Lowres): 

Deffill ,2,4 
Pbox 10,10,300,190 

Fileselect "\*.*","SHOU ASC.DAT",F.na(iT* ! Beliebige ASCII-Datei 
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If Exist(f.namt) I Datei gefunden? 

SShowdat(F.namS ) 

Endif 

Procedura Showdat(Selec$) I als Befehlserueiterung 

Local Backscreen$,ShS,IX,TkeyX,BackX,CurlnX,ByteX,XtX,OldX 


XtX=2-Sgn(Xbios(4)) 

Sget BackscreenS 
Open »l'',#99,Select 
Open “",#98,"VID:" 

Cls 

Repeat 

If Lof(#99)<255 
ShS=Input$(Lof(#99),ill99) 

For IX=0 To Len(Sh$)-1 
ByteX=Peek(Varptr(ShS)'i'iX) 

' ByteX=Byte{V:Sh$+IX> 

If ByteX=13 Or ByteX=10 
Print Chr$(ByteX); 

Else 

Out S.ByteX 
Endif 
Next IX 

Print MklS(&H1B441B44) 

• links und CR/LF (&H1B441B44 
Else 
Repeat 

If Eof(#99)=0 
0ldX=Loc{#99) 

Line Input #99,Sh$ 

Print #98,Sh$; 

Print MklS(&H1B441B44) 


! X-Auflösungsteiler 
! Hintergrund sichern 
I Darm öffnen 
I OPEN Monitor 
! Clearscreen 

I DateigröBe < 255 
I Ganze Datei laden 
I Datei durchgehen 
I Jedes Byte... 

I (V3.0-Variante) 

I auf CR bzw. LF testen 
I Steuerzeichen ausgeben 
I Kein CR oder LF I 
I Byte direkt ausgeben 

I Nächstes Byte 
I Cursor zwei Zeichen nach 
= 2 mal CHR$(27)+"D") 

I DateigröBe > 256 


I Dateiende? 

I Alten File-Pointer merken 
I und Zeile lesen 
I ... und ausgeben 
I Cursor zwei Zeichen nach 
I links und CR/LF. 

Diese Cursor-Korrektur ist nicht unbedingt notwendig. 
Sie dient dazu, die auf "VID:“ mit ausgegebenen CR/LF 
zu überdecken und eine optische Zeilentrennung zu 
erreichen. 

Seek #99,0ldX+Len(Sh$)+2 I File-Pointer neu setzen 
= Alter Pointer+String-Länge+CR+LF 
Dies ist notwendig, um bei "Nicht-ASCII-Strings", die 
ggfs, keine korrekte Zeilentrennung beinhalten, den 
richtigen AnschluB wiederzufinden. 
TeX=Int(Len(Sh$)/(80/XtX))+Sgn(Len{Sh$) Mod (80/XtX)) 
String-Teiler berechnen 
Add CurlnX,TeX 

...Zeilenzähler entsprechend erhöhen 
Endif 

TkeyX=Asc(Right$(InkeyS)} I Tastatur abfragen 

Until CurlnX>21 Or Eof(#99) Or Mousek=2 Or TkeyX=27 
'...wenn 22 Zeilen oder Dateiende oder rechte Maustaste 
' oder <Esc>, dann nächste Seite 
Endif 

If Eof(#99) I Dateiende? 

Print “ Dateiende •••*"'■ | Dann Hinweis 

Else 

Print Chr$(27);"p";" Taste (<Esc> = Abbruch)";Chr$(27);"q>' 
I Aufforderung zum Ueitermachen (invertierte Schrift). 

Endif 

Repeat I auf irgendeine... 

TkeyX= Asc(Right$(Inkey$)) ! ... Taste ... 
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Until Tkey* Or Mousek I ... Marten 

Print Mkl$(&H1B491BAB); ! Cursor eine Zeile hoch 

' und Zeile löschen. (&H1B491B4B = CHR$(27)+"I"+CHR$(27)+"K") 


Clr CurlnX 

Until Eof(#99) Or Tkey*=27 

I 

CIose #98 
Close #99 
Sput BackscreenS 
Pause 10 
Return 


I Zeilenzähler auf Null 
I Abbruch wenn Dateiende... 
I oder <Esc> gedrückt 
! Monitor schlieBen 
I Datei schlieBen 
I Hintergrund restaurieren 
I Kleine Klickpause 


5.2 Datenausgabe 


PRINT { ? oder P } Daten ausgeben 

PRINT [AT(S,Z)11,’]"Text"[[:,’]Var[;,’]Expr...;] 

PRINT [#Kanal,[;]l Text"[[;,’]Var[;,’lExpr...:l 

Mit PRINT läßt sich fast alles auf den Bildschirm schreiben. Er ist ei¬ 
ner der Tausendsassa-Befehle die man in BASIC kennt. Um seinen 
Variantenreichtum ausloten zu können, wird es Ihnen nicht erspart 
bleiben, ihn in verschiedenen Fällen bei der Arbeit zu beobachten. 
Probieren Sie ihn also fleißig aus. 

Beispiel: 

AX=1 

A$="- Demo" 

Print At(1,12); 

Print Chr*(27);"p";" PRINT"'A$,AX,"Taste: 

Print Chr$(Inp(2))'"l";Chr*(27);"q";At(1,13); 

Print String$(40,LeftS(A$));Chr${Min(32,Inp(2))) 

In diese bunt zusammengesetzten PRINT-Befehlen haben die einzelnen 
Komponenten folgende Bedeutung: 


At(XP,YP) 

Mit diesem wahlfreien Zusatz können Sie bestimmen, an welcher 
Cursor-Position die Ausgabe erfolgen soll. Der TOS-Bildschirm be¬ 
steht, von der Home-Position aus gezählt: 

In Hires/Midres: Aus 80 Spalten und 25 Zeilen 
(XP= 1-80/YP» 1 - 25) 

Aus AO Spalten urxi 25 Zeilen 
(XP= 1-A0/YP= 1 - 25) 


In Lowres: 
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Dasselbe wird ab der V2.02-Version auch durch LOCATE erreicht 
(siehe dort). AT(XP,YP) kann - wie im Beispiel gezeigt - auch inner¬ 
halb der Ausgabezeile eingesetzt werden, wodurch mit einem PRINT 
verschiedene Bildschirmpositionen bestimmbar sind. 

Ab Version V3.0 wird eine Bereichsunterschreitung (z.B. PRINT 
AT(0,0) oder LOCATE 0,0) abgefangen, um FATAL-Errors beim 
Blitter-TOS zu vermeiden. 


: (Semikolon) 

Dieses Zeichen dient dazu, um verschiedene Ausdrücke miteinander zu 
verbinden. Der nach diesem Zeichen stehende Ausdruck wird dann 
direkt an den vorhergehenden angeschlossen. Wenn das Semikolon als 
Schlußzeichen eingesetzt wird, wird auch der erste Ausdruck des 
nächsten PRINT-Befehls an den zuletzt ausgegebenen PRINT-Aus- 
druck angehängt, da Carriage Return und Line Feed (CR/LF = Wa¬ 
genrücklauf/neue Zeile) in diesem Fall unterdrückt werden. 


, (Komma) 

Wird das Komma eingesetzt, wird der folgende Ausdruck an den 
nächsten von 5 Tabulatorpunkten hinter der letzten Ausgabe gesetzt. 
Diese Punkte haben die X-Positionen 1,17,33,49,65. 


’ (Apostroph) 

Ein Apostroph steht als Leerzeichen. Es werden also in der Bild¬ 
schirmausgabe überall dort Leerzeichen gesetzt, wo sie durch dieses 
Zeichen vorgegeben wurden. 


ChrS(27)rZ'’ 

Das "Z" steht hier zur Kenntlichmachung dafür, daß ein entsprechen¬ 
der TOS-Befehl eingesetzt werden muß. Das ASCII-Zeichen 27 (ESC) 
ist eines der TOS-Steuerzeichen, die man bei PRINT einsetzen kann. 
In diesem Fall wird durch ESC"p" die folgende Schrift invertiert und 
durch ESC"q" wieder auf Normaldarstellung zurückgeschaltet. 

Außerdem wurden String- und numerische Funktionen in die Zeilen 
eingebaut, um zu zeigen, daß Funktionen problemlos direkt in die 
PRINT-Ausgabe integriert werden können. Beachten Sie dazu die je¬ 
weilige Funktionsbeschreibung unter CHR$(), MIN(), INP(), 
STRINGSO, LEFTSO etc. 
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Ein direkt angegebener Text ist vor dem ersten Textzeichen mit An¬ 
führungszeichen zu versehen (Print "text), da sonst der Text ggfs, als 
Variable ohne Inhalt interpretiert wird. Folgt auf den Text nichts 
mehr, setzt der Interpreter die Ausführungszeichen selbsständig. 

Ein einzelner PRINT-Befehl ohne nachgestellte Ausdrücke bewirkt 
den Ausdruck einer Leerzeile (CR/LF). 

Wollen Sie innerhalb eines direkt angegebenen Textes Sonderzeichen 
verwenden, können Sie das auf dieselbe Art erreichen, wie es unter 
INPUT beschrieben wurde (Control+<a> bzw. <Control>+<s>), wobei 
allerdings die Steuerzeichen (ASCII 0-31) nicht durch PRINT ausge¬ 
geben werden können (siehe dazu OUT bzw. OPEN "",#1,"VID:"). 


Ein kleiner Laufschrift-Trick (Hires/Midres/Lowres): 


DeffUl ,2,4 
Pbox 10,10,309,189 

apstep(3,12,"* Wer nicht sucht, der nicht findet!",0) 

Procedure Pstep(XpX,YpX,Tx$,LoX) I Als Befehlserweiterung 

' XpX = BiIdschirm-X-Position (1-79 bzw. 1-39) 

' YpX = BiIdschirm-Y-Position (1-25) 

• Tx* = Laufschrift-Text (max. 79 bzw. max. 39 Zeichen) 

' LoX = Durch lauf-Anzahl 

' wenn 0, dann unendlich (Abbruch durch Taste) 

Local XtX,YtX,XlX,YlX,XrX,YrX,CntX,CountX,Backscrcen$ 
XtX=2-Sgn(Xbios(4H I X-Auflösungsteiler 

YtX=Min(2,3-Xbios(4)) I Y-Auflösungsteiler 

XpX=Max(1,Hin(79/XtX,XpX)) ! X-Position begrenzen 

YpX=Max(1,Min(25,YpX)) I Y-Position begrenzen 

Tx$=Left$(Tx$,Min(Len(Tx$),(79-(40»(XtX-1)))-(XpX-1))) 1 Text 
' I auf max. Zeichen begrenzen 

Deffill ,0,0 I Hintergrund-Füllmuster 

XlX=(XpX-1)*8-1 I Linker String-Rand 

YtX=(YpX-1)*(16/YtX)-1 I Oberer String-Rand 

XrX=XlX+Len(Tx$)*8+1 I Rechter String-Rand 

YrX=YlX+(16/YtX)+1 I Unterer String-Rand 

Get Max(0,XtX),Hax(0,YlX),Min(639/XtX,XrX),... 

...Min(399/YtX,YrX),Backscreen$ 

' ! Hintergrund sichern 

Pbox XlX,YlX,XrX,YrX I Hintergrundbox zeichnen 

Do I Schleifenstart 

Tx$=Right$(Tx$,Len(Tx$)-1)+LeftS(Tx$)l Text um 1 Zeichen versetzen 
Print At(XpX,YpX);Tx$; I und ausgeben 

Pause 5 I Kleine Pause 

Inc CntX I Zeichenzöhler +1 

If CntX=Len(Tx$) And LoX>0 I Text einmal durch? 

Clr CntX I Zeichenzähler auf Null 

Inc CountX ! String-Zähler +1 

Endif 

Exit If LoX=0 And (Inkey$>"" Or Housek) I Abbruch, wenn 
' I Taste uräi LoX=0 

Exit If Hax(1,LoX)>0 And CountX=Max(1,LoX) ! Abbruch, wenn 
' 1 LoX>0 und Zähler=LoX 
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Loop 

Put Max(O,XlX),Max(0,YlX),Backscreen$ ! Hintergrund restaurieren 
Return 


Eine Variante des Print-Befehls ist PRINT #. ln diesem Fall folgt auf 
das Nummernzeichen eine Zahl, die den anzusprechenden Datenkanal 
angibt. Wenn Sie also in eine geöffnete Diskettendatei etwas hinein¬ 
schreiben möchten, ist das hiermit möglich (z.B. Print# 1;"BASIC"). Die 
oben erwähnten Formatierungszeichen können auch hier verwendet 
werden. 


Escape-Sequenzen - auch VT52-Steuersequenzen genannt : 


(als Funktionen definiert -> Aufruf: Print @Vtxx$;) 

Deffn Vt01$=Chr$(27)+"A" 

Deffn Vt02*=Chr$(27)+"B" 

Deffn Vt03$=Chr*(27)+"C" 

Deffn Vt04S=Chr${27)+"D" 

Deffn Vt05*=Chr$(27)+”E" 

Deffn Vt06*=Chr$(27)+«H" 

Deffn Vt07$=Chr$(27)+"I" 

Deffn Vt08*=Chr$(27)+"J" 

Deffn Vt09$=Chr*(27)+"K*' 

Deffn Vt10*=Chr$(27)+'‘L" 

Deffn Vt11$=Chr$(27)+"M" 

Deffn Vt12$(XX,YX)=Chr${27)+"Y"+chr$(XX+31)+Chr$(YX+31) 
Deffn Vt13$(FX)=Chr$(27)+"b"+Chr${FX) 

Deffn VtU$(FX)=Chr$(27)+"c"+chr$(FX) 

Deffn Vt15$*Chr$<27)+"d" 

Deffn Vt16$=Chr$(27)+"e" 

Deffn Vt17$=Chr$(27)+"f" 

Deffn Vt18$=Chr$(27)+«j" 

Deffn Vt19$=Chr$(27)+"k" 

Deffn Vt20$=Chr$(27)+''l" 

Deffn Vt21t=Chrt(27)+”o" 

Deffn Vt22$=Chr$(27)+"p'‘ 

Deffn Vt23$=Chr$(27)+"q" 

Deffn Vt24$=Chr$(27)+"v" 

Deffn Vt25$=Chr$(27)+"w" 


Funktionsaufruf: PRINT @Vtx$; 


@VtOI$ 

Cursor eine Zeile nach oben; wenn in oberster Zeile, stehenbleiben. 
@Vt02$ 

Cursor eine Zeile nach unten; wenn in letzter Zeile, stehenbleiben. 



86 


Das große GFA-BASfC-Buch 


@Vt03$ 

Cursor ein Zeichen nach rechts; wenn in letzter Spalte, stehenbleiben. 


@Vt04$ 

Cursor ein Zeichen nach links; wenn in erster Spalte, stehenbleiben. 


@Vt05S 

Clearscreen/Cursor auf Home setzen. 


@Vl06S 

Cursor auf Home setzen (wie PRINT AT(1,1)). 

@Vt07$ 

Cursor eine Zeile nach oben, wenn in oberster Zeile, dann Screen 1 
Zeile abwärts. 


@vm$ 

Bildschirm ab Cursor löschen. 

@Vt09$ 

Zeile ab Cursor löschen. 

@VtlO$ 

Zeile an Cursor-Position einfügen und Rest-Screen 1 Zeile abwärts. 

@vtin 

Cursor-Zeile löschen und Rest-Screen nachziehen. 


@Vtl2$(X,Y) 

Cursor auf Position X,Y setzen (wie PRINT AT(X,Y)). 


@Vtl3$(F) 

Cursor-Farbe F setzen (Hires; 0 - 1/Midres: 0 - 3/Lowres: 0 - 15). 
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@Vll4$(F) 

Zeichenhintergrundfarbe F setzen (Hires: 0 - 1/Midres: 0 - 3/Lowres; 
0 - 15). 

@VlI5$ 

Bildschirm bis Cursor löschen. 

@VtI6$ 

Cursor anschalten. 

@Vtl7$ 

Cursor ausschalten. 

@VtI8$ 

Position des Cursors speichern. 


@vim 

Cursor auf gespeicherte Position setzen. 
@Vt20$ 

Zeile löschen (Restscreen nicht nachziehen). 


@Vl21$ 

Zeile bis Cursor löschen. 


@Vl22$ 

Reversmodus ein (weiß auf schwarz). 


@Vl23$ 

Reversmodus aus (schwarz auf weiß). 
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@Vt24$ 

Cursor nach Erreichen des Zeilenendes auf nächsten Zeilenanfang 
setzen (Zeilenüberlauf). 


@Vt25$ 

Cursor soll am Zeilenende stehenbleiben. 


PRINT USING { P USING } Daten formatiert ausgeben 


PRINT USING "formal",Expr [,Var, 

PRINT USING Format$,Expr [,Var,...] [;] 

PRINT #Kanal,USING "format",Expr [,Var,...] [;] 

Durch diesen Befehl kann ein Ausgabeformat für Werte und Strings 
bestimmt werden. Ihm folgt als erstes ein String oder eine String-Va¬ 
riable, in der das gewünschte Format angegeben wird. Als nächstes 
werden nach einem Komma die Ausdrücke oder Variablen übergeben, 
die diesem Format entsprechen sollen. Werden mehrere Ausdrücke an¬ 
gegeben, müssen diese durch weitere Kommas getrennt werden. Als 
Formatierungszeichen sind vorgesehen: 

# Platzhalter für eine Ziffer: 

Print Using "######",Int(3U21/3) 

Ausgabe: 10473 


Position des Dezimalpunktes: 

Print Using "######.####",31421/4 
Ausgabe: 7855.2500 


+ Ausgabe auch des positiven Vorzeichens: 

Print Using "+######.####",31421/4 
Ausgabe:* 7855.2500 


Platzhalter für negatives Vorzeichen: 


Print Using "-#####.######",31421/-4 
Ausgabe:- 7855.250000 




Ein-/Ausgabebefehle 


89 


Füllzeichen für alle angegebenen Vorkommastellen, die nicht 
von dem auszugebenden Wert belegt werden. Sonst wie #. 

Print Using •••######.####••,31421/1.4 
Ausgabe:**22443.5714 

Hinter dem E>ezimalpunkt verwendet, werden so viele * ausge¬ 
geben, wie angegeben sind und die auszugebende Zahl wird real 
auf die gewünschte Stelle gerundet. 

Print Using ••*######.#•***••,31421/1.4 
Ausgabe:**22443.6**** 


$ Voranstellung eines $: 

Print Using ••$######.##••,31421/1.4 
Ausgabe: $22443.57 


Einfügen eines Kommas (Tausendertrennung): 

Print Using ••##,###,###.###••,3142*2781.71 
Ausgabe: 8,740,132.820 


AAAA Ausgabe im Exponentialformat. Führende # stehen hier für die 
Stellen des Basis-Anteils und ^ für die Exponentenstellen 
(E+xxxx). Überflüssige Basis-Stellen werden mit 0 gefüllt. In 
V3.0 wird der Exponent den Vorkommastellen angepaßt. 

Print Using ••#.########-••,13711*64 

Ausgabe:8.77504000E+05 


! Das erste Zeichen eines Strings wird ausgegeben: 

Print Using ••Ising In IFA^^,^^Uhu^^,^^igitt^^,^'Gaga^^ 

Ausgabe:Using in GFA 

& Gesamt-String wird ausgegeben: 

Print Using ••&hausen^^,^^Enten^^ 

Ausgabe:Entenhausen 

\..\ Ausgabe von sovielen Zeichen des Strings, wie Länge von \..\ 
(inkl. Backslashs): 

Print Using •'\..\ingen^^,••Hattu Möhren?^' 

Ausgabe:Hattingen 
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_ (Tiefstrich) Interpretiert das hierauf folgende Using- 
Formatzeichen nicht als solches, sondern gibt es als ASCII-Zei- 
chen aus. 

Print Using "Channel _### _\ &",44,"XYZ" 

Ausgabe:Channel \ XYZ 

Die Formatvorgabe und die String- und/oder Werte- und/oder Aus¬ 
drucksliste kann in beliebiger Reihenfolge gegliedert sein, solange die 
Parametertypen in ihrer Reihenfolge der Formatvorgabe entsprechen. 
Wird die Reihenfolge nicht korrekt eingehalten, bzw. trifft der Inter¬ 
preter auf unlogische Formate, wird ein Fragezeichen an der betref¬ 
fenden Stelle ausgegeben. Bei numerischen Formaten wird dem ausge¬ 
gebenen Wert ein Prozentzeichen vorangestellt, wenn die Stellenanzahl 
des Wertes das dafür vorgesehene Format überschreitet. Werden 
außerdem bei numerischen Werten im Format weniger Nachkomma¬ 
stellen angegeben, als vorhanden sind, werden die übrigen Nachkom¬ 
mastellen integriert. 

In V3.0 haben Sie die Möglichkeit, zwischen Dezimalpunkt und - 
komma, zu wählen (siehe MODE). 

Durch Nachstellen eines Semikolons (Print Using "....",Expr,Liste....;) 
kann - wie bei PRINT - die Ausgabe von CR/LF unterdrückt werden. 

Mit Angabe eines Datenkanals (Print #1,Using...) können die Ausga¬ 
ben auch auf diesen Kanal umgeleitet werden. Die oben angeführten 
Syntaxregeln sind auch dann gültig. 


WRITE { WR } Daten ausgeben 

WRITE [#Kanal,] ["Text" [,Var,Expr,•...]] 

Ein Ausgabe-Befehl, der in erster Linie zur Datenspeicherung in se¬ 
quentiellen Dateien gedacht ist. Dieser Befehl kann aber auch zur 
Text-, bzw. Datenausgabe auf dem Bildschirm verwendet werden. Er 
ist dem PRINT-Befehl sehr ähnlich, hat jedoch einen anderen syntak¬ 
tischen Aufbau. Außerdem werden hier die Anführungszeichen eines 
übergebenen Strings (Ausdruck oder Variable) sowie die Kommas, mit 
denen hier die einzelnen Ausdrücke voneinander getrennt werden, 
ebenfalls ausgegeben. 

Seinen eigentlichen Sinn zeigt dieser Befehl jedoch erst, wenn mit ei¬ 
nem INPUT#-Befehl mehrere Werte oder Strings gleichzeitig aus einer 
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Datei eingelesen werden sollen. Dazu müssen die Einzeldaten durch 
Kommata voneinander getrennt sein. Da WRITE# Kommata an den 
entsprechenden Platz in der Datei schreibt, können die Daten beim 
Einlesen mit INPUT# unterschieden und den dabei angegebenen Va¬ 
riablen zugeordnet werden. 


Beispiel: 


London/112233 

Riad/1.000.000.000 


The lost Uinner Leimen/666666 

Schneemensch Himalaya/XY-ungelöst '* 


Open "0",#1,''Friends" I Datei tur Ausgabe öffnen 

Restore N_amen I Data-Zeiger setzen 

For IX=1 To 4 14 Zeilen 

Read Name$,Berufs,TelefonS I Je 3 Datas 

Urite #1,Name$,Berufs,Telefons I in die Datei schreiben 

Next IX I Nächste Zeile 

dose #1 I Datei schließen 

N_amen: 

Data " ELizabeth Königin 

Data " Kashogghi Milliardär 

Data '■ Boris 

Data " Yeti 

Open "I",#1,"Friends" I Datei zum Einlesen öffnen 

Print "Heine besten Freunde:";ChrS(13);ChrS(10) I Bla... 

Print "Datei-Inhalt ohne Format:";ChrS(13);ChrS(10) I ...bla 
AS=InputS(Lof(#1),#1) I Kompletten Datei-Inhalt lesen 

Print AS I Unformatiert ausgeben 

Seek #1,0 I File-Pointer wieder auf Anfang 

Print "Mit URITE ausgegeben:;ChrS(13);ChrS(10) 

For IX»1 To 4 14 Zeilen 

Input #1,N.ameS,B.erufS,T.elefonS I Je 3 Ausdrücke 
Urite N.ameS,B.erufS,T.elefonS I mit URITE ausgeben 
Next IX 

Seek #1,0 I File-Pointer wieder auf Anfang 

Print ChrS(10);"Mit PRINT ausgegeben:;ChrS(13);ChrS(10) 

For IX=1 To 4 14 Zeilen 

tnput #1,N.ameS,B.erufS,T.elefonS I Je 3 Ausdrücke 
Print N.ameS,B.erufS,T.elefonS I mit PRINT ausgeben 
Next IX 

Close #1 I Datei schließen 

Void Inp(2) I Auf Taste warten 


5.3 Bildschirmoperationen 


Version 3.0 

HTAB { HT } Aktuelle Cursor-Spalte bestimmen 

HTAB Spalte 

Ein Befehl, der vor allem der Kompatibilität zu anderen BASIC-Dia- 
lekten und der Zusammenarbeit mit CRSCOL dient (TOS-Bildschirm- 
Organisation siehe bei PRINT). 
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Ab Version 2.02 

LOCATE{locat} Cursor positioaieren 

LOCATE S,Z 

Positioniert den TOS-Cursor auf Spalte "S" und Zeile "Z". Von der 
Syntax-Kontrolle wird dieser Befehl in PRINT AT(S,Z); umgewandelt. 
Weiteres siehe dort. 


poso Cursor-Spalte ermitteln 

Var=POS(Dummy) 

POS liefert Ihnen die aktuelle Cursor-Spalte. Es muß ein, in Klam¬ 
mern nachgestelltes numerisches Scheinargument angegeben werden. 
Diese Zahl kann beliebig gewählt werden und hat keinen weiteren 
Einfluß auf die Funktion. 

Da String-Konstrukte mit mehr als 80 (Hires/Midres) bzw. 40 (Low- 
res) Zeichen ausgegeben werden können und eine TOS-Bildschirmzeile 
256 Zeichen aufnehmen kann, kann sich der zurückgegebene Wert im 
Bereich von 0 - 255 bewegen. Die durch POS ermittelte Spaltenzahl 
differiert im Bildschirmbereich um -1 von der durch CRSCOL gelie¬ 
ferten Spalte. 

Beispiel: 

Print At(1,1);Pos(0);Spc{20);Pos(0) 

Ausgabe : 0 21 

Print SpaceS(4000);Pos(0) 

Ausgabe : (4000 Leerzeichen)160 

Der Wert 160 im Beispiel errechnet sich aus: 

4000 Mod 256 = 160 

Ist in der letzten Ausgabe eines der Steuerzeichen CHR$(8) (Back¬ 
space) oder CHR$(13) (Carriage Return) enthalten gewesen, haben 
diese Einfluß auf die POS()-Position: 

Backspace (BS=Chr$(8)) Vermindert POSO um 1 

Carriage Return (CR=Chr$(13)) Setzt POSO auf Null 
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spco 


Leerzeichen ausgeben 


PRINT SPC(Anz) 

PRINT [Ausdrücke;Werte;etc.;] SPC(Anz) [;etc.] 

SPC ist ein Befehl, der nur im Zusammenhang mit PRINT verwendet 
werden kann. Der in Klammern angegebene Ausdruck Anz steht für 
die Anzahl an Leerzeichen (SPaCe = 0 - 255), die an der aktuellen 
Cursor-Position ausgegeben werden sollen. 


Beispiel: 

Print "==>";Spc(20);"Ende" 

Ausgabe : ==> Ende 


Nicht möglich ist: 


A$=H==>«+Spc(20)+’'Ende" 

Es wird ein Syntaxfehler angezeigt. Für solche Konstrukte eignet sich 
SPACE$(20). 


tabo Tabulator setzen 

TAB(Po8ition) 

PRINT [Au8drücke;Werte;etc.;] TAB(Anz) [;etc.] 

Es kann eine Tabulatorposition bestimmt werden, an welcher der 
Cursor dann positioniert wird. Diese Position kann im Bereich von 0 
bis 255 liegen. Größere Werte werden mit MOD 256 auf diesen Be¬ 
reich zurückgerechnet. Befindet sich der Cursor in einer Zeile hinter 
der zuletzt angegebenen Tabulatorposition und der Wert einer sich 
anschließenden TAB-Anweisung liegt zwischen 256 und der aktuellen 
Cursor-Position, so wird dieser Tabulator in derselben Zeile ausge¬ 
führt. Ist der TAB-Wert kleiner als die aktuelle Cursor-Position, wird 
die Anweisung in der nächsten Zeile ausgeführt. TAB ist ebenso wie 
SPC nur in Verbindung mit PRINT ausführbar. String-Konstrukte mit 
TAB sind nicht möglich. 


Beispiel: 


For JX=0 To 11 
Restore T ext 
For IX=1 To 2 
Read A$,AX 

Print Tab{JX*6);A$.. 


I 12 mal 

I Data-Zeiger setzen 
I 4 Datas... 

I ...lesen... 

! ... und ausgeben 
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Hext IX I Nächstes Data 

Next JX I Nächste Position 

T ext: 

Data GFA-,1,BASIC,2 


Version 3.0 

VTAB{vt} Aktuelle Cursor-Zeile bestimmen 

VTAB Zeile 

Ein Befehl, der vor allem der Kompatibilität zu anderen BASIC-Dia- 
lekten und der Zusammenarbeit mit CRSLIN dient (TOS-Bildschirm- 
Organisation siehe bei PRINT). 


5.4 Diskettenoperationen 

Bei allen Diskettenoperationen, denen ein Dateiname zu übergeben ist, 
besteht die Möglichkeit, einen Suchpfad zu definieren, über den der 
Dateizugriff ausgeführt werden soll. 

Laufwerkbezeichnung: Buchstabe mit Doppelpunkt: 

A: Für das erste Laufwerk 
B: Für das sweite Laufwerk 
C: Für evtl, vorhandene RAM-Disk 
D: Für evtl, vorhandenes ROM-Modul 
H: Für Hard-Disk 

Frageseichen innerhalb des Dateinamens sind Platshalter für einseine 
Buchstaben (auch "Wildcards" genannt). Es werden alle Dateien an¬ 
gesprochen, die bis auf die Frageseichenpositionen mit dem angegebe¬ 
nen Dateinamen übereinstimmen. 

Sternchen im Dateinamen sind Platshalter für einen gansen Bereich 
von Zeichen. 


Der Suchpfad hat folgende hierarchische Struktur: 

Station:\ggfs. Ordner\ggfs, UnterordnerXDateiname.Extension 

II I I 

II I I 

Direktory -> Sub-Oirektory -> SubSub-Oirektory -> File 

Die Anzahl der Sub-Dir’s ist nicht begrenzt, soweit die File-Alloca- 
tion-Table (FAT) der Diskette oder Hard-Disk genügend Platz bietet. 
Mehr als drei Ebenen sind jedoch aus Gründen der Übersichtlichkeit 
nicht ratsam. 
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Die Stationsangabe kann entfallen. £s wird dann auf der aktuellen 
Station gesucht. Die Ebenen sind im Pfad durch das Backslash-Zei¬ 
chen (\) zu trennen. Wird eine Extension (max. 3 Zeichen) angegeben, 
muß sie durch einen Punkt vom Dateinamen (max. 8 Zeichen) ge¬ 
trennt werden. 

Beispiele: 

B:\UTILI TY\OUTPUTS\DRUCKE.WAS 

Sucht auf Disk B im Unterordner OUTPUTS des Ordners UTILITY 
nach der Datei DRUCKE.WAS. 

B:\UTILITY\*.* 

Sucht auf Disk B im Ordner UTILITY nach der nächsten beliebigen 
Datei. 


B:\UTIL1 TY\OUTPUTS\*.WAS 

Sucht auf Disk B im Unterordner OUTPUTS des Ordners UTILITY 
nach der ersten Datei mit der Extension WAS. 

\*.WAS 

Sucht auf der aktuellen Station im Haupt-Direktory nach der ersten 
Datei mit der Extension WAS. 

\UTILITY\DR???7 

Sucht auf der aktuellen Station im Ordner UTILITY nach der ersten 
Datei mit einem 6-Zeichen-Namen, der mit DR beginnt. 

A:\DR????. WAS 

Sucht auf Disk A im Hauptdirektory nach der ersten Datei mit einem 
6-Zeichen-Namen, der mit DR beginnt und die Extension WAS trägt. 


A:\D*.* 


Sucht auf Disk A im Haupt-Direktory nach der ersten Datei, deren 
Name mit D beginnt (mit oder ohne Extension). 


\UTILITY\*KE.*S 
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Sucht auf der aktuellen Station im Ordner UTILITY nach der ersten 
Datei, deren Name mit KE und der Extension mit S endet. 

Der Pfadname kann unter GFA-BASIC in den meisten Fällen als 
String-Ausdruck, als String-Variable oder als Kombination von bei- 
dem übergeben werden. 

Da die Pfadanalyse zu einem der häufig auftretenden Probleme zählt, 
folgt nun ein kleines Utility, daß Ihnen die Arbeit dabei abnimmt. 

Beispiel 1: 

A$=''\Ordner\Oatei.Oat" I Beliebiger Pfad 

Print "Vorher : " 

Print ,A* I Anzeigen 

aPath(0,A$,"\",*A$,*B$,*F$) I Nach erstem Backslash suchen 

aPath{0,B$,".",*B$,*C$,*F$) ! Punkt im Dateinamen suchen 

I ==> Die Prozedur Path finden Sie im 
' Library-Teil des RAMKART-Progranms. 

Print "Nachher : " 

Print ,A$ ! Pfad 

Print ,B$ ! Dateiname 

Print ,CS ! Extension 

Beispiel 2: 

A$=i***Dies*ist-ein}beliebiger.Text-String!" IString-Vorgabe 
Print "Vorher : " 

Print ,A$ ! Anzeigen 

Print "Nachher : " 

Print Spctll);"Teil 1";Spc(33);"Teil 2 Suchzeichen" 

Print String$(75,"-") 

Repeat I Schleife 

M$=A$ 1 Alte Vorgabe merken 

aPath(0,A$,"*-I.|",*A$,*BS,*F$) ! Aufruf m. Suchzeichen-Liste 
I ==> Die Prozedur Path finden Sie im 
' Library-Teil des RAMKART-Programms. 

Inc IX 1 Schrittzähler 

Print "Schritt ";IX''AS.-TablSOI.-BS.-TablbAJ.-FS I Ergebnis 
Until A$="" Or A$=HS ! Abbruch, wenn I.Teil = "" oder 

' I wenn I.Teil = Vorgabe-String 


Im Folgenden wird Ihnen öfter der Begriff ''#Kanal" begegnen. Damit 
ist bei Datei-relativen Diskettenoperationen der Identifikator (0 - 99) 
der jeweils angesprochenen Datei gemeint. 
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BLOAD{BLf Datei in Speicherbereich laden 

BLOAD 'Dateiname* [,Start] 

Mit BLOAD kann eine beliebige Datei komplett vom Festspeicher 
(Diskette/Hard-Disk/RAM-Disk) an eine beliebige RAM-Adresse (> 
2047) geladen werden. 

In "Dateiname" wird die Dateibezeichnung (ggfs. inkl. Pfad) übergeben 
und durch den Parameter "Start" wird die Adresse angegeben, ab 
welcher die Daten abgelegt werden sollen. Wird "Start" ausgelassen, 
wird jene Adresse als Ziel verwendet, welche beim letzten BSAVE- 
Aufruf als Quelle gedient hat. Beide Parameter können auch in Vari¬ 
ablen übergeben werden. 

Beispiel (als Befehlserweiterung konzipiert): 

Ext$="PI"+Str*(Xbios{4)+1) I Extension '.Pix' 

' XBIOS(4) liefert die aktuelle Auflösungskennziffer: 

' 0 = Lowres -> Extension = PI1 

' 1 = Midres -> Extension = PI2 

' 2 = Hires -> Extension * PI3 

Fileselect "\*."+Ext*,"Oegaspic."+Ext$,A* 
aOegload(A$,*Pic*,*Pal$,*ResX) I Aufruf 
If ResX<>Xbios(4) I Falsche Auflösung 

Alert 3,"Bild hat falsche Auflösung 1,"Return",BX 
Else 

Void Xbios(6,L:Varptr(PalS)) ! Farb-Palette installieren 
' XBI0S(6,L:AdrX) überträgt ab der angegebenen Adresse 
' 'AdrX' 32 Bytes in die Farbregister 

Spot PicS I Bild ausgeben 

Endif 

Procedure Degload(P.nmS,P.adX,C.adX,P.rsX}l Als Erweiterung 
' P.nmt = Gewählter Bildname 

' P.adX = Pointer auf String-Rückgabevariable, die 
' nach Abschluß das Bild (32000 Byte) enthält 

' C.adX = Pointer auf String-Rückgabevariable, die 
' nach Abschluß die Farbpalette enthält 

' P.rsX = Pointer auf Integer-Rückgabevariable, die 
' nach Abschluß die Auflösungskennung des 

' geladenen Bildes enthält 

Local Buffs,B.adrX I Lokale Variablen 

BuffS=Space$(32034) I Bild-Puffer anlegen 

B.adrX=Varptr(BuffS) I Puffer-Startadresse 

Bload P.nnift,B.adrX I Degas-Bild in Puffer laden 

*P.adX=Right$(BuffS,32000) I Bild abschneiden und Rückgabe 

•C.adX=Hid$(Buff$,3,32) ! Palette " " " 

*P.rsX=Dpeek(Varptr(Buff$))! Auflösung isolieren und " 

Return 
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Aufbau eines Degas-Bildes: 

Byte 1-2 (Word 1) : Auflösungkennziffer (Xbios(4)) 

Byte 3-34 (Word 2-17) : Farbwerte für TOS-Register 0-15 
Byte 35-32034 : Bilddaten 

Vor einem BLOAD-Aufruf sollten Sie sicherstellen, daß die zu la¬ 
dende Datenmenge auch tatsächlich ab der angegebenen Speicherstelle 
untergebracht werden kann, ohne in wichtige Bereiche hineinzuschrei¬ 
ben. In den meisten Fällen wird dies durch das Einrichten eines aus¬ 
reichend großen Puffers erledigt. 

Wäre die Variable BuffS im obigen Beispiel kleiner als 32034 Bytes, 
könnten Sie sich schon mal auf den Weg zum Reset-Knopf machen, 
da nämlich dadurch der Backtrailer (siehe Variablenorganisation) des 
Strings zerstört werden würde und das BASIC dann ziellos durch die 
Wüste läuft. Bei diesem Beispiel wird ein beliebiges Degas-Bild in 
einen Puffer geladen. Ist die Bild-Auflösung korrekt, wird nach 
Rückkehr aus der Lade-Routine durch die XBIOS-Funktion 6 Setpa¬ 
lette die Farbpalette installiert und das Bild durch SGET ausgegeben. 
Anschließend können Sie das Bild jederzeit (solange Pic$ unverändert 
bleibt) durch SPUT Pic$ wieder auf den Bildschirm holen. 


BSAVE { BS } Speicherbereich auf Disk speichern 

BSAVE "Dateiname*,Start,Anz 

Ein sehr komfortabler Befehl, auf den man sicher immer wieder zu¬ 
rückkommen wird. Er bietet die Möglichkeit, eine beliebige Anzahl 
von Bytes (aus RAM oder ROM) als gesamten Block (BSAVE = 
BlockSA VE) auf Diskette zu speichern. Es muß der Name der Datei 
angegeben werden, die diesen Block aufnehmen soll. Nach einem 
Komma folgt die Adresse (Start > 2047), in welcher das erste Byte des 
Blocks steht und abschließend wieder nach einem Komma die Anzahl 
(Anz) der Bytes, die ab dieser Adresse gelesen und gespeichert werden 
soll. 

Beispiel 1: 

Der gesamte sichtbare Bildschirmspeicher (XBIOS(2) = Anfangs¬ 
adresse) wird im sogenannten Doodle- bzw. Standard-Format (32000 
Bytes) auf Disk A verfrachtet. 

Bsave "A: \Screen .Doo",Xbios(2),32000 
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Beispiel 2: 

(Als Befehlserweiterung konzipiert) Hier wird der Bildschirmspeicher 
im E>egas-Format auf der aktuellen Station abgelegt: 

Pic*=''Degas.Pi“+Str$(Xbios(4)+1) I Dateinamen bilden 
aoegsave(PicS,Xbios(2)) I Aufruf 

Procedure Deg$ave(P.nameS,P.adrsX} I Als Erweiterung 

' P.nameS > Dateiname (ggfs. inkl. Pfad) 

' P.adrsX = Adresse, ab welcher die zu sichernden 
' Bilddaten liegen. 

Local Bufft,IX I Lokale Variablen 

Buff$=Space$(32034) I Puffer anlegen 

Bmove Xbios(2),Varptr(Buff$)'*'3A,32000 I Bildschirmspeicher 

' I in Puffer schreiben 

For IX=0 To 15 I 16 Farbregister 

Dpoke Varptr(Buff$)+2+IX»2,{Xbios(7,lX,-1) And &H777) 

■ Farbwert lesen und der Reihe nach in Puffer schreiben 

I 

' XBI0S(7,RegX,-1) And &H777 liefert den Wert des 
' angegebenen Farbregisters RegX (0-15). Dieser 
' Wert liegt im Bereich 0 (&H0) bis 1911 (&H777). 

I 

Next IX 

Dpoke Varptr(BuffS),Xbios(4) I Auflösungskennziffer 

' I in Puffer schreiben 

Bsave PicS,Varptr(Buff$),32034 I Puffer abspeichern 

Return 


CHAIN {CH/V3. 0: CHAI } Programm laden (Autostart) 

CHAIN 'Programmname* 

Dieser Befehl ist eigentlich identisch mit LOAD. Allerdings wird das 
hiermit geladene Programm nach dem Laden automatisch gestartet. Da 
bei diesem Programmstart - wie sonst auch - alle Variablen und Fel¬ 
der gelöscht werden, können zwischen den "gechainten" Programmen 
diese nicht ausgetauscht werden. Hier hat man nun folgende Möglich¬ 
keiten: 

1. Sie können alle wichtigen Daten, die von dem aufrufenden Pro¬ 
gramm übergeben werden sollen, in eine Datei schreiben (siehe 
PRINT#/WRITE#), diese am Programmanfang des CHAIN-Pro- 
gramms wieder einiesen (siehe INPUT#) und die Puffer-Datei 
dann wieder löschen. Der Vorteil ist hier, daß die übergebene 
Datenmenge nur durch den freien Disk-Speicherplatz begrenzt 
ist. Beispiel: 
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Progranm 1: 

AX=1025 

B=399.22 

C$="BASIC" 

Open '■0",#1,''Vars.Dat" 
Urite #1,AX,B,C$ 

CIose #1 

Chain "Prograni2.Bas" 


I Beliebige Variable 

I H II 

I II II 

I Puffer-Datei öffnen 
I Daten übergeben 
I Datei schlieBen 
I Progranm 2 aufrufen 


Progranm 2 (Program.Bas): 

Open "I'',#1,''Vars.Dat“ I Puffer-Datei öffnen 
Input #1,AX,B,C$ I Daten einiesen 

Close #1 I Datei schlieBen 

Kill "Vars.Dat" ! Puffer-Datei löschen 

Print "Variablen aus Progranm 1 : ";AX"B"C* 

2. Sie schreiben die Daten, die Sie übergeben möchten in den 128 
Byte großen Kommandoteil der Basepage (Adresse: Basepage + 
128). Hierbei ist allerdings die Datenmenge auf 128 Bytes be¬ 
schränkt und die Daten müssen schnellstmöglich durch das auf¬ 
gerufene Programm ausgelesen werden, da bei Diskettenzugrif¬ 
fen diese Kommadozeile auch vom Interpreter benutzt wird. 
Beispiel; 

Progranm 1: 


Poke Basepage+128,3 I Anzahl d. MKL$-Uerte 

A$="Text-String" ! Beliebiger Text 

Poke Basepage+129,Len(A$) I Anzahl d. Textzeichen 
AS=Mkl$(AX)'i'Mkl$(BX)'fMkl$(CX)'»AS ! String bilden 
Bmove Varptr(A$),Basepagei'130,Len(A$) I In die 
' ! Basepage schreiben 

Chain "Prograni2.Bas" I Progranm 2 aufrufen 

Progranm 2 (Prograni2.Bas): 


AnzX=Peek(Basepage+128} ! Werte-Anzahl 

Dim AX(AnzX) ! Integer-Feld 

For IX=0 To AnzX-1 ! MKL»-Daten 

AX(IX)=Lpeek(Basepage+130+1X*4) I auslesen 
Next IX 

A$=Space${Peek(Basepage+129))! String-Puffer 
Bmove Basepagei'130+IX*4,Varptr(A$},Peek(Basepage+129) 

' ! Textanteil in eine 

' ! String-Variable holen 

Print "Variablen aus Progranm 1 :" 

For IX=1 To AnzX 
Print AX{IX-1) 

Next IX 
Print A$ 
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In diesem Beispiel legt das aufrufende Programm nach einem 
vorgewählten Schema (das Ihnen überlassen bleibt) zuerst drei 
MKL$-Werte und daran anschließend eine Text-String in der 
Basepage ab. Da das aufrufende Programm dann natürlich 
"weiß", wie die Basepage (bzw. die zweite Hälfte davon) zu ent¬ 
schlüsseln ist, können hier die Daten wieder extrahiert und wei¬ 
terverwendet werden. 

3. Sie verfahren nach dem gleichen Prinzip, wie unter Punkt 2 be¬ 
schrieben, nur daß Sie die Daten nicht in der Basepage, sondern 
hinter dem Bildschirmspeicher puffern. Direkt hinter dem Bild¬ 
schirmspeicher (Startadresse: XBIOS(2)+32000) befindet sich 
nämlich ein Speicherbereich von 767 Bytes, der vom Betriebssy¬ 
stem in keiner Weise genutzt wird. Er ist einfach leer. Es sei 
denn, irgendwelche Accessories (sehr unwahrscheinlich) oder 
Autostart-Programme (schon wahrscheinlicher) benutzen diesen 
Bereich zur Datenablage. 

Ist das nicht der Fall, können Sie diesen Bereich nach eigenem 
Gutdünken verwenden. Prüfen Sie vorher, ob sich irgendwelche 
Daten dort befinden: 

A$=Space$(767) 

Bmove Xbios(2}'t'32000,Varptr(A$),767 
If String$(767,0)=A$ 

_ hier kommen Sie nur hin, wenn der 

Bereich absolut leer ist.... 

Im Interpreterbetrieb wird durch CHAIN auch der BASIC-Arbeits- 
speicher samt Inhalt (aufrufendes Programm) vorher gelöscht. Wenn 
Sie kein PSAVE-geschütztes Programm auf gerufen haben, finden Sie 
nach Programmende das nachgeladene Programm auch im Editor. 

Bei Compilaten wird durch CHAIN ein direkt ausführbares .PRG-, 
.TOS- oder .TTP-Programm gestartet. Vor dessen Ausführung wird 
der Name des aufgerufenen Programms an die AES-Funktion 
shell_write übergeben und das auf rufende Programm beendet. Es ist 
danach nicht mehr aufrufbar und der Speicher wird freigegeben. Die 
zweite Hälfte der Basepage (Bytes 129 - 256) wird durch die AES- 
Funktion shell_write (in GFA-BASIC) als Kommandozeile in die Ba¬ 
sepage des aufgerufenen Programms geschrieben. Es ist also auch hier 
möglich, diese 128 Bytes dazu zu verwenden, Informationen, Vari¬ 
ableninhalte etc. nach dem oben beschriebenen Schema an das aufge¬ 
rufene Programm zu übergeben. Der Unterschied zu EXEC besteht 
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darin, daß nach Abschluß des aufgerufenen Programms das System 
nicht zum Desktop, sondern zum residenten Aufrufer zurückkehrt. 


CHDIR { CHD } Ordner wechseln 

CHDIR “Ordner" 

Hiermit kann auf der aktuellen Diskette ein Ordner geöffnet werden, 
bzw. falls schon einer geöffnet ist, wird dieser vorher geschlossen und 
der angegebene Ordner geöffnet. Dieser Ordner gilt im weiteren Pro¬ 
gramm (bis zur nächsten Änderung) als Default-Ordner, d.h. er wird 
bei Diskettenzugriffen als aktuelles Verzeichnis voreingestellt. Dem 
Befehl wird einfach der Name des Ordners übergeben, der geöffnet 
werden soll (Pfadstruktur siehe Kapitelanfang). Diese Bezeichnung 
kann wieder entweder in einer Variablen enthalten sein (Chdir Ord- 
ner$), oder als Textkonstante übergeben werden (Chdir "UTILITY"). 

Besteht der Ordnername nur aus einem Backslash (\), greift CHDIR 
danach nicht auf einen Ordner, sondern auf das Haupt-Directory zu. 

In V3.0 kann immer dann, wenn ein übergeordneter Ordner vorhanden 
ist, die Übergabe dessen Namens gespart werden, indem man dafür 
einsetzt. Angenommen, der aktuelle Ordner ’Ordnerl’ liegt im Ordner 
’Chef_Ord.ner’. Ebenfalls in diesem Über-Ordner befindet sich noch 
ein weiterer Ordner ’Ordner2’, zu welchem gewechselt werden soll. 

In V2.XX müßte nun CHDIR "chef_ord.ner\ordner2" geschrieben wer¬ 
den. Diese Angabe verkürzt sich durch zu CHDIR "..\Ordner2". 
Zusätzlich kann für den aktuellen Ordnernamen verwendet werden. 


CHDRIVE { CHDR } Aktuelles Laufwerk bestimmen 

CHDRIVE Laufwerk 

CHDRIVE Pfad$ (nur für V3.0) 

Es kann ein Laufwerk zum aktuellen Laufwerk bestimmt werden. 


1 = Laufw. A/2 = Laufwerk B/... 15 = Laufw. O. 


Wird bei künftigen Pfadangaben kein Laufwerk bestimmt (z.B. List 
"\Ordner\Programm.Lst"), wird von nun ab das durch CHDRIVE ak¬ 
tualisierte Laufwerk angesprochen. 
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In Version V3.0 kann in PfadS ein Textausdruck angegeben werden, 
dessen erstes Zeichen als Stationsbestimmung interpretiert wird (z.B. 
CHDRIVE "A:\* 

DFREEO Freien Disketten-Speicherplatz ausgeben 

Var=DFREE(Station) 

Bei Verwendung dieses Befehls wird der momentan freie Speicherplatz 
der angegebenen Station ermittelt und zurückgegeben. Wie schon er¬ 
wähnt, werden den Laufwerken Nummern zugewiesen, über die sie 
bei Befehlen wie diesem zu erreichen sind; 


0 = Aktuelles Leufw./l = Laufw. A/... 16 = Laufw. O 


Wie alle anderen Funktionen kann auch diese auf beliebige Art einge¬ 
setzt werden. 

Beispiele: 

AX=Dfree(0) 

Print "Freier Speicher auf Disk A: ";Dfree(1) 

If Dfree(2)<32000 

Alert 2,"Speicher auf Disk B 77",1."Abbruch",BX 
Else 

Bsave "B:\Picname.Pic",Xbios(2),32000 
Endif 


DIR Directory ausgeben 

DIR ["Pfad'l [TO "Datei"] 

Durch DIR lassen sich auf verschiedene Weise Inhaltsverzeichnisse 
entweder einer beliebigen Diskettenstation oder eines bestimmten Ord¬ 
ners ausgeben. Dabei ist es auch möglich, diese Directory in eine be¬ 
stimmte Diskettendatei zu schreiben oder auf dem Drucker ausdrucken 
zu lassen. Zur Pfadangabe können sämtliche am Kapitelanfang be¬ 
schriebenen Spezifikationen verwendet werden. 

Beispiele: 

Dir 

Gibt alle Dateien der aktuellen Station, die sich außerhalb befinden, 
auf dem Bildschirm aus. 
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A$="A:\UTILITY\'' 

B$="D????" 

Dir A$+B$+".EXT'* 

Listet alle Dateien der Disk A, die sich im Ordner UTILITY befinden, 
deren Name mit dem Buchstaben D beginnt, gleichzeitig fünf Buch¬ 
staben hat und die Extension EXT trägt. 

Dir "\*.EXT" To "B:\DIRECT0R\SUBDIR_1.SUB" 

Schreibt alle Dateien mit der Extension EXT, die sich auf der aktuel¬ 
len Diskette im Haupt-Direktory befinden, in eine neue Datei mit 
dem Namen Subdir_l.Sub, die in dem schon bestehenden Ordner Di- 
rector abgelegt wird. 

Würde im letzten Beispiel statt der Pfadbezeichnung hinter TO der 
Ausdruck "LST:" als Zieldatei angegeben, würde die Ausgabe der Da¬ 
teinamen auf dem Drucker erfolgen. 


DIR$0 Aktuellen Ordnernamen ermitteln 

Var$=DIR$(Laufwerk) 

Mit dieser Funktion kann der Name des zur Zeit geöffneten Ordners 
einer bestimmten Station ermittelt werden. "Laufwerk" steht für die 
Station, auf der nachgesehen werden soll: 


0 = Aktuelles Laufw./l = Laufw. A/... 15 = Laufw. O 


Ist kein Ordner geöffnet, wird ein Leer-String zurückgegeben. 
Beispiele: 


Print DirJ(O) I Namen des aktuellen Ordners der aktuellen 
■ I Station auf dem Bildschirm ausgeben 

A$=Dirt(2} I Namen des aktuellen Ordners der Disk B 
' i an die Variable A$ übergeben 


EXISTO Existenz einer Datei prüfen 

Var=EXIST (Dateiname) 

Ermittelt, ob die Datei "Dateiname" vorhanden ist. Es wird entweder 
eine 0 (= FALSE -> nicht vorhanden) oder -1 (= TRUE -> vorhan¬ 
den) zurückgegeben. Die Angabe eines Suchpfades erfolgt ggfs, gemäß 
der am Kapitelanfang beschriebenen Struktur. 
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Beispiel: 

If Exist("B:\0atei.Dat") I Datei.Dat auf B? 

Open "B:\Datei. Dat“ I Ja, dann öffnen 

'...weiteres Programm 
Else 

Alert 1, "B:\Datei. Dat[existiert nichtl", 1."Abbruch",B% 
Endif 


Version 3.0 

FGETDTAO DUk-Traosfer-Adresse ermitteln 

Var=FGETDTAO 

Liefert die Startadresse des 44 Byte großen Disk-Transfer-Puffers (die 
Disk-Transfer-Adresse). Verschiedene Diskettenzugriffe (DIR, FILES, 
EXIST, FSFIRST etc.) verwenden diesen Puffer zur Ablage des aktuell 
gelesenen Dateinamens und seiner Attribute. Bei BASIC-Start liegt die 
DTA voreingestellt auf BASEPAGE+128. Die DTA läßt sich in GFA- 
BASIC durch LPEEK(BASEPAGE+32) (V2.xx) bzw. {BASEPAGE+32) 
(V3.0) ermitteln. 


Offset Bedeutung 

0-20 21 Bytes für GEHDOS reserviert. 

21 Datei-Attribut (1 Byte) 

PRINT "Attribute : ";BYTE{FGETDTA()+21) 

22 Uhrzeit (2 Byte -> GEHDOS-Format). 

sekX»(CARD{FGETDTA()+22) AND 31)*2 
minX=(CARDtFGETDTA{)+22) DIV 32) AND 63 
std*=(CARDtFGETDTA+22) DIV 2048) AND 31 
PRINT "Zeit : ";stdX;":";minX;":";sekX 

24 Datun (2 Byte -> GEMOOS-Format). 

tagX=CARD{FGETDTA( )'f24} AND 31 
monX=(CARD{FGETDTA+24) DIV 32) AND 31 
jhrX={(CARD<FGETDTA()+24) DIV 512) AND 31)+1980 
PRINT "Datura -. ";t8gX;".";monX;".";jhrX 
(siehe dazu auch TOUCH#) 

26 Datei länge (4 Byte). 

PRINT "Lange : ";(FGETDTA()+26) 

30 - 43 Dateiname (max. 14 Byte -> C-String). 

PRINT "Name : ";CHAR{FGETDTA()+30) 

Datei-Attribute (FGETDTA()+21): 

0 = Normale Datei (lesen/schreiben) 

1 = Schreibgeschützte Datei 

2 = Versteckte Datei —. Diese beiden Dateitypen sind auf 

[-- dem Desktop nicht sichtbar und 
4 = System-Datei —' werden von FILES, FILESELECT etc. 

nicht angezeigt. Sie sind jedoch 
wie Jede andere Datei ansprechbar. 
8 = Diskettenname (Voltne Label - nicht ansprechbar) 

16 = Ordner (Sub-Directory) 

32 = Archiv-Datei (unbenutzt, außer bei Hard-Disk) 
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Von manchen Kopier-Programmen wird dieses 7.Bit des 
Attributs gesetzt, sobald von der betreffenden 
Datei ein Backup angefertigt wurde. 

Die Attribute einer Datei zu erfahren, ist schon recht nützlich. Inter¬ 
essant wird es jedoch erst, wenn man diese auch frei bestimmen kann. 
Dies ist über die GEMDOS-Funktion Change Mode (auch Chmod ge¬ 
nannt) möglich (weiteres im Kap. 21.2 "GEMDOS”). Ein Beispiel zu 
FGETDTAO finden Sie unter FSNEXT(). 

Als V2.xx-Funktion: 

Print afgetdta I Mit Aufruf-Zeichen a und ohne Klamner 
Deffn Fgetdta=Gemdos(A7) 


Diese DEFFN-Funktion tut exakt dasselbe wie die V3.0-Funktion. 


FILES { V2.0: FILE } Directory (erweitert) ausgeben 

FILES ["Pfad"] [TO "Datei"] 

Genügen Ihnen die reinen Dateinamen nicht, die mit DIR ausgegeben 
werden, können Sie mittels dieses Befehls auch erweiterte Attribute 
der einzelnen Dateien erfahren. So haben Sie die Möglichkeit, zusätz¬ 
lich die Größe der Dateien, das Datum und die Uhrzeit ihrer Erstel¬ 
lung in Erfahrung zu bringen. Im übrigen wird dieser Befehl exakt 
genauso angewendet wie DIR (z.B. FILES listet alle Dateien der aktu¬ 
ellen Disk außerhalb von Ordnern sowie alle Ordner auf). Um die 
einzelnen Attribute einer bestimmten Datei zu ermitteln, könnte man 
so Vorgehen: 


Fileselect ■•\».*","“,F.naine$ 

If ExistCF.nameS) 

Files F.nameS To "BUFFDAT" 
Buffer$=SpaceS(4A} 

Bload "BUFFDAT",VarptrtBufferS) 

I 

Kill "BUFFDAT" 

F.szX=VaUMid$(Buffer$,1S,8)) 

F. trnS=M i d$( Buf f er$, 23,10 } 
F.dtt=Mid$(Buffer$,33,10) 

Print "GröBe: ";F.szX""Zeit: "; 
Endif 


I Datei wählen 
I Datei existiert? 

! FILES -> Puffer-Datei 
! String-Puffer bauen 
! Puffer-Datei in 
! String-Puffer laden 
I Puffer-Datei löschen 
! GröBe extrahieren 
I Uhrzeit extrahieren 
I Datim extrahieren 
F.tnlS""DatiJii: ";F.dt$ 


Hier wird ein kleiner Umweg über die Diskette gegangen, da der 
durch FILES gelieferte String nicht direkt in eine Variable übergeben 
werden kann. So wird die Infozeile der gewählten Datei erstmal in ei¬ 
ner Puffer-Datei zwischengespeichert, um dann mit BLOAD in einen 
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vorbereiteten String-Puffer geladen zu werden. Nun muß man nur 
noch die Stellen der Zeile extrahieren, in denen die gewünschten In¬ 
formationen stehen. Das Datum ist hinterher im DATE$-Format in 
der Variablen F.dtS, die Uhrzeit im TIMES-Format in der Variablen 
F.tmS und die Größe in F.sz% jederzeit verfügbar. 

Um allein an die Dateigröße heranzukommen, gibt es eine wesentlich 
einfachere Methode: 

Fileselect •'\*.»",'"',F.nanie$ 

If Exist(F.nan)e$) 

Open ''U'',#99,F.name$ 

F.szX=Lof(ll(99) 

Close #99 

Print “DateigröBe : ";F.8zX 
Endif 

In V3.0 geht das - natürlich 
FGETDTAO und FSNEXT()). 


FSETDTAO 

Var=FSETDTA(Adres8e) 

Ermöglicht die Bestimmung der Startadresse des Disk-Transfer-Puf- 
fers (siehe FGETDTAO). Adresse ist eine beliebige gerade Adresse im 
User-Bereich (größer 2047 im RAM). Diese Adresse wird von den 
meisten in GFA-BASIC implementierten GEMDOS-Funktionen 
(EXIST/DIR/FILES etc.) von nun an als DTA akzeptiert. 

Die DTA ist trotzdem nicht unbedingt konstant, da ihre Lage durch 
einige Befehle, die auf den Festspeicher zugreifen (insbesondere AES- 
Implementationen, z.B. FILESELECT), verändert worden sein kann. 

Wird in Adresse eine ungültige Speicheradresse angegeben oder tritt 
ein anderer Fehler auf, so enthält die Rückgabe variable Var nach 
Abschluß eine GEMDOS-Fehlernummer, deren Bedeutung Sie entwe¬ 
der über ERROR Var oder anhand der GEMDOS-Fehlerliste (siehe 
Kapitel 21.2 "GEMDOS") erfahren können. Ein Beispiel hierzu finden 
Sie unter FSNEXT(). 

Als V2.xx-Funktion: 


I Datei wählen 
I Datei existiert? 

I Datei öffnen 
I GröBe durch LOF ermitteln 
I Datei schlieBen 
I GröBe ausgeben 


- alles noch etwas einfacher (siehe 


Version 3.0 

Disk-Transfer-Adresse bestimmen 


BackX=SFsetdta(Adresse) 

Deffn Fgetdta(AdrX)=Gemdos<26,L:AdrX) 
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Diese DEFFN-Funktion tut exakt dasselbe wie die V3.0-Funktion. 

Version 3.0 

FSFIRSTO Datei suchen 

Var=FSFIRST(Pfad$,Attribute) 

Sucht die erste Datei im Direktory, auf welche die in PfadS vorgege¬ 
benen Suchvorgaben zutreffen, z.B. B:\INFOS\BASIC*.TXT (siehe 
Kapitelanfang). Zusätzlich können Datei-Attribute (siehe 
FGETDTAO) angegeben werden. Läßt sich eine Datei nicht in die 
Attribut-Vorgabe einordnen, wird sie bei der Suche ignoriert. Sollen 
alle möglichen Datei-Attribute berücksichtigt werden, kann der Wert 
63 (Summe aller Attribut-Einzelwerte) angegeben werden. 

Wird eine Datei gefunden, werden die unter FGETDTAO beschriebe¬ 
nen Informationen in den Disk-Transfer-Puffer geschrieben und kön¬ 
nen dort ausgelesen werden. Andernfalls enthält Var nach Abschluß 
eine GEMDOS-Fehlernummer (sonst 0). Ein Beispiel hierzu finden Sie 
unter FSNEXT(). 

Als V2.xx-Funktion: 

BackX^aPsfirst(Pfad$+Chr$(0),Attribute) 

Deffn Fsf 1 rst(Nin$,AttrX)=Geiiidos(78,L:Varptr(Nni$),Attr*) 

Diese DEFFN-Funktion tut exakt dasselbe wie die V3.0-Funktion. 
Hier muß (!!) allerdings die übergebene Pfadbezeichnung mit einem 
Null-Byte abgeschlossen werden. 


Version 3.0 

FSNEXTO Weitere Datei suchen 

Var=FSNEXTO 

Sucht die nächste Datei, auf welche die beim letzten FSFIRST()-Auf¬ 
ruf vorgegebenen Suchkriterien zutreffen. Wird eine weitere Datei 
gefunden, können auch hier die entsprechenden Daten aus dem Disk- 
Transfer-Puffer ausgelesen werden (siehe FGETDTAO). Andernfalls 
enthält Var nach Abschluß eine GEMDOS-Fehlernummer (-33 = Datei 
nicht gefunden). 


Als V2.xx-Funktion: 
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BackX=aFsnext I Mit Aufruf-Zeichen a und ohne Klanmer 
Deffn Fsnext=Genidos(79) 

Diese DEFFN-Funktion tut exakt dasselbe wie die V3.0-Funktion. 
Beispiel: 

Wen hat es nicht schon gestört, daß es nur unter großem Kraftauf¬ 
wand möglich ist, sich ein komplettes Inhaltsverzeichnis seiner Dis¬ 
ketten oder Hard-Disk zu erstellen. 

Dieses Beispiel liefert Ihnen eine tabellarische Übersicht über alle (ja, 
wirklich alle!) Dateien einer Station, egal wieviele Ordner und Unter- 
Unter-Unter...-Ordner vorhanden sind. Möglich wird dies durch eine 
rekursive Prozedur, die sich ab- und aufwärts durch den Datei- 
Dschungel bewegt. 

Sie hat einen kleinen Mangel, dessen Grund ich nicht feststellen 
konnte. Wird die Prozedur mehrmals hintereinander für immer die¬ 
selbe Station aufgerufen, kann es sein, daß Ordner nicht mehr durch¬ 
sucht werden. Wird daraufhin die Diskette gewechselt und die Routine 
für die neue Diskette aufgerufen, ist wieder alles okay. Danach kann 
dann die Suche auf der vorherigen Station (nochmal Disk wechseln) 
wiederholt werden. 

Beim Studieren des Listings wird Ihnen sicher der Dateizähler Cnt% 
auffallen. Dieser hat den Zweck, sich die Anzahl der bisher gelesenen 
Dateien der aktuellen Ebene zu merken. Der Grund dafür liegt darin, 
daß bei Einsatz von FSFIRST() jedesmal die Suche wieder ganz am 
Anfang mit der allerersten Datei beginnt. 

Da aber die bisher ausgegebenen Dateien bei Rückkehr aus einem 
Ordner nicht noch einmal beachtet werden sollen, wird immer erst 
dann wieder ausgegeben, wenn die Anzahl der neu gelesenen Dateien 
den Index des letzten Ordners erreicht hat. Die Variable Mem$ hat 
dann die Aufgabe, sich den letzten Ordnernamen zu merken und 
denselben Ordner beim nächsten Mal zu überspringen. 

Eine weitere Besonderheit ist die Variable Dx_level.999%. Sie ist die 
einzige globale Variable und stellt fest, wann sich das Programm auf 
der obersten Rekursionsebene befindet. Würde sie nicht verwendet, 
würde bei jedem rekursiven Prozedur-Aufruf die angegebene Aus¬ 
gabe-Datei geöffnet und geschlossen, was dann natürlich dazu führt, 
daß immer nur das Verzeichnis des letzten Ordners dort abgelegt 
würde. 
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Diese Raffinesse wurde eingesetzt, um die besonderen Probleme einer 
Rekursion darzustellen. In diesem speziellen Fall wäre es auch möglich 
- und auch eleganter dem Rekursionsaufruf als Ausgabe-Datei¬ 
namen einen Leer-String zu übergeben und die Entscheidung zum 
Öffnen und Schließen anhand eines gültigen Dateinamens zu treffen. 
Da aber ein Leer-String hier als Bildschirm-Ausgabe-Flag gewertet 
wird, müßte dann die Bedingung Else if Fname$="CON:" or fname$="" 
in die Form Else if Fname$="CON:" umgeändert werden. 

Wenn Ihnen die Struktur der Routine nicht auf Anhieb klar wird, 
dann trösten Sie sich bitte damit, daß eine Rekursion auch für gestan¬ 
dene Profis oft ein Buch mit sieben Siegeln ist. 

Die Prozedur erwartet drei Parameter: 


Pfads 

Suchpfad für gewünschte Dateien. Wird hier mit einer Extension gear¬ 
beitet und ein Ordner hat nicht dieselbe Extension, wird er nicht ge¬ 
funden und demnach auch nicht durchsucht! 


Attr% 

Attribut-Wert, den die zu findenden Dateien haben dürfen (siehe 
FGETDTAO). 


FnameS 

Name einer Zieldatei. Wird hier ein Leer-String ("") oder "CON:" an¬ 
gegeben, so wird das Verzeichnis auf dem Bildschirm ausgegeben. 

"LST;" oder "PRN:" geben auf dem Drucker aus und "AUX:" über den 
Auxilliary-Port. 

~Fsetdta(Basepage+128) I DTA setzen 

GetdirC'V*.*",63,"Inhalt.Lst") ! Alle (I) Dateien suchen 

Procedure Getdir(Pfad$,AttrX,FnameS) 

' Pfad$=Suchpfad/AttrX=Dateiattribut/Fname$=Z{eldatei 
If Dx_level.999X=0 I Oberste Rekursionsebene? 

Fname$=Upper$(FnameS) I Zieldateiname nur groB 

If FnameS="PRN:" Or FnameS="LST:" I Drucker-Ausgabe? 

Open “",#99,FnameS I Dann Drucker-Port auf 

Else if FnameS="AUX:" I Auxilliary-Ausgabe? 

Open "",#99,“AUX:" I Dann AUX:-Port öffnen 

Else if FnameS=“CON:“ or fnameS="" I Bildschirm-Ausgabe? 

Open "",#99,“CON:““ I Dann Screen-Port öffnen 

Else I Disk-Datei-Ausgabe? 




Ein-/Ausgabebefehle 


111 


Open "0",#99,Fname$ I Darm Datei öffrren 

Endif 
Endif 

Local Tagl,Mon|,Jhr&,XX,CntX,Td$,D.len* 

Local PosX,F{le$,Hem$,Sekj,H{nj,Stdj I- Lokale Vars 

Local D.attj,D.uhr&,D.dat&,DepthS,DepthX I--' 

Absolute D.attI,Fgetdta()+21 I ’D.attl* Auf die 

Absolute D.uhr&,Fgetdta()+22 I 'D.uhr&' j- entsprechervien 

Absolute D.dat&,Fgetdta()'t2A I 'D.dat&' j DTA-Einträge 

Absolute D.lenX,Fgetdta()+26 I 'D.lenX setzen 

XX=FsfirstCPfadt.AttrX) I Erste Datei der Ebene suchen 

AstringlO,Pfads,''\",Depth$) I Wie viele Backslashe? 

' Die Befehlserueiterung Astring finden Sie unter INSTRI 
DepthX=Len(DepthS)/2 I MKIS's durch 2 = Ebenenindex 

Sta: I Label für Rücksprung aus 

■ I zuletzt bearbeiteter Ebene 

Clr CntX I Dateizähler klar 

Uhile XX=0 I Datei gefunden? 

Inc CntX I Dateizähler +1 

If CntX>PosX I Zähler gröBer als 

' I letzter Ordner-Irxiex? 

Fi leS^CharLFgetdtaO-tBO} I Dateinamen lesen 

If FileSo"." And FileSo”.." I <> Subdir-Platzhalter? 

If (D.attI And 16) Arxi FileSoMemS I Neuer Ordner? 
PosX=CntX I Ordner-Irvdex merken 

MeinS=Pfad$ IfileS I Bisherigen Pfad merken 
Path1$=LeftS(Pf8d$,Rinstr(Pfad$,"\")-1) I Pfadnamen 
' I isolieren 

Path2$=Right$(Pfad$,Len(Pfad$)-Rinstr(Pfad$,"V')+1) 

' I Suchriteriim isolieren 

Print #99,"'";Spc((DepthX)*3);" ORDNER: I Ordner- 

Print #99,P8th1$+"\"+FiIe$+Path2$ I Pfad ausgeben 

Print #99,.;Spc{(DepthX)*3)' I und unter- 

Print #99,StringS(Len(Pfad$+FileS)+10,"=")l streichen 
Inc Dx_level.999X I Ebenenzähler +1 

Getdir7Path1S+’'\"+File$+Path2S,AttrX,Fname$) I Nächste 
I Ebene durchsuchen 

Dec Dx_level.999X I Zähler wieder zurücksetzen 

Astring(0,Pfads,"\",0epthS) alten 

' Die Routine Astring j- Ebenenindex 

' finden Sie unter INSTR | ermitteln 

DepthX=Len(DepthS)/2 !--■ 

XJ^Fsfirst{PfadS,AttrX)! Suchpfad restaurieren 
Goto Sta I Rücksprung zur höheren Ebene 

Else I Datei ist kein Ordnerl 

If (D.attj And 8) I Disk-Label? 

Print #99,.;Spc((DepthX-1)*3);" LABEL : ";FileS; 

Else I Normaler Dateiname! 


Sek =(D.uhr& And 31)*2 I.. 

Hin =(D.uhr& Div 32) And 63 I Dateizeit 

Std =(D.uhr& Div 2048) And 31 I- und Datum 

Tag =D.dat& And 31 I ermitteln 

Hon -(O.datS Div 32) And 31 I 

Jhr&°((D.dat& Div 512) And 31)+1980 I--' 

... !-- . 

TdS=TdS+RightS(''0"+StrS(Hin ),2)+":'' I Ausgabe- 

TdS=TdS+RightS(''0"+StrS(Sek ),2)+" " I- String 

TdS=TdS+RightS("0"+StrS(Tag ),2)+"." I bilden 

TdS»TdS+RightS("0"+StrS(Hon ),2) I 
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Tc»=Td$+"."+Str*(Jhr&) !. ---■ 

Print #99,.;Spc((DepthX-1 )*3);" DATEI : ! Datei- 

Print #99,Filet;Spc(12-Len(File$)); f Namen ausgeben 
Print #99,Using "## & #######",D.att|,Td$,D.lenX; 

‘ ! Daten formatiert ausgeben 


Endif 
Endif 
Print #99 
Endif 
Endif 

XX=Fsnext() 

Uend 

Print #99,. 

If Dx level.999X=0 
Close #99 
Endif 


! CR/LF schreiben 


I Mehr Files auf dieser Ebene? 

! Dann zun nächsten File-Cheque 
I Leerzeile als Trennung 
I Wieder auf oberster Ebene? 

I Dann Ausgabekanal schließen 


Return 


Die "Noch-V2.xx-Besitzer" sollen hier nicht benachteiligt werden. Auf 
der Diskette im Buch (siehe auch Kapitel 1.1) finden Sie ein Pro¬ 
gramm DISK_DIR.LST welches generell denselben Aufbau hat wie 
das hier gezeigte V3.0-Listing. Der Unterschied besteht natürlich 
darin, daß die Nur-V3.0-Befehle und -Variablentypen simuliert bzw. 
ersetzt wurden. 


Kl LL { K/V3.0: Kl } Disk- Datei löschen 

KILL "Dateiname" 

Möchten Sie eine Datei auf dem Festspeicher (Diskette/Hard- 
Disk/RAM-Disk) löschen, können Sie das mit diesem Befehl tun. 
Dazu wird in "Dateiname" der Name der zu löschenden Datei (Pfad 
siehe ggfs. Kapitelanfang) angegeben. 


LIST { LIS } Programm listen/speichern (ASCII) 

LIST ["Dateiname"] 

Möchten Sie das im Arbeitspeicher befindliche Programm auf dem 
Monitor auflisten oder als ASCII-File auf Diskette abspeichern, hilft 
Ihnen dieser Befehl. Geben Sie im Direktmodus oder als Programm¬ 
zeile nur den Befehlsnamen ohne Angabe eines Dateinamens ein, wird 
das gesamte Programm auf dem Ausgabebildschirm ausgegeben. Das 
Listing kann jederzeit durch die GFA-Abbruchtastenkombination 
<Control><Shift><Alternate> unterbrochen werden. 

Wollen Sie das Listing als sogenanntes ASCII-File auf Diskette ab¬ 
speichern, übergeben Sie dem Befehl (in Anführungsstrichen) den 
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Namen der Datei, in welcher das Listing abgelegt werden soll. Dieser 
Befehl ist identisch mit der Editor-Funktion Save.A. Sie können also 
hiermit abgespeicherte Programme jederzeit mit der Editor-Funktion 
Merge in ein anderes, im Arbeitsspeicher befindliches Programm ein¬ 
binden. Die Anführungsstriche zum Dateinamen können vernachlässigt 
werden, da sie vom Interpreter - falls nicht vorhanden - selbsttätig 
gesetzt werden. Die Extension zum Dateinamen kann ebenfalls ver¬ 
nachlässigt werden. Auch sie wird vom Interpreter gesetzt (.LST - falls 
nicht anders vorgegeben). Befindet sich bereits ein Programm gleichen 
Namens auf der Diskette, wird es automatisch auf Programm- 
name.BAK umbenannt. 

Ein ASCH-File ist eine Datei, in welche jedes einzelne Text- und 
Steuerzeichen des zu speichernden Textes in der Reihenfolge seines 
Auftretens als entsprechender ASCII-Wert (0 - 255) geschrieben wird. 
Die meisten textverarbeitenden Programme besitzen die Möglichkeit, 
ASCII-Files zu speichern und zu laden. D.h., daß Texte dieser Art 
unter den verschiedenen Programmen, Systemen und Computern aus¬ 
tauschbar sind, soweit diese sich an den American Standard Code for 
Information Interchange halten (ASCII = engl.; Amerikanischer Stan¬ 
dard-Code zur Informationsübertragung). Dateien mit anderen For¬ 
maten, wie z.B. die .BAS-Dateien (bzw. .GFA in V3.0) werden nach 
einem anderen Schema codiert. Dieser Token-Code wird vom Pro¬ 
grammierer selbst entwickelt, um zum Beispiel eine höhere Lade- oder 
Speichergeschwindigkeit, einen speziellen Effekt oder eine erschwerte 
Lesbarkeit zu erreichen (siehe PSA VE). Diese Dateien sind dann aller¬ 
dings nicht mehr mit anderen Programmen (Interpretern etc.) aus¬ 
tauschbar. Sie sind nicht mehr kompatibel (compatibility = engl.: Ver- 
oinbarkeit/Verträglichkeit). 

Zur Ausgabe des Listings auf dem Drucker haben Sie auch die Mög¬ 
lichkeit, in Dateiname den Drucker-Port PRN; anzugeben. Diese Va¬ 
riante ist dann identisch mit dem Befehl LLIST, wobei jedoch Punkt- 
Befehle (siehe Editor-Funktion Llist) unberücksichtigt bleiben. 

I'.s kann manchmal sehr nützlich sein, mehr Platz auf einer Diskette 
schaffen zu können, ohne dabei auf die wichtigen Daten verzichten zu 
müssen. In den meisten Fällen ist dies nicht möglich, da die Struktur 
der Dateien und die Art und Weise des Zugriffs aus einem Programm 
heraus nicht bekannt sind. 

Bei GFA-.LST-Files, also reinen ASCII-Dateien, ist das Format und 
die Art und Weise des Zugriffs durch den Interpreter bekannt. Aus 
diesem Grund können wir es uns leisten, diese Dateien im Rahmen 
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der Möglichkeiten zu verändern. Mit dem folgenden Kompressor-Pro¬ 
gramm ist das ganz einfach. 

Beim Einlesen von ASCII-Dateien durch die Merge-Funktion über¬ 
prüft der Interpreter die Richtigkeit der gelesenen Zeilen. Wenn man 
nun weiß, daß die Programmstruktur vom Interpreter immer erst dann 
aufgebaut wird, wenn die entsprechenden Programmteile im Editor 
angezeigt werden und diese optische Struktur für den Interpreter selbst 
eigentlich unwichtig ist, ist der Gedanke, daß man auf diese Struktur 
auch in den LST.-Files verzichten kann, garnicht so weit weg. In der 
ASCII-Datei wird die optische Struktur einfach durch entsprechend 
viele Space-Zeichen (Chr$(32)) gebildet. Um nun das Disketten-File 
zu kürzen, brauchen wir als erstes also nur diese Spaces herauszuope- 
rieren.Zweitens kann an jedem Programmzeilen-Ende auf das Line- 
Feed-Zeichen (Chr$(10)) verzichtet werden. Dem Interpreter genügt 
zum Erkennen des Zeilenendes das Carriage-Return-Zeichen 
(Chr$(13)). Das allein kann bei umfangreichen Programmen mit meh¬ 
reren tausend Zeilen schon einige KByte ausmachen. 

Die dritte Möglichkeit, Platz einzusparen, besteht darin, alle Befehls¬ 
namen, die auch durch Abkürzungen eingegeben werden können, 
durch diese Abkürzungen zu ersetzen. Bei diesen Befehlsnamen han¬ 
delt es sich grundsätzlich um Befehle, die nur direkt am Zeilenanfang 
auftreten können. Funktionen - die auch innerhalb einer Zeile stehen 
können - verfügen über keine Abkürzungen. Der Interpreter erkennt 
beim Einlesen des .LST-Files diese Abkürzungen. Ein GFA-BASIC- 
Programm wird im Speicher generell als Mnemonic-Code (bzw. To- 
ken-Code) abgelegt und nur bei der Bildschirm-Anzeige des Listings 
im Editor, bzw. beim TRON- und LIST-Befehl in das für den Pro¬ 
grammierer erkennbare Listing umgewandelt. 

Dieses Programm vollzieht nun diese drei Schritte und schreibt die da¬ 
durch komprimierte Datei wieder auf die Diskette. Im Allgemeinen 
sind damit Platzeinsparungen von bis zu 30 Prozent möglich. Ein 
.LST-File von 100 KByte Länge hätte demnach hinterher eine Länge 
von nur 70-75 KByte. 

Aus programmtechnischer Sicht ist das besondere an diesem Pro¬ 
gramm, daß es nicht über ein String-Feld die Zeile speichert und be¬ 
arbeitet, sondern das gesamte Programm als Block in das freie RAM 
lädt. Anschließend werden die Zeile einzeln in einen String-Puffer 
gelesen und dort auf kleinstmögliches Format getrimmt. Ist das ge¬ 
schehen, wird die gekürzte Zeile wieder ins freie RAM transportiert. 
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Der Kompressor ist nicht mehr jung. Ich habe ihn vor ca. eineinhalb 
Jahren geschrieben. Ich habe ihn für dieses Buch nicht effektiv verän¬ 
dert, da ich glaube, daß er wohl am besten dazu geeignet ist, als 
Übungsobjekt für jegliche Art der Optimierung oder Erweiterung zu 
dienen. Wenn Sie also Spaß daran haben, versuchen Sie doch einfach, 
dieses Programm in die V3.0-Version zu übertragen und anzupassen. 


On break gosub Schluss I Abbruch abfangen 

Deffill ,2,4 

Pbox 10,10,629,389 

Alert 2,''>.LST-FILE-COMPRESSOR<",3,"00 IT“,Flag* 

Al$=“Uurde das LST-File mitjOeflist 0 (BEFEHLSNAME) oder|“ 
AlS=AlS+"Defllst 1 (Befehlsname)jabgespeichert?“ 

Alert 2,Al$,1,“Oeflist1|DEFLISTO“,D.efflag* 

Restore Befehle I DATA-Zeiger setzen 

Do I Erste Lese-Schleife 

Read DurmiS I DATA lesen 

Exit if Instr(Duniit,“XXX“) ! Exit, wenn Endnarkierung erreicht 

tnc D.atasX I Mitzählen 

Loop 

Div D.atasX,2 I DATA-Anzahl/zwei, da iirmer zwei 

• I DATAs pro Befehl 

Restore Befehle I Noch einmal DATA-Zeiger setzen 

Dirn Lang$(D.atasX),Kurz$(D.atasX) I Befehls-Arrsy dimensionieren 
For IX=1 To D.atasX I Alle Befehle und Abkürzungen... 

Read Lang$(IX),KurzS(IX) I ...lesen 

If DefflagX=2 I Mit DEFLIST 0 abgespeichert? 

Lang$(IX)=Upper$(Lang$(IX)) I Darm Befehl in GroBbuchstaben 


I Nächster Befehl 
I 30 KByte Reserve für BASIC 
I Zu komprimierende Datei wählen 
I Datei existiert? 

I Datei öffnen 

I Datei länge feststellen 

I Datei hinter BASIC-Speicher laden 


Endif 
Next IX 
Reserve 30000 
Fileselect lst","“,S$ 

If Exist(SS) 

Open “I“,#1,S$ 

SizeX=Lof(#1) 

Bload S$,Himem 

Print At{10,10);"Comprimiere Zeile 
Do ! Kompressor-Schleife 

CountX=0 I Byte-Zähler auf Null 

A**““ I Zeilenpuffer löschen 

Do I Leseschleife 

ByteXsPeekfHiroenw-OffsetX+CountX) I Einzelzeichen selektieren 
Inc CountX I Byte-Zähler +1 

A$=A$+Chr$(ByteX) ! Zeile zusammenfügen 

Exit if ByteX=13 ! Exit, wenn Carriage Return 
' Als kleine Hausaufgabe wäre es hier interessant, die 
' Cchar-Prozedur (siehe CHARO) einzubinden. 


Loop 

Add 0ffsetX,Len(A$)+2 ! Positions-Zähler addieren 
' ! (+2 bedeutet, daB die Zeichen 

' I CR und LF mitgezählt werden müssen) 

Exit if OffsetX>SizeX ! Exit, wenn Ende des alten Listings 
Inc D.oneX I Zeilen mitzählen 

Print At(43,10);D.oneX ! Aktuelle Zeile ausgeben 

Uhile Left$(A$)=“ “ ! Zeilenanfang = Space? 

A$=Right*(A$,Len(A$-1)) ! Dann Space löschen 
Uend ! Nächstes Zeichen 
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For 1X=1 To D.atasX I Befehlsliste durchgehen 

If LeftS(A$,Len(Lang$(IX>))=Lang$(IX) I Listenuort gefunden? 
A$=R{ghtS(A$,Len(A$)-Len(Lang$(IX)))l Restzeile rechts... 

' I ...vom Befehlsnamen bilden 

AS^KurzSdXT-fAB I Abkürzung einsetzen 

Endif 

Next IX I Nächster Bbfehl der Liste 

Bmove Va r pt r (A$), H i mem^S i zeX'«'GesamtX, L en( AS) 

■ I Zeile komprimiert zurück 

Add GesamtX,Len(AS) I Bisher komprimierte Länge 

Exit if E.flagX=1 I Ende, wenn Exit-Flag gesetzt 
Loop I GroBe Schleifen-Uende 

If E.flagX=1 I Exit-Flag gesetzt? 

Goto Raus I Restprogranm überspringen 

Endif 
Startkill: 

Alert 2,"Altes LST-File löschen?",1,"0ICAY|MEIN",BackX 
If BackX°1 I Altes .LST-File löschen? 

If ExlstCSS) I Diskette nicht gewechselt? 

K.flagX=1 

Kill SS I Datei löschen 

Else I Diskette gewechselt! 

AlS'S”File nicht gefunden I [Diskette wurde gewechselt I" 

Alert 1,AIS,1,"NochmaljUeiter",BackX 
If BackX=1 I Noch einmal versuchen? 

Goto Startkill I Dann zurück 

Endif 
Endif 
Endif 
Startsave: 

If Dfree(0)>GesamtX+1000 I Reicht Diskettenplatz aus? 
F.nameS=RightS(SS,12) I Dateinamen selektieren 
BackslashX=Instr(F.nameS,"\") I Backslash enthalten? 

F.nameS=RightS(F.nameS,Len(F.nameS)-BackslashX) 

' I Rest-String = Dateiname 

If K.flagX=0 I Altes File nicht gelöscht? 

F.nameS=LeftS<F.nameS,Len(F.nameS)-4)+".BAC" I Ext. .BAC setzen 
Endif I Extension .BAC setzen 

Fileselect F.nameS,F.nameS 

If F.nameSo"" And F.nameS<>"\" I Gültiger Dateiname? 

Bsave F.nameS,NimenH-SizeXiGesamtX I Block auf Disk zurück 
Inc C.opyX I Kopien mitzählen 

Alert 2,StrS(C.opyX)+". KOPIE ablegen??",1,"Nein|0k8y",BackX 
If BackX=2 ! Noch eine K^ie? 

Goto Startsave I Dann noch einmal speichern 

Endif 
Endif 

Else I Diskettenplatz reicht nicht 

AlS="Disketten-Speicherplatz reichtjnicht aus! Evtl. Disk-Wechsel!" 
Alert 1,AIS,1("NochmaljAbbruch",BackX 
If BackX=1 ! Noch einmal versuchen? 

Goto Startsave I Dann noch einmal 

Endif 
Endif 
Endif 
Raus: 

Reserve Xbios(2)-Hiniem-16384+Fre(0) ! BASIC-Speicher restaurieren 
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Procedure Schluss 

I 

' Diese Break-Abfang-Routine ist notwendig, um bei Progranmende 

' den BASIC-Speicher wieder ordnungsgemüB restaurieren zu können. 

I 

E.flag*=1 I Abbruch-Flag setzen 

Cent I Weiter geht's 

Return 

Die folgende DATA-Liste ist noch nicht vollständig. Sollten Ihnen - 
gerade zu V3.0 - noch weitere Abkürzungen einfallen, brauchen Sie 
diese einfach nur in diese Liste eintragen. Für die V3.0-Version be¬ 
achten Sie bitte, daß sich einige Befehlsabkürzungen von V2.xx-Be- 
fehlen in V3.0 geändert haben (z.B. TITLEW).Bei der Erweiterung der 
DATA-Liste ist außerdem zu beachten, daß der ausgeschriebene und 
der abgekürzte Befehlsname immer als Paar (erst ausgeschrieben, dann 
abgekürzt) direkt hintereiilanderstehen und daß als letztes DATA- 
Element der String "XXXXX" verwendet wird. 

Befehle: 

Data Pbox,pb,Return,rat,Repeat,rep 
Data Proce^re,pro,Print,p,Box,b,Unt{l,u 
Data Loop,l,For ,f ,Next,n,FUl,fi,House,m 
Data Put,pu,Text,t,Defline,de,Swap,sw 
Data Line,1i,Plot,pl,Local,loc,Draw,dr 
Data Data,d,Defmark,defm,Defmouse,defmo 
Data Deffill,deff,Deftext,deft,Dim,di 
Data Erase,er,Endif,endi,Alert,a,Input,inp 
Data Restore,res,Circle,c,Color,co 
Data Setcolor,se,Pcircle,pc,Ellipse,ell 
Data Pellipse,pe,Prbox,prb,Rbox,rb,Else,el 
Data Poke,po,Lpoke,Ip,Pause,Pa,Goto,got 
Data Resume,resu,Read,rea,If,i,Inc,in 
Data Add,ad,Sub,s,Rem,',Gosub,a 
Data Reserve,rese,Bmove,bm,Showm,sh 
Data Hidem,hi,Option Base,opt base 
Data Option ",opt ",Void,vo,Vdisys,V 
Data Void,vo,Gemsys,ge,0^n ,o ,Edit,ed 
Data Fi leselect,filese,Graphmode,g,Bload,bl 
Data Bsave,bs,Dpoke,dp,Monitor,mon,XXXXX 


LOAD { LOA } Programm in Abeitsspeicher laden 

LOAD 'Programmname* 

Mit LOAD kann ein beliebiges GFA-BASIC-Programm in den Ar¬ 
beitsspeicher geladen werden. Prinzipiell verhält sich dieser Befehl so, 
itls würden Sie den Menüpunkt Load im Editormenü anklicken oder 
iin Editor die Taste <F1> drücken. Auch hier ist die am Kapitelanfang 
beschriebene Pfadstruktur zu verwenden. "Programmname" ist der 
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Name des zu ladenden Programms. Wird dem Programmnamen keine 
Extension beigefügt, wird vom Interpreter selbstständig .BAS ange¬ 
hängt, Z.B.; 

Load "\Utility\Drei_d" ^ 

Das aktuelle Programm wird beendet und muß durch Run im Direkt¬ 
modus, <Shift><F10> oder Klick auf Run im Editormenü gestartet 
werden. Bei durch PSA VE gespeicherten Programmen ist dies jedoch 
nicht nötig, da sie selbsttätig gestartet werden. Soll das Programm 
compiliert werden, wird LOAD vom Compiler nach Abfrage ggfs, 
ignoriert. 


MKDIR{mk Ordner erzeugen 

MKDIR ‘Ordner* 

Mit MKDIR können auf einer beliebigen Station im Haupt-Directory 
oder innerhalb eines vorhandenen Ordners weitere Ordner angelegt 
werden. Dabei wird ggfs, wieder die am Kapitelanfang beschriebene 
Pfadstruktur verwendet. Als Überblick folgt eine Auflistung verschie¬ 
dener Varianten dieses Befehls. 


Mkdir "akte"y 

Erzeugt einen neuen Ordner mit dem Namen AKTE auf der aktuellen 
Station entweder im Haupt-Directory bzw. in dem Ordner, der gerade 
geöffnet ist. 


Mkdir "B:\Fach_a\Akte’' 

Erzeugt einen neuen Ordner mit Namen AKTE auf Station B im vor¬ 
handenen Ordner FACH A 


A$="\fach_a\" 

Mkdir A$+“akte" 

Erzeugt einen neuen Ordner mit Namen AKTE auf der aktuellen Sta¬ 
tion im schon vorhandenen Ordner FACH_A. 

Ist bereits ein Ordner mit derselben Pfadbezeichnung vorhanden, wird 
eine Fehlermeldung ausgegeben. Die Pfadbezeichnung und der Ord¬ 
nername wurden hier mit Absicht klein geschrieben, um deutlich zu 
machen, daß das GFA-BASIC diese Angaben selbstständig in 
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Großbuchstaben umwandelt. Dies ist grundsätzlich bei allen Disketten¬ 
operationen der Fall. Zurückgegeben werden die Dateinamen vom Sy¬ 
stem allerdings ausschließlich in Großbuchstaben (siehe Rückgabe- 
String bei FILESELECT oder DIRS). 

NAME { NA AS/V3.0: NA } Datei umbenennen 

NAME ''Name_alt* AS 'Nameneu* 

Ermöglicht die nachträgliche Änderung eines Dateinamens. Dieser 
Befehl erwartet zwei Parameter. Der erste davon (Name_alt) ist der 
Dateiname, dessen Name verändert werden soll, nach einem ange¬ 
hängten AS wird ein weiterer Name (Name_neu) übergeben, der nun 
an die Stelle des alten Namens tritt. Beide Namen können entweder als 
String-Ausdruck, als String-Variable oder als Kombination aus beiden 
übergeben werden. Am Kapitelanfang finden Sie die Pfadstruktur, die 
ggfs, auch hier zu verwenden ist. Zu beachten ist bei diesem Befehl, 
daß eine evtl. Stationsvorgabe (z.B. A:\) bei beiden Namen identisch 
anzugeben ist. Ist beim alten Namen eine Diskettenstation angegeben 
und ist diese Station auch die aktuelle, dann kann beim neuen Namen 
die Spezifikation entfallen. Innerhalb einer Station kann auch ohne 
weiteres eine im Haupt-Directory verzeichnete Datei durch eine ent¬ 
sprechende Pfadangabe im neuen Namen in einen schon existierenden 
Ordner verlegt werden. 

z.B. 


Hkdir "Akte" 

Fileselect "\*.*","",Aat 
If Exist(Aa$) 

Name Aa$ As "\Akte\"+Aa$ 
Endif 


I Ordner anlegen 
I Datei wählen 
! Datei existiert? 
! Dann umbenennen 


In Version V3.0 kann statt des Befehlsteils AS auch ein Komma oder 
Leerzeichen verwendet werden. An- und Ausführungszeichen sind 
optional. 


PSAVE { PS/ln V3.0: PSA } Programm speichern (listgeschützt) 
PSA VE ‘Programmname” 

Für diesen Befehl gilt die gleiche Ausführung wie zu SAVE. Er bietet 
nur eine kleine Besonderheit, die aber in ihrer Wirkung sehr beein¬ 
druckend ist. Das P in diesem Befehlsnamen namen steht für protected 
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(engl.: geschützt). Die BAS-Programme, die hiermit abgespeichert 
wurden... 

Können nicht mehr gelistet werden. 

Werden sofort nach dem Laden gestartet (Autostart, s. LOAD). 
Können nicht bearbeitet werden. Wird versucht, mit dem Inter¬ 
preter das - unsichtbare - Listing zu bearbeiten, wird man frü¬ 
her oder später mit einem Total-Absturz belohnt. Der Interpreter 
verfügt bei PSAVE-Programmen nicht mehr über die notwendi¬ 
gen Zeiger auf die Variablennamen und beim Versuch, diese zu 
finden gibt es Adressen-Wirrwarr. 


Version 3.0 

RENAME { REN } Datei umbenennen 

RENAME "Namean* AS ''Name_neu'' 

Entspricht exakt dem Befehl NAME (weiteres siehe dort). 


RMDIR { RM } Ordner löschen 

RMDIR "Ordner" 

Die Syntax dieses Befehls ist identisch mit CHDIR, nur daß der ange¬ 
gebene Ordner nicht geöffnet, sondern gelöscht wird. Befinden sich 
allerdings noch Dateien in dem Ordner, kann dieser Befehl nicht aus¬ 
geführt werden und es erscheint eine Fehlermeldung. Ggfs, sind die 
enthaltenen Dateien vorher durch KILL zu löschen. 


SAVE { SA } Programm speichern (codiert) 

SAVE "Programmname" 

SAVE speichert das im Programmspeicher befindliche Programm unter 
dem angegebenen Namen im Token-Format auf dem Festspeicher 
(Diskette/Hard-Disk) bzw. RAM-Disk (zur Pfadangabe siehe ggfs. 
Kapitelanfang). Die Anführunsstriche zum Dateinamen können ver¬ 
nachlässigt werden, da sie vom Interpreter - falls nicht vorhanden - 
selbsttätig gesetzt werden. Die Extension zum Dateinamen kann eben¬ 
falls vernachlässigt werden. Auch sie wird vom Interpreter gesetzt 
(V2.xx: .BAS/V3.0; .GFA - falls in Programmname keine andere Ex¬ 
tension vorgegeben wurde). Befindet sich bereits ein Programm glei- 
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Chen Namens auf der Station, wird es automatisch auf Programm- 
name.BAK umbenannt. 


5.5 Dateihandhabung 


BGET { BG } Teildatei lesen 

BGET [#] Kanal,Start, Anz 

Kanal ist der Identifikator einer mit OPEN "1" oder "U" geöffneten 
Datei. Ab File-Pointer-Position werden Anz Bytes dieser Datei in den 
Arbeitsspeicher - beginnend mit der Adresse Start - gelesen. Wird die 
Datei anschließend nicht mit CLOSE geschlossen, bleibt der File- 
Pointer auf der dem gelesenen Teil folgenden Byte-Position stehen. 
Der nächste Dateizugriff (BGET#, INP(#), INPUT#, PRINT#, OUT# 
etc.) bezieht sich dann auf diese Position. 


Beispiel: 


Open "0",#1,‘’Test.Dat" 
Print #1;"GFA-BASIC"; 
Close 

A$=Space$(S) 

Open "l'',#1,"Test.Dat“ 
Seek #1,4 

Bget #1,Varptr(A$),S 

Close 

Print At 


I Output-Datei öffnen 
I String hineinschreiben 
I und wieder schlieBen 
I Kleinen Puffer setzen 
I Datei für Eingabe öffnen 
I 4 Bytes überspringen 
I 5 Bytes in Puffer lesen 
I Datei schlieBen 
I String ausgeben 


Weitere Anwendungsmöglichkeit s. BPUT bzw. RAMKART-Listing/ 
Procedure Datload. 


BPÜT{ BP} Teildatei schreiben 

BPUT [#]Kanal,Start,Anz 

Es werden Anz Bytes ab der Adresse Start gelesen und - beginnend 
mit der File-Pointer-Position - in eine mit OPEN "O" bzw. "U" geöff¬ 
nete Datei mit dem Identifikator Kanal geschrieben. Im Gegensatz zu 
USA VE können hiermit auch Teile einer Datei überschrieben oder an 
diese angefügt werden. Wird die Datei anschließend nicht mit CLOSE 
geschlossen, bleibt der File-Pointer auf der dem geschriebenen Teil 
folgenden Byte-Position stehen. Der nächste Dateizugriff (BGET#, 
1NP(#), INPUT#, PRINT#, OUT# etc.) bezieht sich dann auf diese 
Position. 
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Beispiel; 

YtX=Min(2,3-Xbios(4)) I Y-Auflösingsteiler 

Open "0",#1,"test" ! File für Schreiben öffnen 

Print #1,Mki${25)+HkiS{161)+Mki$(1); ! Eigenen PUT-Heeder 
' I voranstellen (ohne CR/LFI) 

For I*=0 To 5 16 Icons >.. 

OeffiU ,2,I*+1 I DEFFILL Graustufen j 

Pbox 100+1**40,200/YtX,100+IX*40+25,225/YtX I Zeichnen 
Get 100+1**40,200/YtX,100+1**40+25,226/YtX,AS ! 'GET'ten 
Bput #1,Varptr(A$}+6,Len(AS)-6 I Ohne Header speichern j 

Next I* I Nächstes Icon <.' 

Close #1 I File schlieSen 

Open "I",#1 ,''test" I File für Lesen öffnen 

Buff$=SpaceS(Lof(#1}) I Puffer vorbereiten 

Bget #1,Varptr(BuffS),Lof(#1) ! File in Puffer lesen 
Close #1 I File schlieBen 

For I*=0 To 5 I Fünf mal >.. 

Put 100+1**40,(200-IX*27)/Yt*,BuffS I neues Icon setzen ! 
Pause 20 I Kleine Pause j 

Next I* I Nächste <.' 


Weitere Anwendungsmöglichkeit siehe RAMKART-Listing/Procedure 
Update. 


CLOSE { CL } Datenkanal schließen 

CLOSE [#Kanal] 

Alle mit OPEN eröffneten Kanäle müssen mit CLOSE #Kanal ge¬ 
schlossen werden, um ihre Kanal-Nummer für eine andere Datei ver¬ 
wenden zu können. Wird CLOSE ohne #Kanal verwendet, werden 
damit sämtliche Kanäle gleichzeitig geschlossen. Ein Kanal der noch 
nicht mit CLOSE #Kanal geschlossen wurde und nochmals mit OPEN 
angesprochen wird, verursacht eine Fehlermeldung. Bei Compilaten 
werden bei Programmende alle noch offenen Dateien automatisch ge¬ 
schlossen. Im Interpreterbetrieb können nach Programmende von der 
Direkt-Ebene aus alle offenen Dateien weiterhin angesprochen wer¬ 
den, solange im Editor keine Programmänderung vorgenommen wurde. 


EOFÖ Datei auf Dateieude prüfen 

Var=EOF(#Kanal) 

Mit dieser Funktion kann - außer bei virtuellen Dateien (AUX;, VID: 
etc.) - festgestellt werden, ob sich der File-Pointer hinter dem letzten 
Byte der mit #Kanal angegebenen Datei - also am Dateiende (EndOf- 
File) - befindet. Ist dies der Fall erhält man den Wert -1 (TRUE), an- 
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dernfalls eine Null (FALSE). Die wohl wichtigste Anwendung dieser 
Funktion ist die Vermeidung der Fehlermeldung "File-Ende erreicht". 

Beispiel: 

Open "Dateiname" I Fite zum Lesen öffnen 

Ufiile Eof(#i)=False I Solange File-Ende nicht erreicht 
Out S,Inp(#1) I Einzelnes Byte lesen und ausgeben | 

Uend I Wieder von vorn >.' 


FIELD { Fl AS bzw. Fl AT } Datensatz in Felder unterteilen 

FIELD #Kanal,Anz AS Var1$ [,Anz AS Var2$,...] 

FIELD #Kanal,Anz AT(Adr1) [,Anz AS Var$,...] (nur V3.0) 

Teilt die Datensätze der mit Kanal# angegebenen Random-Datei in 
soviele Einträge auf, wie durch die Menge der Anz AS Var$-Kompo- 
nenten vorgegeben wird. Es wird jeweils die in Anz angegebene An¬ 
zahl an Bytes der nach AS folgenden String-Variablen (Varl$, Var2$ 
etc.) zugeordnet und die Variable gleichzeitig mit Leerzeichen gefüllt. 

In V2.XX ist zu beachten, daß für jeden geöffneten Datenkanal im R- 
Modus nur eine FIELD-Anweisung zulässig ist. Wird versucht, meh¬ 
rere FIELD-Anweisungen an denselben Datenkanal auszugeben, er¬ 
scheint die Fehlermeldung "Nur ein Field zu einem Open "R" möglich". 
Es ist also in V2.xx bei größeren Datenfeldern ratsam, die Namen der 
aufnehmenden String-Variablen so kurz wie möglich zu wählen, da 
FIELD hier in seiner Länge durch die maximale Eingabezeilenlänge 
von 255 Zeichen begrenzt wird. 

Um numerische Daten nicht durch MKI$ etc. in Strings um wandeln zu 
müssen, kann in V3.0 die zweite Syntax-Variante verwendet werden. 
Dabei enthält Anz die Anzahl an Bytes, die ab der zugehörigen - hin¬ 
ter AT in Klammern gesetzten - Adresse gelesen werden sollen. 

Beispiel; 

aX=673123 
bX=VARPTR(aX) 
c&=1000 
d=61234.1231 

FIELD #1,4 AT(bX),2 AT(»c&),8 AT(*d) 

AT- und AS-Komponenten können in einer FIELD-Zeile beliebige 
gemischt werden (z.B. FIELD #1,20 AS a$,2 AT(*b&),...). Außerdem 
kann in V3.0 die FIELD-Aufteilung für eine Datei auf mehrere Pro- 
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grammzeilen verteilt sein. Diese werden dann als zusammengehörig 
angenommen, was die oben erwähnte Fehlermeldung überflüssig 
macht. Außerdem kann in V3.0 statt des Befehlsteils AS auch ein 
Komma oder Leerzeichen angegeben werden. 

Siehe weiteres Beispiel unter 5.5.1 "Funktionsweise einer Random- 
Access-Datei". 


GET# Datensatz lesen 

GET #Kanal [.Satznummer] 

Kanal gibt die R-Datei (siehe OPEN) an, aus welcher der in 
Satznummer angegebene Datensatz gelesen werden soll. Bei der Zuord¬ 
nung von Datensätzen zu einer R-Datei ist jedem Satz eine Nummer 
zuzuteilen. Durch deren Angabe kann der entsprechende Datensatz mit 
GET# wieder in die mit FIELD spezifizierten String-Variable(n) zu¬ 
rückgelesen werden. Fehlt "Satznummer", wird jeweils der nächste - 
bzw. in V3.0 der durch RECORD ggfs, gesetzte - Datensatz gelesen. 
Beispiel unter 5.5.1 "Funktionsweise einer Random-Access-Datei". 


LOCO Füe-Pointer-Position 

Var=LOC(#Kanal) 

LOC (Abk.f. Location) liefert die aktuelle Position des Schreib- und 
Lesezeigers (File-Pointer) der durch #KanaI bestimmten Datei. Die 
gelieferte Byte-Position wird ab Dateianfang gezählt. 

Beispiel: 


.> Byte-Folge einer beliebigen Datei .> 

I Byte 1 \ Byte 2 | Byte 3 | Byte 4 | Byte 5 | Byte 6 \ etc. ... 

I........ ...... l.-.-.-.-l........ 


I 

I 


Angenommen: Aktueller Pointer zeigt auf Byte 4: 


Pointer%=Loc(#1) ! Liefert dann in PointerX den Wert 4 
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LOFO Dateilänge ermitteln 

Var=LOF(#Kanal) 

Durch LOF (Abk.f. Length Of File) ist es bei Disketten- bzw. Hard- 
Disk-E>ateien möglich - sofern Sie überhaupt einen Inhalt haben - 
ihre Byte-Länge zu ermitteln. Der Funktion wird dazu in Klammern 
die #Kanal-Nummer der betreffenden Datei übergeben. 

Beispiel: 


Open “Dateiname" 

Print Lof(#i) 

AX=Lof(#1) 

If Lof{#1>>32767 

A$=Input»(32767,#1) 

Else 

A*«Input${Lof(#1),#1) 
Endif 
... etc. 


I Zuerst Datei öffnen 
I Variante 1: Direktausgabe 
I Variante 2: Zuweisung 
I Variante 3: Bedingungsabfrage 


I Variante A: Einbindung 


Weitere Anwendungsmöglichkeit s. BPUT bzw. RAMKART-Listing/ 
Procedure Datload. 


ÖPEN { O } Datenkanal öffnen 


OPEN "Modus”,#Kanal,‘Dateiname* [.Satzlänge] 

Dieser Befehl eröffnet eine Datei - und Ihnen damit die bunte Welt 
der Dateiverwaltung. Seine Syntax ist auf den ersten Blick etwas kom¬ 
pliziert. Nach näherem Kennenlernen gewinnt man ihn jedoch schnell 
lieb. Die Möglichkeiten, die sich Ihnen mit den Befehlen zur Datei¬ 
verwaltung bieten, sind schier unüberschaubar. 

Modus: 

"O" Output öffnet eine Datei bsw. installiert sie neu. Existiert die angege* 

bene Datei (auf Disk bsw. Hard-Disk) bereits, wird deren Länge auf 
Null gesetet. In diesem Modus sind nur Schreibsugriffe sulässig. 

"I" Input öffnet eine vorhandene Datei eum Herauslesen von Daten. Der 

File-Pointer wird auf das erste Byte der Datei gesetst. Die Dateilänge 
bleibt durch Lesesugriffe unverändert. In diesem Modus sind nur 
Leseaugriffe sulässig. 

"A" Append öffnet eine vorhandene Datei und setst den File-Pointer auf 

das Dateiende. Alle an diese Datei aussugebenden Daten werden an das 
Dateiende angehängt (append = engl.: anhängen/hinsufügen). 

"U" Update öffnet eine Datei für gleichseitigen Schreib- und Lesesugriff. 

Dabei bleibt die ursprüngliche Länge erhalten. Es sei denn, bei Daten¬ 
ausgabe wird über das aktuelle Dateiende hinaus geschrieben. 
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"R" Random öRnet eine Random-Accees-Dafcei. Maximal sind 65535 Da- 

tensätae pro Datei möglich. Genauere Informationen hierau finden Sie 
unter Kapitel 5.6.1. "Funktionsweise einer Random-Access-Datei". 

#Kanal: 

Es können gleichseitig max. 100 Dateien eröffnet sein. Bei der Eröff¬ 
nung wird Kur Identifikation jeder Datei eine Zahl sugewiesen. Unter 
Angabe dieser Zahl hinter dem Nummemseichen kann nun a.B. durch 
Befehle wie PRINT#, INPUT#, BGET# etc. auf jede einaelne dieser 
Dateien augegriffen werden. Die angegebene #Kanal-Nummer muß im 
Bereich von 0 bis 09 liegen. 


Dateiname: 

Beaeichnet den Namen der Datei, die mit dem betreffenden 
Zugriffsmodus geöffnet werden soll. Hier kann wieder die schon er¬ 
wähnte Pfadstruktur (siehe Kapitelanfang) verwendet werden. 


Ausnahme: 

Sie können mit fast allen #-Dateibefehlen auch die verschiedenen 
Schnittstellen Ihres Atari ST ansprechen. Daau wird ebenfalls eine 
Quasi-Datei (virtuelle Datei) geöffnet. Mit Datei ist in diesem Fall je¬ 
doch nicht eine Disketten- baw. Hard-Disk-Datei gemeint, sondern der 
jeweilige Port. 

Es stehen Ihnen sechs solcher Ports aur Auswahl: 

CON: = Consol-Port 

LST: = Seriell-Port (Drucker-Port) 

PRN: = Drucker-Port (Seriell-Port) 

AUX; = Auxilliary-Port 

MID: = MIDI-In/Out-Ports 

VID; = Monitor (CON: transparent) 

IKB: = Tastaturproaessor 

Der Ausdruck vor dem Gleichheitsaeichen (inkl. Doppelpunkt) wird in 
diesem Fall als Dateiname an OPEN Ubergeben. Die Angabe von Mo¬ 
dus kann bei Verwendung dieser Schnittstellen-Variante entfallen. 


Beispiel: 


Open "",#1,"VID:" 

For I*=0 To 31 

Print #1;Chr*(IX); 
Next IX 
CIose #1 


! VIDEO-Port öffnen 

I 32... >.. 

I ...Sonderzeichen ausgeben j 

I Nächstes Zeichen <.' 

I Port wieder schließen 


Dieses Beispiel demonstriert eine weitere Möglichkeit (siehe auch 
OUT), ohne Tastaturbedienung die Sonderzeichen mit den ASCII- 
Werten von 0 bis 31 zu Gesicht zu bekommen. 

Satzlänge: 

Mit Random-Accees-Dateien ist es möglich, sich eine Reihe von Da¬ 
tensätzen innerhalb einer Datei anzulegen, die dann durch Identifika- 
toren angesprochen werden können. Der OPEN-Befehl erweitert sich 
ggfs, hierfür um den Parameter Satzlänge. Darunter ist ein Wert zu 
verstehen, den Sie als Dateiverwalter selbst bestimmen können. Und 
zwar gibt er die Anzahl der Bytes an, die sie den Datensätzen einer 
Datei zukommen lassen wollen. Wird diese Angabe bei OPEN unter- 
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laasen, wird vom Interpreter eine Datensatclänge von 128 Byte vorge* 
sehen. Weitere Informationen tu diesem Thema finden Sie unter 5.5.1 
"Funktionsweise einer Random-Access-Datei". 


In Version V3.0 kann die Eingabe der OPEN-Zeile extrem verkürzt 
werden. So wird z.B. o I 1 Name.Lst vom Editor in OPEN "I",#!, 
"Name.Lst" und z.B. o o 1 NameS in OPEN "o",#l,Name$ umgewan¬ 
delt. Alle An- und Ausführungsstriche, das Nummernzeichen, sowie 
die Trennkommas können vernachlässigt werden, sofern zwischen den 
einzelnen Komponenten ein Leerzeichen angegeben wird. 


PUT# { PU } Datensatz schreiben 

PUT #Kanal [,Satznummer] 

Es wird der durch Satznummer definierte Datensatz aus den mit 
FIELD spezifizierten String-Variablen in die R-Datei mit der Num¬ 
mer #Kanal geschrieben. Wird keine Satznummer angegeben, wird der 
jeweils nächste - bzw. in V3.0 der durch RECORD ggfs, gesetzte - 
Datensatz gelesen. Genauere Informationen hierzu finden Sie unter 
5.5.1 "Funktionsweise einer Random-Access-Datei". 


Version 3.0 


RECALL { RECA } String-Feld aus Datei iesen 

RECALL #Kanal,Feld$0,Anz,Zeilenvar 

In Verbindung mit STORE# ein wahrlich gewaltiger Befehl, der es 
zum Vergnügen werden läßt, z.B. eine Textverarbeitung zu program¬ 
mieren. Wer sich schon einmal mit einem solchen Programm angelegt 
hat, wird wissen, was ich meine. 

RECALL liest Anz Textzeilen aus der zuvor geöffneten Datei mit der 
Kennung Kanal in das String-Feld Feld$(). Carriage Return 
(CHR$(13))/Line Feed (CHR$(10) wird dabei als Zeilenendemarkie¬ 
rung interpretiert. 

Elementen des Feldes werden der Reihe nach ab Element 0 (OPTION 
BASE 0) bzw. ab Element 1 (OPTION BASE 1) je eine Zeile zugeord¬ 
net. Ist das Feld zu kurz (die Elementeanzahl ist dann kleiner als die 
Anzahl gelesener Zeilen), wird der Leseprozess beim letzten Element 
ohne Meldung abgebrochen. Wird das File-Ende erreicht, wird eben¬ 
falls ohne Meldung abgebrochen. Zeilenvar ist eine numerische Rück- 
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gabevariable (Fließkomma- oder 32-Bit-Integer), die nach Abschluß 
die Anzahl der tatsächlich gelesenen Zeilen enthält. 


Der Lesezeiger bleibt nach RECALL bei nicht geschlossenen Dateien 
auf dem Anfang der nächsten Zeile stehen. Das heißt, daß bei weite¬ 
ren RECALL-Aufrufen ab dieser File-Position, bzw. nur noch der 
verbleibende Dateirest gelesen wird. Soll wieder ab Datei-Beginn ge¬ 
lesen werden, ist der File-Pointer durch SEEK #Kanal,0 wieder auf 
den Datei-Anfang zu richten. 


Beispiel: 


Open "0'',#1,"AR STORE.DAT" 

Dirn Sfeld$(6) 

For IX=0 To 5 
Read SfeldS(IX) 

Next IX 

Store #1,Sfeld$(),6 
dose #1 
Erase SfeldSO 
Open "I'',#!, '■AR_STORE.DAT'' 
Dim Rfeld$(4) 

Recall #1,RfeldS(),4,BackX 
Print "Anzahl gelesener ZeiU 
For IX=0 To BackX 
Print RfeldSdX) 

Next IX 
Erase RfeldSO 
Dim RfeldSdO) 

Recall #1,RfeldSO,100,BackX 
Print "Anzahl gelesener ZeiU 
For IX=0 To BackX 
Print RfeldSdX)' 

Next IX 
Close #1 

Data zeilei,zeile2,zeile3,zei 


I Output-Datei öffnen 
I String-Feld einrichten 
I 6 Strings 
I lesen 

I STORE Strii^-Feld 
I Datei schließen 
I Feld löschen 
! Input-Datei öffnen 
I Neues String-Feld anlegen 
I 4 Strings zurücklesen 
: ";BackX 

I Gelesene Strings... 

! ausgeben 

I Feld löschen 
! und neu einrichten 
! Dateirest lesen 
: ";BackX 

I Restliche Zeilen... 

I ...ausgeben 

! Datei schließen 
!4,zei leS,zei leö 


Version 3.0 

RECORD {REC} Satz-Pointer für GET#/PUT# setzen 

RECORD [#] Kanal,Satznummer 

Setzt den Satz-Zeiger für den nächsten GET#- oder PUT#-Zugriff 
auf eine R-Datei. Wird beim nächsten GET# oder PUT# der Para¬ 
meter "Satznummer" ausgelassen, wird der durch RECORD# aktuali¬ 
sierte Satz gelesen bzw. geschrieben. 
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RELSEEK {REL} File-Pointer verschieben 

RELSEEK #Kanal,[-] Offset 

RELSEEK (relativ Seek) verschiebt den File-Pointer der Datei mit der 
Kennung #Kanal relativ zur aktuellen Pointer-Position entweder in 
Richtung File-Ende oder File-Anfang um die mit "Offset" bestimmte 
Anzahl von Bytes. Im zweiten Fall (Richtung File-Anfang) ist dem 
Offset-Wert ein Minuszeichen voranzustellen. 

Beispiel: 


Open "Dateiname" 

Seek #1,Int(Lof(#1)/2) 

I 

Relseek #1,3 

I 

Relseek #1,-6 

I 

I 

'... etc. 


I Datei öffnen 

I Der File-Pointer zeigt nun 
I auf das Byte in der Dateimitte 
I Der Zeiger wird in Richtung File-Ende 
I um drei Byte Heitergesetzt 
I Der Zeiger wird in Richtung File-Anfang 
I sechs Byte zurückgesetzt. Er befindet 
I sich nun 3 Byte vor der durch SEEK 
I bestimmten Hittelposition. 

I Weiteres Progranm 


Bei den Befehlen SEEK und RELSEEK ist darauf zu achten, daß 
nicht versucht wird, den Zeiger auf eine Position zu setzen, die in der 
angegebenen Datei nicht vorhanden ist, bzw. nicht vorhanden sein 
kann (kleiner Null oder größer File-Ende). Wird dies versucht, er¬ 
scheint die Fehlermeldung "Seek falsch?". 


SEEK { SEE } File-Pointer setzen 

SEEK #Kanal,[-] Offset 

Mit diesem Befehl kann der File-Pointer der Datei mit der Kennung 
"#Kanar auf ein durch "Offset" bestimmtes, beliebiges Byte gesetzt 
werden. Diese neue Position bezieht sich entweder absolut auf den 
File-Anfang oder auf das File-Ende. Im zweiten Fall (relativ zum 
File-Ende) ist dem ’Offset’-Wert ein Minuszeichen voranzustellen. 
Eine Anwendungsmöglichkeit finden Sie im RELSEEK-Beispiel bzw. 
im RAMKART-Listing/Procedure Datload. 






130 


Das große GF A-BAS IC-Buch 


Version 3.0 

TOUCH { TOU } Datei-Zeiteintrag aktualisieren 

TOUCH #Kanal 

Schreibt die aktuelle System-Zeitangabe (siehe TIMES) in die dafür 
vorgesehene Position des betreffenden Directory-Eintrags. #Kanal gibt 
dabei die Kennung der durch OPEN geöffneten Datei an. Im ersten 
Beispiel zu FILES finden Sie eine Möglichkeit, allein die Dateizeit aus 
dem Direktory-Eintrag auszufiltern. 


Version 3.0 

STORE { STÖR } String-Feld in Datei ablegen 

STORE #Kanal,Feld$0 [,Anz] 

STORE speichert die Elemente eines durch Feld$() bestimmten String- 
Feldes der Reihe nach in der Datei mit der Kennung #Kanal. Als 
Endmarkierung wird jeder geschriebenen Zeile ein CR/LF (Carriage 
Return/Line Feed = CHR$(13)/CHR$(10)) angehängt. Durch den op¬ 
tionalen Parameter Anz kann bestimmt werden, wie viele Elemente 
maximal in der Datei gesichert werden sollen. Wird dieser Parameter 
ausgelassen, wird das komplette Feld gespeichert. 

Außerdem kann STORE auch für virtuelle Dateien (AUX:, PRN: etc.) 
verwendet werden. Bei RECALL ist das jedoch nicht möglich. 

Ein Beispiel hierzu finden Sie unter RECALL#. 


5.5.1 Funktionsweise einer Random-Access-Datei 

Wie die Behandlung von Variablenfeldern eine Sonderstellung ein¬ 
nimmt, so sind auch die Befehle zur Behandlung von Random-Access- 
Dateien (random access = engl.: wahlfreier Zugriff) eine besondere 
Erklärung wert. 

Alle anderen Zugriffsvarianten auf Disketten- bzw. Hard-Disk-Da- 
teien arbeiten grundsätzlich seriell, d.h.: der Reihe nach. Es wird also 
eindimensional Zeichen für Zeichen nacheinander gelesen, bzw. ge¬ 
schrieben. Diese Reihenfolge ist nur durch SEEK und RELSEEK ver¬ 
änderbar. 
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Eine R-Datei ist vergleichbar mit einem zweidimensionalen Speicher¬ 
feld. Es können mehrere Datenblöcke unter einem gemeinsamen Ober¬ 
begriff - hier der Dateiname - zusammengefaßt werden. Während die 
Elemente eines Variablenfeldes durch die Indizes repräsentiert werden, 
können hier die Datenblöcke (Elemente der 1. Dimension) durch die 
Satznummer angesprochen werden. Innerhalb eines Blocks befinden 
sich dann die zusammengehörigen Einträge (Elemente der 2. Dimen¬ 
sion). Um eine solche Datei anzulegen, muß sie zuerst geöffnet wer¬ 
den. Ihr Sonderstatus wird dabei durch den Arbeitsmodus R kenntlich 
gemacht. 

Open .Dateiname,Satzlänge 

Nachdem dieses getan wurde, kann mit dem Befehl FIELD bestimmt 
werden, in wieviel einzelne Einträge ein Satz unterteilt sein soll. 
Gleichzeitig wird angegeben, wieviele Zeichen (Bytes) jedem einzelnen 
dieser Einträge zuzuteilen sind. Da die Länge des gesamten Daten¬ 
satzes durch die Angabe von Satzlänge im OPEN-Befehl bestimmt 
wird, ist es einleuchtend, daß die Summe der Zeichen der angegebe¬ 
nen Einträge insgesamt nicht größer sein darf als die Satzlänge. Sie 
darf aber kleiner sein. Die einmal so bestimmte Größe eines Satzes 
und seine Einteilung sollte von nun an nicht mehr verändert werden. 
Tun Sie es dennoch, ist die korrekte Übergabe der Daten an die zuge¬ 
ordneten Variablen nicht mehr gewährleistet. Natürlich können Sie 
neue Datenfelder in einen neu definierten Datensatz mit demselben 
Dateinamen einsetzen, nur dann sind die vorher darin enthaltenen 
Daten nicht mehr zu erreichen. 

Zum anderen dürfen die durch PUT# in die Feldeinteilung geschrie¬ 
benen Datensätze in ihrer Größe nicht mehr variiert werden, da sonst 
Daten des folgenden Satzes mit Daten des aktuellen Satzes kollidieren. 
Um die festgelegten Satz- und Eintragslängen immer einzuhalten, 
werden zur Vorbereitung der Einträge die Befehle LSET und RSET 
verwendet. Diese fügen die übergebenen Texte in die definierten 
FIELD-String-Variablen ein, ohne deren Länge zu verändern. 

Es ist problemlos möglich, eine einmal so installierte Random-Access- 
Datei zu erweitern oder zu ändern, indem man der Datei einfach wei¬ 
tere Sätze per PUT#-Anweisung anhängt bzw. in diese einfügt. Ein¬ 
mal geschriebene Sätze lassen sich jedoch nicht bzw. nur über Um¬ 
wege wieder entfernen. In Version V3.0 können Sie eine solches File 
komplett über RECALL einiesen, dann durch INSERT oder DELETE 
bearbeiten und abschließend durch STORE wieder zurückschreiben. In 
V2.XX bleibt Ihnen nur noch die Möglichkeit, über INPUT#, BLOAD, 
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BGET# oder ähnliche Befehle das File zu lesen und dann durch 
BMOVE, SWAP etc. zu modifizieren. 

Erweiterungen innerhalb des Satzgefüges (z.B. zusätzliche Einträge) 
sind nur möglich, indem eine neue Datei mit anderem FIELD-Aufbau 
eingerichtet wird und die Datensätze der alten Datei nach dem Eimer- 
ketten-Prinzip gelesen, erweitert und dann komplett an die neu einge¬ 
richtete R-Datei weitergeleitet werden. 

Achten Sie darauf, daß bei jedem OPEN für eine schon eingerichtete 
Datei dieser Art immer exakt dieselbe Datensatzlänge angegeben wird, 
bzw. die neu angegebene Satzlänge größer als die vorhandene ist. Wird 
nämlich keine Satzlänge genannt, wird diese vom Interpreter selbsttätig 
auf 128 Bytes festgelegt. Falls Sie dann die angesprochene Datei vor¬ 
her größer dimensioniert hatten, wird beim Versuch, ein Feld anzu¬ 
sprechen, das mit seiner Länge über die angegebene Satzlänge hinaus¬ 
reicht, die Fehlermeldung "File-Ende erreicht" ausgegeben. 

Eine Grafik soll das Prinzip verdeutlichen: 


< 1. Datensatz > 

<'Satzlänge' z.B. 45 Byte» 


EintragijEintrag2!Eintrag3 
z.B. z.B. z.B. 

10 Byte 20 Byte 15 Byte 


2. Datensatz 
Satzlänge wie vor 


> < n. Datensatz 

> 


Eintragi 
wie vor: 
10 Byte 


- 1 - 


Eintrag2 
wie vor: 
20 Byte 


Eintrags 
wie vor: 
15 Byte 




. 1 . 


Die Anzahl der Sätze, die Größe der einzelnen Einträge, sowie die 
Satzlänge können von Ihnen frei bestimmt werden. Eingeschränkt 
werden Sie nur durch eine maximale Datensatzlänge von 65535 Byte, 
durch den Umstand, daß die Summe aller Eintragslängen die angege¬ 
bene Satzlänge nicht überschreiten darf und - in V2.xx - durch die 
maximale Programmzeilenlänge für eine FIELD-Anweisung (max. 255 
Zeichen pro FIELD). Numerische Werte sind in V2.xx vor ihrer 
Speicherung in einer R-Datei durch 

MKI$/MKL$/MKS$/MKF$/MKD$ in eine Zeichenkette umzuwan¬ 
deln. In V3.0 können numerische Werte auch direkt übergeben werden 
(siehe FIELD AT). 

Zum tieferen Verständnis folgt nun ein Beispielprogramm, daß Ihnen 
als Anregung zu eigenen Experimenten dienen soll. 

Dieses Programm besteht aus vier voneinander unabhängigen Blöcken. 
Im ersten Block wird eine Random-Access-Datei mit einer Satzlänge 
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von 90 Byte installiert. Diese 90 Byte werden mit der FIELD-Anwei- 
sung in drei Einträge (40/30/20 Byte) unterteilt. Gleichzeitig werden 
die für die Aufnahme der Einträge vorgesehenen String-Variablen mit 
Leerzeichen gefüllt. Im Anschluß daran werden in der FOR/NEXT- 
Schleife sechs Datensätze eingelesen.Nach der Eingabe der jeweiligen 
Einträge werden die Inhalte der INPUT-Variablen durch LSET links¬ 
bündig in die vorgesehenen - und vorbereiteten - Puffer-Strings ein¬ 
gesetzt. Zu guter Letzt wird dann dieser Datensatz mit PUT# unter 
Angabe der Datensatznummer (hier der Schleifenindex 1%) in die Da¬ 
tei geschrieben. 

Block 2 demonstriert das Erweitern und Ändern einer bestehenden 
Datei. Hier sind die Texte willkürlich vorgegeben und können natür¬ 
lich von Ihnen frei bestimmt werden Die letzen beiden Programm¬ 
blöcke zeigen zwei Möglichkeiten, die einzelnen Sätze aus der Datei 
wieder herauszulesen und auszugeben. 


Beispiel; 


' Schreib-Variante 1: 

' (Datei-Erröffnung) 

Open "R",#1,''Adress.Dat",90 I R-Datei erstmals öffnen 
Field #1,40 As Zeile.U,30 As Zeile.2$,20 As Zeile.3$ 

' ! Satz einrichten 

For IX=1 To 6 16 Sätze >. 

Print At(20,11);"Na(ne 
Form Input 40,N$ 

Print At(20,12);"Vorname 
Form Input 30,V$ 

Print At{20,13);"Telefon 
Form Input 20,7$ 

Cls 

Lset Zeile.1$=NS 
Lset Zeile.2$=V$ 

Lset Zeile.3$=T$ 

Put #1,IX 
Next IX 
Close #1 

' Schreib-Variante 2 : 

' (nachträgliches An-/Einfügen) 


I Eintrag 1 eingeben 

He 

f 

I Eintrag 2 eingeben 


Eintrag 3 eingeben 
Bildschirm klar 

Eintrag 1 linksbündig einfügen 
. 11 . 2 

. 11 . 3 . 11 . . 11 . 
Datensatz in R-File eintragen 

nächster Satz <. 

R-File schlieBen 


Open "R",#1,"Adress.Dat",90 I 
Field #1,40 As Zeile.1$,30 As 


Lset Zeile.1$ 
Lset Zeile.2$ 
Lset Zeile.3$ 
Put #1,7 
Lset Zeile.1$ 
Lset Zeile.2$ 
Lset Zeile.3$ 
Put #1,2 


"Satz 7/Zeile 1" 
"Satz 7/Zeile 2" 
"Satz 7/Zeile 3" 

"Satz 2/Zeile 1" 
"Satz 2/Zeile 2" 
"Satz 2/Zeile 3" 


öffnen (Satzlänge beachten) 
Zeile.2$,20 As Zeile.3$ 

I Satzeinteilung wie oben 
■ I Eintrag 1 linksbündig 

I I .11. 2 -"- 

I I .11. 3 .11. 

I neuen Datensatz nachtragen 
I Eintrag 1 linksbündig 


I -"- 2 -"- 

I -"- 3 -"- 

I 2. Datensatz überschreiben 
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Close #1 I und Mieder schließen 

' Lese-Variante 1: 

' (seriell Einlesen) 


Open "R'',#1,"Adress.DBt",90 I Offnen (Satzlänge beachten) 
Field «1,40 As Zeile.1$,30 As Zeile.2$,20 As Zeile.3$ 

■ I Satzeinteilung wie oben 

For IX»1 To 7 17 Datensätze >. 

Get «1,IX I lesen utkI die Einträge den 

' I FIELD-Variablen zuueisen 

: ■';Zeile.1S I Eintrag 1 ausgeben 

: ".•Zeile.2$ I 2 

: ";Zeile.3« I 3 

I Leerzeile 
I Nächster Satz < 

I File schließen 
I BiIdschim klar 
I Kleine Pause 


Print "Name 
Print "Vorname 
Print "Telefon 
Print 
Next IX 
Close «1 
Cls 

Pause 200 

' Lese-Variante 2: 

' (wahlfrei Einlesen) 


.N. 

. 11 . 


Open "R",#1,"Adress.Dat",90 ! öffnen (Satzlänge beachten) 
Field «1,40 As Eintrag1S,30 As Eintrag2$,20 As Eintrag3S 


' I 

Do I 

Print At(20,11);"Satznuniiier 
Repeat I 

SatzX=Val(Chr$(lnp(2))) I 
Until SatzX<8 I 

Exit If SatzX=0 I 

Get «I.SatzX I 

Print At(20,10);"Name 
Print At(20,11);"Vorname : 
Print At(20,12);"Telefon : 
Print At(20,15);"<Taste>" 
Repeat I 

Until LendnkeyS) I 

Cls I 

Loop I 


Satzeinteilung wie gehabt 

Lese-Schleife >., 

eingeben (0=Abbruch): "; 

Eingabe-Schleife >.. 

Satznuimer holen | 

Bis gültige Satznummer 
A-Z-Taste oder 0 gedrückt? 
Gewünschten Datensatz lesen 

";Eintrag1S I Eintrag 1 ausgeben 

";Eintrag2$ I -"- 2 -"- 

";Eintrag3$ I -"- 3 -"- 

Harte ... >.. 

... auf Taste <—' 

BiIdschirm klar 

Wieder von vorn <. 


5.6 Port-Ela-/-Ausgabebefehle 


INP? Port auf Empfangsbereitschaft testen 

Var=INP?(Port) 

Teilt mit, ob am angegebenen Peripherie-Port ein Byte anliegt. Port 
bestimmt die Kennziffer der zu prüfenden Schnittstelle (siehe INP). 
Kann ein Byte gelesen werden, wird der Wert -1 (True) zurückgege¬ 
ben. Andernfalls der Wert 0 (False). 
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INP Daten byteweise von Peripheri« lesen 

Var=INP(Port) 

Var=INP(#Kanal) 

Dieser Funktion sind Sie in den bisherigen Beispielprogrammen schon 
begegnet. Sie eignet sich in diesen Fällen dazu, den Programmlauf zu 
unterbrechen und auf einen Tastendruck zu warten (VOID INP(2)). 
Ihre eigentliche Funktion ist es jedoch, jeweils ein einzelnes Byte von 
einem Peripherie-Port oder aus einer Datei zu lesen. 

In der nachgestellten Klammer wird entweder die Nummer des Daten¬ 
kanals oder eine Identifikationsziffer für den jeweils gewählten Port 
übergeben. Dabei ist Vorsicht geboten. Dieser Befehl läßt sich in sei¬ 
nem Eifer, auf ein Byte zu warten auch nicht von der Break-Funktion 
<Control><Shift><Alternate> beirren. Wurde er aufgerufen, ohne daß 
auf dem angegebenen Port ein Byte anliegt, hilft nur noch der Griff 
zum Reset-Knopf. 


Die Ports haben folgende Identifikatoren; 


0 LST: 

1 AUX: 

2 CON: 

3 MID: 

4 IKB: 

5 VID: 


(Drucker-Port bzw. Centronics-Port) 
(Auxi Uiary-Port bzw. RS232> 

In V3.0 siehe auch INPAUXS 
(Consot-Port = Tastatur) 

(MIDI-Port) 

In V3.0 siehe such INPMIDS 
(Keyboard-Prozessor) 

(Video-Port = Monitor) 


Beispiele: 

X=Inp(2) 

Wartet auf einen Tastendruck und speichert den ASCII-Wert der ge¬ 
drückten <Taste> in X. GFA-INP(2) ist kompatibel zu ST_BASIC- 
INP(2). 
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Wird Eur gedrückten <Tute> EusätElich <Control> gedrückt, ergibt 
sich eine andere Belegung. 


<Cuntrol><I.»st«>> 


/©/©/"/ij /IJ / 


BKiiPEiiKiaa 


IB ln |o IB ID IB In |B !□ IB \m !□ m In |i 



|BI IB IB !□ !□ IQ !□ |EI IB ID !□ |D |BB 



jplralB 

IBIDIDII 

jinlH 
\\B 


X=Inp(3) Wartet darauf, daß ein Byte am MIDI’Port anliegt und speichert des¬ 
sen Wert in X (MIDI = Musical Instruments Digital Interface). 

Out 5,Inp(#l): 

Gibt den ASCII-Wert des an File-Pointer-Position stehenden Zeichens 
der Datei mit der Kanalnummer #1 auf dem Bildschirm aus. 


Var=lnp(0): 


Liest ein Byte vom Centronics-Port. Normalerweise ist dieser Port als 
Ausgabe-Schnittstelle für einen Drucker vorgesehen. Durch einen klei¬ 
nen Trick läßt sich der ST mit einem anderen Computer verbinden, so¬ 
lange dieser ebenfalls über einen Centronics-Port verfügt. 
Centronics-Pinbelegung: 


j ooooooooooooo { 
\ 000000000000 / 


25 


14 
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1 = STROBE zeigt an, daB die anliegenden 

Daten gültig sind. 

2 

bis |- DATA. 8-Bit-Datenleitung 

9 -.1 

10 = Nicht belegt 

11 = BUSY'Signal. Uird vom Drucker gesendet, 

wenn sein Puffer voll oder das Gerät 
Offline ist. 

12 

bis j* Nicht belegt 

17 

18 

bis |- GROUND. 

25 

Soll der ST vom iweiten Computer aus sie Drucker angesprochen wer¬ 
den, sind Pin 1 und Pin 11 der beiden Stecker Uber Kreus su legen. Alle 
anderen Pins werden direkt angeschlossen. Werden vom anderen Com¬ 
puter Druckerausgaben gesendet, können sie nun durch INP(O) vom ST 
gelesen werden. 


Var=Inp(3) 

Liest ein Byte vom MIDI-IN-Port. Die beiden MIDI-Ports (In/Out) 
eignen sich sum Austausch von Daten swischen ST und einem iweiten 
MIDI-Gerät. Üblicherweise ist dieses sweite Gerät ein Synthesieer, der 
die gesendeten Daten in Musik Ubersetit. 

Daiu sind allerdings ausgiebige Kenntnisse des MIDI-Datenstandards 
von Nöten. Im anderen Fall kann das sweite Gerät auch ein eweiter ST 
sein, wobei der MIDI-Out-Port des einen mit dem MIDI-In-Port des 
anderen ST's durch ein handelsübliches S-Pol-Diodenkabel verbunden 
wird. In V3.0 haben Sie durch INPMID$ eine komfortable Möglichkeit, 
den MIDI-Pufler aussulesen. In V2.xx sind Sie darauf angewiesen, den 
Puffer wie folgt su lesen: 

Clr Midin* 

Uhile Inp?(3) 

M i d i n$=M i d i n$+Ch rS( 1 np( 3)) 

Uend 

Zum Schreiben von größeren Datenmengen in den MIDI-Out-Port 
steht Ihnen XBIOS-Funktion 12 (midiws) sur Verfügung: 
Midout$=''beliebiger MIDI-String" 

Void Xbios(12,Len(Midout$)-1,Varptr(MidoutS)) 


Version 3.0 

IN^UX$ Text-String vom seriellen Port (RS232) lesen 

Var$=INPAUX$ 

Reservierte String-Variable, die nach Aufruf alle - seit dem letzten 
Lesen - am seriellen Port (RS232) eingegangenen Zeichen enthält. Der 
Auxilliary-Puffer ist nach einem INPAUXS-Aufruf leer. Zuweisungen 
an diese Variable sind nicht möglich, bzw. bei der mir vorliegenden 
V3.0-Version sogar absturzgefährlich. In den Versionen V2.xx kann 
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derselbe Effekt - nur wesentlich langsamer - durch INP() erreicht 
werden. 


Beispiel: 

AUX lesen: 

Clr Aux» 

Uhile Inp?(1) 
Auxt=Aux$+Chr$(Inp(1)) 
Uend 

Print Aux$ 


AUX schreiben: 

For IX=1 To Len(Aux$) 

Exit If 0ut?(1)=False 
Out 1,Asc(Hi(tt(Aux$,IX,1)) 

Hext IX 

Auxt=Right$(Aux$,Len(AuxS)+1> I evtl, 
nicht ausgegebener String-Rest 


Version 3.0 


iNPMipS Text-String vom MID-IN-Port lesen 


Var$=lNPMID$ 

Reservierte String-Variable, die nach Aufruf alle - seit dem letzten 
Lesen - am MIDI-IN-Port eingegangenen Zeichen enthält. Der MIDI- 
Puffer ist nach einem INPMIDS-Aufruf leer. Zuweisungen sind nicht 
möglich (siehe INPAUXS). 

Die Lese- und Schreibmöglichkeit über den Midi-Port für die V2.xx- 
Versionen finden Sie unter INP(). 


OUT? Port auf Ausgäbebereitschaft testen 

Var=OUT?(Port) 

OUT? liefert Information darüber, ob der angegebene Peripherie-Port 
ausgabebereit ist. Port bestimmt die Kennziffer der zu prüfenden 
Schnittstelle (siehe INP). Kann ein Byte ausgegeben werden, wird der 
Wert -1 (True) zurückgegeben. Andernfalls der Wert 0 (False). 
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OUT { OU } Daten byteweise an Peripherie ausgeben 

OUT #Kanal,Bytewert 
OUT Port,Bytewert 

OUT #Kanal,Byte1 [,Byte2 [,Byte3,...]] (nur V3.0) 

OUT Port,Byte 1 [,B^e2 [,B^e3,...]j (nurV3.0) 

Der Befehl OUT stellt das Gegenstück zu INP() dar. Hiermit lassen 
sich einzelne Byte-Werte an einen bestimmten Datenkanal oder Port 
senden. 


Beispiele: 

Out 5,122 

Gibt das Zeichen z (ASCII 122) an der aktuellen Cursor-Position auf 
dem Monitor aus. Somit lassen sich auch Steuerzeichen (ASCII 0-31) 
beliebig auf dem Bildschirm plazieren. 


Out #1,65 

Schreibt den ASCII-Wert des Zeichens A (ASCII 65) an die aktuelle 
File-Pointer-Position der Datei mit der Kanalnummer 1. 


Out 4,x I KB .--Steuerung: 

Die an den Keyboard-Prozessor gerichteten Befehle ermöglichen ver¬ 
schiedene Einstellungen zur Maus-, Joystick- und Tastaturkontrolle. 

Da dies ein sehr kompliziertes und umfangreiches Thema ist und es 
außerdem an ausreichender Dokumentation mangelt, kann ich Ihnen 
hier nur eine kleine Auswahl dieser Befehle bieten. 

Vorsicht: IKB bedankt sich bei falscher Bedienung mit unvorherseh¬ 
baren - und oft auch irreparablen - Fehlfunktionen. 

Bevor Sie jedoch zum Reset-Knopf greifen, versuchen Sie durch OUT 
4,8 (evtl, auch mehrfach) den IKB: (Intelligent Keyboard) wieder ein¬ 
zufangen. Sollte das erfolglos bleiben, ist ein Reset allerdings meist 
unumgänglich. 
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Out 4,7 

Maustasten-Reaktion einstellen. Es kann bestimmt werden, ob der 
Maustastenstatus ständig (Standard) oder nur bei Mausbewegungen ge¬ 
liefert wird. Im zweiten Fall werden die Maustasten außerdem als 
ASCII-liefernde Tasten gewertet. 

Die linke Taste liefert bei INP(2) den Wert 244 und die rechte den 
Wert 245. Eine INP()-Abfrage kann also auch durch die Maustasten 
bedient werden. Es wird anschließend ein Parameter-Byte erwartet. 

Out 4,1 -> Ständige Meldung 

Out 4,6 -> Meldung nur bei Bewegung 

Werte gröBer 6 sind unzulässig. 


Out 4,8 

Mauskontakt einschalten. Die Maus ist beweglich und meidet in 
MOUSEX/MOUSEY die Mauskoordinaten (hoffentlich!). Eigentlich 
hat dieser Befehl die Aufgabe, den relativen mousevec-Modus (siehe 
XBIOS(34)) zu aktivieren und somit die relativen (auf die vorherige 
Position bezogenen) X- und Y-Pixelabstände der neuen Mausposition 
zu liefern. 

Da dieser Modus jedoch bei System-Start automatisch aktiv ist, kann 
man OUT 4,8 auch als Maus-Retter einsetzen. Mit dem folgenden 
kleinen Programm kann die Ablage-Adresse des mousevec ermittelt 
werden und aus dieser Adresse (+1 bzw. +2) dann die Offsets gelesen 
werden. Ist die neue Mausposition kleiner als die alte, ergibt sich der 
Offset aus 255 - Offset. 

CLR MausX I Adresse klar 

Move_aO_Adress$=MKIS(&H23C8)'^KL$(*MausX) I -. 

Rts$=MKT$(&H4E75) I- Maschinen-Code 

Rout*=Move_aO_Adress$+Rts$ I.' 

I “ “ 

VectorX=XBI0S(34)+16 I mousevec-Adresse holen 

OldX=LPEEK(VectorX) I alten Zeiger sichern 

LPOKE VectorX,VARPTR(Rout$}l eigene Routine einbinden 

UHILE MausX=0 I auf Interrupt warten 

UENO I (erst nach Mausbewegung) 

LPOKE VectorX,OldX I alten Zeiger restaurieren 

' Der bisherige Teil ist vorzugsweise bei Progranmstart 
' auszuführen. Die folgende Abfrage kann dagegen an 
' beliebigen Progrannistellen eingesetzt werden. 

REPEAT 

IF PEEK(MsusX+1) AND PEEK(MausX+2) 

PRINT "X-ZY-Offset : ";PEEK(MausX+1),PEEK<MausX+2) 

ENDIF 

UNTIL MOUSEK 
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Out 4,9 

Absolute Mauskoordinaten liefern. Es werden vier weitere Parameter- 
Bytes erwartet. 

Out 4,Hi-Byte der max. X-Heldung 
Out 4,Lo-Byte der max. X-Heldung 
Out A,Hi*Byte der max. Y-Meldung 
Out A,Lo-Byte der max. Y-Heldung 

Größere Werte, als durch die X- und Y-Maxima vorgegeben wurden, 
werden ignoriert. Ich habe versucht, die X- und Y-Koordinaten durch 
das obige mousevec-Verfahren zu ermitteln. Dies ist mir allerdings 
nicht gelungen. Die Maus blieb auch nach OUT 4,8 weiter inaktiv. 
Also Vorsicht! 


Out 4,10 

Die Bewegungen der Maus werden als Cursor-Tasten-Druck interpre¬ 
tiert. Zwei Parameter sind nachzusenden, die die zurückgelegte Pixel- 
Anzahl je Cursor-Schritt bestimmen. 

Out 4,'X-Relation* 

Out 4,’Y-Rclation' 

In V3.0: OUT 4,11,X,Y 


Druck auf die linke Maustaste hat dann im GFA-Editor die Wirkung 
wie <Control><Cursor-Pfeil-rechts>. Dieser Modus wird durch OUT 
4,8 wieder verlassen. 


Out 4,11 

Raster für Mausmeldungen einstellen. Es sind zwei Parameter nach¬ 
zusenden, die das Raster beschreiben, innerhalb dessen die Mauskoor¬ 
dinaten gemeldet werden. 

Out 4,'X-Raster' 

Out 4,'Y-R8Ster' 

In V3.0: OUT 4,11,X,Y 


Rasterwert 1 stellt den Standard-Zustand wieder her. 


Out 4,12 

Maus-Skalierung. Anwendung ist unklar, da dieser Befehl nur im 
Absolutmodus verarbeitet wird (siehe OUT 4,9). 
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Out 4,13 

Absolute Mausposition melden (keine Parameter). Anwendung ist un¬ 
klar, da auch hier der mousevec-Modus nur die X/Y-Offsets liefert 
(siehe OUT 4,8). 


Out 4,14 

Koordinatenzähler setzen. Es werden 5 Parameter erwartet: 

Out 4,0 I 1 Null-Byte 

Out 4,Hi-Byte der neuen X-Koordinate 
Out 4,Lo-Byte der neuen X-Koordinate 
Out 4,Hi-Byte der neuen Y-Koordinate 
Out 4,Lo-Byte der neuen Y-Koordinate 

Auswirkungen dieses Befehls konnte ich nicht feststellen. Dieser Mo¬ 
dus wird durch OUT 4,8 wieder verlassen. 

Out 4,15 

Pixel-Koordinate 0/0 liegt links unten. 

Out 4,16 

Pixel-Koordinate 0/0 liegt links oben (Standard). 


Out 4,17 

Tastatur-Kontrolle nach OUT 4,19 wieder einschalten. 


Out 4,18 

Mauskontakt ausschalten. Die Maus ist unbeweglich und es werden 
keine Koordinaten mehr gemeldet. Dieser Modus wird durch OUT 4,8 
wieder verlassen. 


Out 4,19 

Tastatur-Kontrolle ausschalten. INP(), INKEYS etc. bleiben an¬ 
schließend ohne Ergebnis, da der Kontakt von Tastatur zum Puffer 
komplett gesperrt ist. 
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Out 4,20 

Maus-Port 0 als Joystick-Port interpretieren. In Adresse 3592 (bei 
ROM-TOS) wird ab jetzt ständig der Joystick-Status von Port 0 abge¬ 
legt (in V3.0 siehe STICK(O)). Im MEGA-TOS oder RAM-TOS müs¬ 
sen die Ablage-Adressen nach demselben Schema ermittelt werden, 
wie bei OUT 4,8 beschrieben wurde. Ändern Sie dazu bitte den mitt¬ 
leren Block folgendermaßen: 

OUT A,22 

vectorX=XBI0S(34}+24 I Mousevec-Adresse holen 

oldX=LPEEK(vectorX} I Alten Zeiger sichern 

LPOKE vectorX,VARPTR(rout$)l Eigene Routine einbinden 

UHILE mausX=0 I Auf Interrupt warten 

WEND I (erst nach Mausbewegung) 

LPOKE vectorX,oldX I Alten Zeiger restaurieren 

OUT 4,20 

In Maus%+1 ist dann der Joystick-Status von Port 0 und in Maus%+2 
der Status von Port 1 zu finden. 

5 1 9 

\ 1 / 

4---0---8 

/ 1 \ 

6 2 10 

Wird zusätzlich der Fire-Button gedrückt, erhöht sich der Statuswert 
um 128 (in V3.0 siehe STRIG(O)). In Adresse 3593 (ROM-TOS) wird 
generell (auch ohne OUT 4,20) der Status von Port 1 abgelegt (in V3.0 
siehe STICK(l)). Der Firebutton-Status hierzu ist allerdings getrennt 
davon in Adresse 3582 zu finden (in V3.0 siehe STRIG(l)). Werte un¬ 
gleich 248 bedeuten, daß der Button gedrückt wird. Der Mausmodus 
wird durch OUT 4,8 wieder eingeschaltet. 


Oul 4,21 

Joystick-Modus (OUT 4,20), sowie Maus ausschalten. Durch OUT 4,8 
wird der Standard-Mausmodus restauriert. 


Oul 4,22 

Einmalige Abfrage des Ports 0 im Joystick-Modus. Die Maus bleibt 
dabei aktiv. Adressen wie bei OUT 4,20. 
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Out 4,23 

Joystick-Dauermeldung einschalten. Es wird ein Parameter-Byte er¬ 
wartet; 

Out 4, Melde-Verzögerung (in 1/10 Sekunden) 

Anwendung wie bei OUT 4,20. In Maus%-kl wird der Firebutton-Sta- 
tus beider Ports geliefert (Bit 0 für Port 1 und Bit 1 für Port 0). In 
Maus%-f2 liegt die Jostickstellung (Bits 0-3 für Port 1 und Bits 4-7 
für Port 0). 


Out 4,24 

Firebutton-Dauermeldung einschalten (keine Parameter). 


Out 4,25 

Maus-Port 0 wird im Joystick-Modus interpretiert und die eingehen¬ 
den Joystick-Bewegungen als Cursor-Tasten-Druck gewertet. Es sind 
sechs weitere Parameter nachzusenden. 


Out 4,X-Startverzögerung (nur wenn Parameter 3=0} 

Out 4,Y-Startverzögerung (nur wenn Parameter 4=0) 

Out 4,X-Reaktionsverzögerung 
Out A,Y-Reaktionsverzögerung 
Out 4,X-Wiederhol-Frequenz 
Out 4,Y-Uiederhol-Frequenz 

Durch OUT 4,8 wird der Standard-Mausmodus restauriert. 


Out 4,26 

Joystick-Dauermeldung ausschalten. 


Out 4,27 

Uhrzeit setzen (siehe SETTIME). 


Out 4,28 

Uhrzeit lesen (siehe TIMES). 


Out 4,29 

Tastaturspeicher bestimmen und belegen. In GFA-BASIC unbrauchbar. 
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Out 4,30 

Tastaturspeicher lesen. In GFA-BASIC unbrauchbar. 


Out 4,31 

Programm im Tastaturspeicher starten. In GFA-BASIC unbrauchbar. 


5.7 Drucker-Anweisungen 


HÄßDCOPY { H } Bildschirm auf Drucker ausgeben 

HARDCOPY 

Der aktuelle Bildschirminhalt wird als Screen-Dump auf den Drucker 
übertragen. Dazu wird dieselbe System-Funktion verwendet, wie sie 
auch durch <Alternate><Help> auslösbar ist. Ist der Drucker nicht 
OnLine, nicht angeschaltet oder überhaupt nicht angeschlossen, wird 
das Programm nach ca. 30 Sekunden (TimeOut) fortgesetzt. Die Be¬ 
fehlsausführung läßt sich ausschließlich durch <Alternate><Help> un¬ 
terbrechen. Die Break-Funktion <Control><Shift><Alternate> ist außer 
Kraft. 

In diesem Zusammenhang ist ein kleiner Trick interessant. Das System 
löst generell eine Hardcopy immer dann aus, wenn der Word-Inhalt 
der Adresse &H4EE gleich Null ist. Anschließend wird ihr Inhalt um 
1 vermindert. Wird nun <Alternate><Help> gedrückt, wird der Adres- 
sen-Inhalt durch das System um 1 erhöht, so daß sich der Wert Null 
ergibt und eine Hardcopy ausgeführt wird. Eine Hardcopy kann also 
auch durch SDPOKE &H4EE,0 ausgelöst werden (für nicht Epson- 
kompatible Drucker ggfs, die einzige Möglichkeit, eine Hardcopy zu 
produzieren). 

Wird nun in &H4EE ein Wert größer Null ge’dpoked’, wird der Zähler 
beim nächsten <Alternate><Help> wieder um 1 erhöht. Da sich daraus 
dann jedoch nicht der Wert 0 ergibt, wird keine Hardcopy ausgeführt. 
So haben Sie also die Möglichkeit, die Ausführung der Hardcopy- 
Routine zu unterdrücken. Ob in der Zwischenzeit vom Anwender 
versucht wurde, eine Hardcopy durch <Alternate><Help> auszulösen, 
erkennen Sie daran, daß der Inhalt von &H4EE größer ist als der 
Wert, den Sie vorher hineinge’dpoked’ haben. In diesem Fall können 
Sie durch SDPOKE &H4EE,0 eine Hardcopy dann auslösen, wenn es 
Ihnen bzw. Ihrem Programm paßt. Anschließend an die Hardcopy 
wird der Zähler durch das System automatisch wieder auf 65535 
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(vorzeichenlos) bzw. auf -1 (vorzeichenbehaftet) gesetzt und das Spiel 
kann von vorn beginnen. 

In der V3.0-Version vom IS.6.88 wird durch HARDCOPY generell ein 
SDPOKE &H4EE,0 und VSYNC ausgeführt, woraus sich ergibt, daß 

a. auch nicht Epson-kompatible Drucker über HARDCOPY zum 
Ausdruck eines Screen-Dumps überredet werden können 

b. das oben beschriebene SDPOKE &H4EE-Spielchen nicht mehr 
funktioniert, sobald der Befehl HARDCOPY inzwischen ver¬ 
wendet wurde. In diesem Fall wird ja generell die Adresse 
&H4EE auf Null gesetzt, womit nach Abschluß der Hardcopy 
wieder der Standardzustand eingestellt ist. 


LUST {LL} Programm-Listingausdrucken 

LLIST 

Soll das aktuelle Programm-Listing auf den Drucker übertragen wer¬ 
den, kann das LLIST erreicht werden (vgl. Editor-Funktion Llist). Die 
Ausführung dieses Befehls kann in V2.0 durch nichts gestoppt werden 
(auch nicht durch die GFA-Break-Funktion). Es sei denn. Sie schalten 
den Drucker OffLine oder ganz einfach aus. Nach ca. 30 Sekunden 
meldet sich dann Ihr Programm wieder. 

Je nach Druckertyp- und marke kann diese Unterbrechung während 
des Druckvorgangs unterschiedliche Auswirkungen haben. Die meisten 
Drucker wird es nicht stören, wenn sie in ihrer Arbeit brutal unter¬ 
brochen werden. Einige jedoch könnten es Ihnen übel nehmen. Sie 
werden sicher schon wissen, ob ihr Drucker zu dieser mißmutigen 
Gattung gehört. Grundsätzlich ist jedoch bei einem Ausschalten des 
Druckers eine kurze Frist von ca. 3-5 Sekunden einzuhalten, bevor Sie 
das Gerät wieder einschalten. Diese Besinnungspause gehört sozusagen 
zur Wartung des Druckers. Er wird es mit einem langen Druckerleben 
vergelten. 

In V2.02 und V3.0 kann das Drucker-Listing jederzeit (falls Break- 
Funktion aktiv) durch <Control/Shift/Alternate> unterbrochen werden. 
Der Interpreter ist dann wieder arbeitsbereit und es wird nur noch der 
Inhalt des Drucker-Puffers ausgedruckt. Außerdem werden in V3.0 
die im Programm befindlichen Punkt-Befehle (siehe Erklärung zur 
Editor-Funktion Llist) auch hier berücksichtigt. 
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LPOSO Druckkopfposltion ermitteln 

Var=LPOS(Dummy) 

Mit dieser Funktion können Sie den aktuellen Standort des virtuellen 
Druckkopfes im Zeichenpuffer Ihres Druckers ermitteln (max. 2SS). 
Da dieser nicht mit der aktuellen Position des physikalischen Schreib¬ 
kopfes (der, der den Lärm macht) übereinstimmen muß, kann es unter 
Umständen wichtig sein, die gerade im Speicher aktuelle Position zu 
erfahren. Nach einem Carriage Return (LPRINT) beginnt die Zählung 
wieder bei Null. Es wird in Klammern ein beliebiger Wert übergeben, 
der für die Funktion ohne Bedeutung ist (dummy; engl, für; At¬ 
trappe/Schwindel). 

Beispiel: 

Lprint "VIRTUELLE DRUCKKOPF-POSITION" 

For 1=1 To 150 
Lprint Lpos(O)' 

Next I 
A=Lpos(0) 

Print A 


LPRINT { LPR } Daten an Drucker ausgeben 

LPRINT [,’] "Text" [[:,’] Varl [;,T Expr...] 

Grundsätzlich arbeitet LPRINT genauso wie PRINT. Die Syntax ist bis 
auf die AT(Xpos,Ypos)-Variante mit PRINT vergleichbar. Ein Unter¬ 
schied ist, daß LPRINT die gewünschten Zeichen, Strings und Werte 
nicht auf dem Bildschirm, sondern auf dem Drucker ausgibt. Bezüg¬ 
lich der Drucker- und Druckkopf-Steuerung sollten Sie sich mit Ihrem 
Drucker-Handbuch eingehend auseinandersetzen. Dort finden Sie dann 
auch die notwendigen Steuerbefehle zur PRINT AT-Simulation etc. 

Beispiel (für Epson-kompatible): 

Lprint "Aktuelle Schrift" 

Lprint Chr$(15);"Schnialschrift an = CHR$(";15;")" 

Lprint Chr${18);"Schnialschrift aus = CHR${";18;")" 

Lprint Chr$(14),•"Breitschrift an = CHR$(";H;")" 

Lprint "Normalschrift" I Standard-Druck 

Lprint ChrSdO); I Puffer ausdrucken 

Ein Grundproblem beim Ausdruck von Text ist immer, daß die ein¬ 
zelnen Drucker verschiedenen Standard-Zeichensätze zur Verfügung 
stellen. Man versteht zwar unter ASCII eine allgemein standardisierte 
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Codierung der einzelnen Buchstaben, aber wenn Sie schon versucht 
haben sollten, mit Ihrem Drucker Text auszudrucken, innerhalb dessen 
sich bestimmte Zeichen befinden (z.B. ß, ä, Ä, |, # etc.), so wird Ih¬ 
nen aufgefallen sein, daß dort nicht unbedingt das gedruckt wird, was 
Sie auf dem Bildschirm sehen. 

Ich möchte Ihnen deshalb hier zwei kleine Prozeduren anbieten, die es 
Ihnen ermöglichen, die Undefinierten bzw. falsch definierten Zeichen 
an den ST-Zeichensatz anzpassen. Voraussetzung ist dazu, daß Sie 
einen Drucker besitzen, der mit Epson FX-80/FX-85/FX-105 Epson- 
kompatibel ist (z.B. Star NL-10). Ob die Epson-RX-Serie ebenfalls 
mit diesen Routinen bedient werden kann, konnte ich nicht überprü¬ 
fen, da in meinem "Einzugsgebiet" nur mit Epson-FX-xx, P6 und Star 
NL-10 gearbeitet wird. Wenn Sie nicht genau wissen, ob Ihr Drucker 
zu den Epson-kompatiblen gehört, probieren Sie die Routinen einfach 
aus - es wird sich zeigen. 

Die erste Routine stellt nur die Möglichkeit zur Verfügung, einzelne 
Zeichen grafisch zu gestalten. Sie legt dann das in dem Bitraster- 
String-Feld angegebene Bit-Muster im 1 lx8-Punktformat als DATA- 
Zeile in der Datei EPS_DATA.LST ab, die dann in die zweite Proze¬ 
dur EPS_INIT eingemergt werden kann. Dort können die selbstdefi¬ 
nierten Zeichen gesammelt an den Drucker weitergeleitet werden. 

Die Datei EPS_DATA.LST wird übrigens jedes Mal überschrieben. 
Sobald Sie also ein Zeichen in dieser Datei abgelegt haben, holen Sie 
es in den Arbeitsspeicher (Merge), falls Sie anschließend noch weitere 
Zeichen definieren möchten. 

Dirn D.str$(7) I Bit-Huster-Feld einrichten 

AsciiX=35 I ASCII-Wert des zu ändernden 

' I Text-Zeichens 

0.str*{0)="00000000000" ! 

D.str*(1)="00110001100" I Vor Start 

D.str$(2)='‘00110001100" I Bitmuster 

D.str$(3)="01111111110" !--- editieren. 

D.str$(4)=“00110001100" I 8 Zeilen * 

D.str${5)="01111111110" I 11 Spalten 
D.str$(6)="00110001100" I 

D.str$(7)=*'00110001100" I 

I —------1 

Epdat$="0 ''+Str$(AsciiX)+",'' ( DATA-Zeile vorbereiten 

For EpiX=1 To 11 I 11 Spalten 

Clr Sp* ! Byte-Puffer löschen 

For EpjX=0 To 7 18 Nadeln (keine Unterlängen) 

Add SpX,(2‘(7-EpjX)*Sgn{Val("&X"+0.str$(EpjX))... 

...And 2'(11-EpiX))) 

' ! Byte-Wert für eine Nadelreihe bilden 
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' Hier ist wichtig, zu wissen, daB diese Byte-Werte 
' spaltenweise von unten nach oben gebildet werden. 

' Bit 0 des ersten Wertes liegt also im Raster unten links. 

Next EpjX 

Epdat$>EpdatV*'Str$(SpX)'*’",'' I Byte in DATA-Zeile einbinden 
Next EpiX 

Epdat$=EpdatS+Chr$(34)+SpaceS(50-Len(Epdat$)}'i'"Chr:" 
Epdat$<Epdat$''’ChrS(AsciiX)+'' / Asc:''+Str*(AsciiX)+Chr$(34) 

' DATA-Zeile formatieren und kommentieren 
Open '•0",#99,''EPS_DATA.LST" I EPS_DATA.LST öffnen 
Print #99,Epdat$;Chr$(13) I DATA-Zeile schreiben 
Close #99 I Datei schließen 

Die zweite Routine liest nun die in den darunter stehenden DATA- 
Zeiien abgelegten Druckerzeichen-Definitionen, sendet die entspre¬ 
chenden Initialisierungs-Sequenzen an den Drucker und daran an¬ 
schließend die gelesenen Daten der Zeichen-Bit-Muster. Dabei wird 
gleichzeitig der User-Defined-Zeichensatz angeschaltet. 

Die wohl gebräuchlichsten selbstdefinierten Zeichen habe ich bereits 
editiert und in die Prozedur eingebunden. Diese DATA-Liste können 
Sie auf die oben beschriebene Art und Weise beliebig erweitern oder 
ändern, solange als letztes DATA-Element der Wert 256 abgelegt wird. 

Wenn Sie wieder den Original-Zeichensatz einsetzen möchten, senden 
Sie folgende Zeile an den Drucker; 

LPRINT CHRS(27);«r";CHR$(27);"X";CHR$(0); 

Damit werden die ASCIIs im Bereich von 128 bis 159 nicht mehr als 
Druckzeichen-ASCII gewertet (CHR$(27);"7";) und vom selbstdefi¬ 
nierten RAM-Zeichensatz in den internen ROM-Zeichensatz umge¬ 
schaltet (CHR$(27);"%";CHR$(0);). 

aEps^init I Prozedur-Aufruf 

Procedure Eps_init 

Local AsciiX,Prn.datX,EpiX,Dat.infoS 

Lprfnt Chrt(27);":";Chrl(0);Chr${0);Chr$(0); I ROM-Satz... 

' ! ...ins User-RAM kopieren 

Lprint Chr*(27);''X";Chr$(1); I User-defined-Satz einschalten 
Lprint Chr$(27);"6"; I ASCIIs 128-159 sind DruckzeichenI 

Restore Chardat I DATA-Label setzen 

Do I Lese-Schleife 

Read AsciiX I ASCII lesen (erstes DATA der Zeile) 

Exit if AsciiX>255 I Exit, wenn gröBer 255 
Lprint Chr$(27);"&";Chr$(0);Chr$(AsciiX);Chr$(AsciiX); 

' Empfangs-Sequenz für selbstdefinierte Zeichen senden 
Lprint Chr$(139); I Unterlängen aus (nur Epson?) 

' Bei diesem Wert (139) weiB ich nicht genau, ob er bei 
' allen Druckern anzugeben ist. Bei Epson FX-80, FX-85 und 
' FX-105 wird hierdurch dem Drucker mitgeteilt, daB nur 
' ein 8-Nadel-Zeichen ohne Unterlängen zu erwarten ist. 
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' Sollte diese Zeile bei Ihrem Drucker nicht funktionieren, 

' lassen Sie sie weg und beobachten, was passiert. Evtl. 

' müssen Sie in Ihrem Druckerhandbuch nachschlagen, welchen 
' Code Ihr Gerät hier erwartet bzw. ob er nötig ist. 

For EpiX=0 To 10 I 11 Byte-Werte (Bit-Musterspalten) 

Read Prn.datX I Bit-Muster-Byte lesen 

Lprint ChrSCPrn.datX); I Bit-Muster-Daten an Drucker 
Next EpiX 

Read Dat.infoS I Duimy-READ für Kommentar-String 

Loop 
Chardat: 

Data 35,0,40,40,254,40,40,40,254,40,40,0," Chr: #/Asc: 35" 
Data 91,0,0,254,254,130,130,130,130,0,0,0," Chr: t/Asc: 91" 
Data 92,0,0.192,224,48,24,12,7,3,0,0," Chr: \/Asc: 92" 

Data 93,0,0,0,130,130,130,130,254,254,0,0," Chr: ]/Asc: 93" 
Data 123,0,16,16,124,238,130,130,130,0,0,0," Chr: {/Asc: 123" 
Data 124,0,0,0,0,254,254,0,0,0,0,0," Chr: |/Asc: 124" 

Data 125,0,0,0,130,130,130,238,124,16,16,0," Chr: >/Asc: 125" 
Data 129,0,0,60,128,2,0,2,128,60,2,0," Chr: ü/Asc: 129" 

Data 132,0,4,10,160,10,32,10,160,28,2,0," Chr: ä/Asc: 132" 
Data 142,0,6,140,20,36,68,36,20,140,6,0," Chr: Ä/Asc: 142" 
Data 148,0,0,28,162,0,34,0,162,28,0,0," Chr: ö/Asc: 148" 
Data 154,0,60,130,0,2,0,2,0,130,60,0," Chr: Ü/Asc: 154" 

Data 153,0,28,162,0,34,0,34,0,162,28,0," Chr: Ö/Asc: 153" 
Data 158,0,126,128,0,128,18,128,18,108,0,0," Chr: B/Asc: 158" 
Data 256, <- Wert größer 255 = Endmarkierung für Leseschleife 
Return 


5.8 Sound-Chip-Anweisung 


SOUND { so } Klangausgabe 

SOUND Kanal,Volume,Note,Oktave,Dauer 
SOUND Kanal,Volume,#Periode,Dauer 

Mit diesem Befehl können die drei Sound-Register des ST aktiviert 
werden. Die fünf Parameter der ersten Syntax-Variante haben fol¬ 
gende Bedeutung: 

Kanal Soundregiaternummer (1, 2 oder 3). 

Volume Lautstärke (0 = Aus/IB = Laut). 

Note Oktave (1 - 8). 

Oktave Note (1 - 12). 

Dauer Haltedauer des Tones in 1/50 Sekunden. Das Programm wird erst nach 

Ablauf dieser Zeitspanne fortgesetzt. 

Chromatische Tonhöhen-Tabelle (Note): 


1 2 3 4 5 6 7 8 9 10 11 12 



C Cis D Dis E F Fis G Gis 


H 
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Beispiel 1 (Kammerton A): 

Sound 1,15,10,4,100 

Statt der beiden Parameter Note und Oktave kann der Parameter 
Periode übergeben werden, dem dann das Nummernzeichen # voran¬ 
zustellen ist. Der Wert dieses Parameters errechnet sich aus der physi¬ 
kalischen Schwingungsfrequenz eines Tones wie folgt: 

Periode=TRUNC(125000/F requenz+0.5) 

Beispiel 2 (Kammerton A = 440 Hertz): 

Sound 1,15,#284,100 I TRUNC(125000/440+0.5>=284 

Beispiel 3: 

For I*=30 To 2000 Step 10 
Sound 1,15,#IX,2 
Next IX 

Höhere Periode-Werte als 4100 werden durch Periode MOD 4100 zu¬ 
rückgerechnet. 

Um eine mehrstimmige Klangausgabe zu erreichen, sind vorher durch 
WAVE die Ausgabe-Attribute einzurichten, anderenfalls ist nur eine 
monophone Klangausgabe möglich. Hintenstehende Parameter, die vom 
vorherigen SOUND übernommen werden sollen, können entfallen. 


WÄVE { WA } Sound-Attribute einstellen 

WAVE Kanal,Hüll,Form,Länge,Dauer 

Mit WAVE können die für die Sound-Gestaltung zuständigen Register 
im Yamaha-Sound-Chip angesprochen werden. Es sind fünf Parameter 
zu übergeben: 


Kanal 

Sound- und Rauschregister an/aus. Es existieren drei Register für die 
Tonerzeugung und drei für die Geräuscherzeugung. Der Wert diese 
ersten Parameters errechnet sich aus der Bit-Stellung eines 6-Bit- 
Wertes. 
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Die Bits 0 bis 2 dieses Wertes sind der Reihe nach für die drei Sound- 
Generatoren zuständig. Die Bits 3 bis 5 stehen dagegen für die drei 
Rausch-Generatoren. Je nachdem, welches Bit gesetzt ist, wird der 
entsprechende Generator ein- oder ausgeschaltet, z.B. bedeutet 
&X101011 (bzw. 43): 

Sound auf Kanal 1 an 
Sound auf Kanal 2 an 
Rauschen auf Kanal 1 an 
Rauschen auf Kanal 3 an 


Hüll 

Nach dem gleichen 6-Bit-Schema wie unter Kanal beschrieben, wird 
bestimmt, welchem Register die aktuelle - in Kurvenform angegebene 
- Hüllkurve zugeordnet werden soll. 


Form 

Bestimmung der Hüllkurvenform. Hier sind nur die Werte 8 bis 15 
interessant: 


8 = 
9 = 
10 = 
11 = 
12 = 
13 = 
U = 
15 = 


\ _ 

\/\/\/\/\/\ 

/!/|/l/|/!/ 

/- 

/\/\/\/\/\/ 
/I_ 


= Sägezahn/anfangs fallend 
= Linear/anfangs fallend 
= Dreieck/anfangs fallend 
= linear/sprunghaft/laut haltend 
= Sägezahn/anfangs steigend 
= steigend/laut haltend 
= Dreieck/anfangs steigend 
= Attack/Cut (kurzer Anschlag) 


Länge 

Dehnung der Hüllkurve. Je größer der Wert, umso größer der Kur- 
ven-Intervall (die Modulationsfrequenz). 


Dauer 

Haltedauer bis zur Programmfortsetzung in 1/50 Sekunden. 

Hintenstehende Parameter, die ggfs, vom vorherigen WAVE über¬ 
nommen werden sollen, können entfallen. 

WAVE 0,0 bzw. ein Tastaturklick schaltet alle Kanäle wieder ab. 

Hier nun ein kleines Experimental-Programm, das Ihnen helfen soll, 
die fast undurchschaubare Logik der SOUND-Programmierung in den 
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Griff zu bekommen. Man muß dazu erwähnen, daß die Schöpfer des 
Yamaha-Chips YM-2149 sich nicht gerade bemüht haben, anderen den 
Zugang zu ihrem Wunderwerk zu erleichtern. Aber so ist das mit Ge¬ 
nie-Streichen, sie sind für den "einfachen Menschen" oft schwer zu 
erfassen. 


Sound 1,15,1,4 I Feststehende 

Sound 2,15,4,4 I SOUND- 

Sound 3,15,9,4 I Einstellungen 

Print At{28,5);''UAVE-Par8nieter 

Print At(20,7);'' <F1> - <F5> = ♦" 

Print At(20,8);"<Shift><F1> - <Shift><F5> = 

Dim P(5) I Parameter-Feld 

Print At(28,10);"WAVE 0,0,0,0,0" 

Repeat 

A=Asc(Ri9ht$(Inkey$))-58 I Tastatur abfragen 
If A<6 And A>0 I <F1> bis <F5>7 

Inc P(A) I Parameter erhöhen 

Print At(28,10);"UAVE ";P(1) Mod 64;",";P{2) Mod 64; 

Print ",";P(3) Mod 16;",";P(4)*50;",";P(5). 

Uave P{1) Mod 64,P{2) Mod 64,P(3) Mod 16,P{4)*50,P(5) 
Endif 

If A<31 And A>25 I <Shift><F1> bis <Shift><F5>? 

P(A-25)=Max{0,P(A-25)-1) I Parameter vermindern 
Print At(28,10);"UAVE ";P(1) Mod 64;",";P(2) Mod 64; 
Print ",";P(3) Mod 16;",";P{4)»50;",";P(5)"• " 

Uave P(1) Mod 64,P(2) Mod 64,P(3) Mod 16,P(4)*50,P(5) 
Endif 
Until A^O 


Beachten Sie zum Thema "Musik auf dem ST" auch 21.5.3 "Interrupt- 
Sound". 
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6. Programmstruktur 


6.1 Schleifenkonstruktionen 


Version 3.0 

DO... LOOP {DO i. L > 

DO [WHILE Bed] [UNTIL Bed], 

...Doppelt bedingte Schleife 
LOOP [WHILE Bed] [UNTIL Bed] 

DO 

... auszuführende Programmteile 
LOOP 

Folgende Syntaxvariante gilt nur für V3.0: 

DO [WHILE Bedingung] [UNTIL Bedingung] 

... auszuführende Programmteile, wenn DC5-Bedingung 
... wahr ist, bzw. solange LOOP-Bedingung wahr ist. 

LOOP [WHILE Bedingung] [UNTIL Bedingung] 

Eine DO...LOOP-Schleife der Versionen V2.xx kann nur abgebrochen 
werden, wenn sie auf eine Abbruch-Anweisung (END, EDIT, STOP) 
trifft, eine EXIT IF-Anweisung findet und die Abbruchbedingung 
wahr ist, eine GOTO-Anweisung innerhalb der Schleife zu einem La¬ 
bel außerhalb der Schleife verzweigt oder die Break-Funktion ver¬ 
wendet wird. 

ln der Version V3.0 ist es möglich, eine DO...LOOP-Konstruktion mit 
Ein- und Ausgangsbedingungen zu versehen. Dazu kann sowohl bei 
DO, als auch bei LOOP entweder eine WHILE- oder eine UNTIL-Be- 
dingungsabfrage hinzugefügt werden (siehe WHILE...WEND, bzw. 
REPEAT...UNTIL). Wenn allein DO...LOOP eingesetzt wird, ist es 
möglich, statt LOOP auch ENDDO { ENDD } zu verwenden. 

DO...LOOP kann - wie alle anderen Schleifen auch - beliebig tief 
verschachtelt werden. 

Beachten Sie bitte das Beispiel zu EXIT IF. 


Endlosschleife 

(V3.0) 
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FOR ... NEXT{f...n} Zählschleife 

FOR Zaehl=Start TO [DOWNTO] Ende [STEP Schritt] 

... auszuführende Prr^rammteile 
NEXTZaehl 

Mit der Konstruktion FOR...NEXT wird eine indizierte Wiederho¬ 
lungschleife angelegt. 

Die Kopfzeile der Schleife enthält den Anfangswert Start und den 
Endwert Ende. Die numerische Zählvariable Zaehl wird bei Schleifen¬ 
beginn mit dem Wert Start belegt und dann bei jedem Durchlauf so¬ 
lange erhöht, bzw. vermindert, bis sie den Wert Ende erreicht hat. 
Dabei werden alle Programmzeilen, die zwischen FOR und dem dazu¬ 
gehörigen NEXT eingeschlossen sind, bei jedem Durchlauf ausgeführt. 
Nach Erreichen des Ende-Wertes wird das Programm mit der auf die 
NEXT-Anweisung folgenden Programmzeile fortgesetzt. 

Wird nur FOR..TO..NEXT ohne die Option STEP verwendet, beträgt 
die Schrittweite immer +1. Bei Verwendung von 
FOR..DOWNTO..NEXT ist der Anfangswert größer als der Endwert 
anzugeben, da in diesem Fall die Schrittweite immer -1 beträgt. Die 
Verwendung von STEP ist hier nicht zulässig. Die Option STEP (nur 
bei TO-Schleifen) bewirkt, daß der nach STEP angegebene Wert oder 
Ausdruck als Schrittweite angenommen wird. Hier sind auch negative 
Werte möglich, wobei sinnvoller Weise - wie bei DOWNTO - der 
Endwert kleiner als der Startwert zu wählen ist. 

Ist bei Verwendung von STEP der Wertebereich von Start bis Ende 
nicht glatt durch den STEP-Wert Schritt teilbar, errechnet sich der 
zuletzt verarbeitete Zählwert aus: 

Abs(Ende-Start)-((Abs(Ende-Start)) Mod Abs(Schritt)) 

Ist bei positiven Schleifen Start größer als Ende bzw. bei negativen 
Schleifen Ende größer als Start, so wird die Schleife trotzdem minde¬ 
stens einmal mit dem Start-Wert durchlaufen. 

In Version V3.0 kann statt NEXT Var auch ENDFOR Var { ENDF ) 
angegeben werden. 

Beispiel 1 (Hires/Midres): 

YtX=Min(2,3-Xbios(A)) ! Y-Auflösungsteiler 
For IX=31 Dounto 0 ! 32 Boxen in X-Richtung 

For JX=0 To 9 ! 2 mal 9 Boxen in Y-Richtung 
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X*=31-tX I X-Index unkehren 

YX=19-JX I Y-Index umkehren 

Box 4+IX*20,{4+JX*20)/YtX,4+IX*20+12,<4+JX»20+12)/YtX 
Box 4+IX»20,(4+YX*20)/YtX,«+IX»20+12,(4+YX*20+12)/YtX 
Box &tXX*20,(6+JX»20)/YtX,6+XX»20+8,(6+JX*20+8)/YtX 
Box 6+XX*20,(6+YX»20)/YtX,6+XX*20+8,(6+YX*20+8)/YtX 
Next JX 
Next IX 


Beispiel 2 (als Befehlserweiterung konzipiert); 

Deyffill ,3,7 

Pbox 10,10,200,90 

Deffill ,2,4 

Pcircle 30,30,20 

aMirror(0,1,10,10,200,90,10,10) 

aMirror(1,2,10,10,200,90,10,10) 

aHirror{1,1,10,10,200,90,10,100) 

aHirror(0,1,10,100,200,180,10,100) 

Procedure MirrortMdX,GmX,XIX,YoX,XrX,YuX,X2X,Y2X) 

I 

' Spiegelt einen beliebigen Bildschirmausschnitt 

I 

' HdX = Mirror-Modus 

■ 0 9 Um die Horizontalachse spiegeln 

' 1 « Um die Vertikalachse spiegeln 

' GmX - Crafikmodus 

' 1 * Replace ; 2 = Transparent 

• 3 * XOR ; 4 = Invers transparent 

' XlX/YoX = Ouellbox-Xoordinaten links oben 
' XrX/YuX > Quellbox-Koordinaten rechts unten 
‘ X2X/Y2X = Zielbox-Koordinaten links oben 

I 

' Die Ausführung kann jederzeit durch Maustastendruck 
' abgebrochen werden. 

I 

Local CnX,M1$,M2$,GmS,RmX 

Gmt=Chr${3)+Chr$(7)+Chr$(6)+Chr$(12) I Grafikmodus-Tabelle 
RmX=Asc(Mid$(Gint,Min(4,Max(1,GmX)),1)) I Modus umformen 
If MdX=0 I Horizontal? 

For CnX=0 To Int({YuX-YoX)/2) I Zeilen durchgehen 

Get XlX,YoX+CnX,XrX,YoX+CnX,Ml$ I Zeilen... 

Get XlX,YuX-CnX,XrX,YuX-CnX,H2$ I ...aufnehmen 
Exit if Mousek I Mausklick? 

Put X2X,Y2X+CnX,M2S,RtnX I Zeilen... 

Put X2X,(Y2X+(YuX-YoX))-CnX,M1S,RmX I ...ablegen 
Next CnX I Nächste Zeile 

Endif 

If MdX=1 I Vertikal? 

For CnX=0 To Int((XrX-XlX}/2) I Spalten durchgehen 
Get XlX+CnX,YoX,XlX+CnX,YuX,M1$ I Spalten... 

Get XrX-CnX,YoX,XrX-CnX,YuX,M2$ I ...aufnehmen 
Exit if Mousek I Mausklick? 

Put X2X+CnX,Y2X,M2S,RmX I Spalten... 

Put (X2X+(XrX-XlX))-CnX,Y2X,M1$,RmX f ... ablegen 
Next CnX I Nächste Spalte 

Endif 
Return 
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REPEAT... UNTIL { REP ... U } Bedingte Schleife 

REPEAT 

... auszuführende Programmteile 
UNTIL Bedingung 

Die REPEAT...UNTIL-Schleife kann immer dann angewendet werden, 
wenn die Anzahl der Schleifendurchläufe nicht durch das Erreichen 
eines Endwertes (FOR...NEXT) festgelegt ist und die Schleife minde¬ 
stens einmal durchlaufen werden soll. 

Die Bedingung zum Verlassen der Schleife wird hier am Schleifenende 
geprüft. D.h., daß die Schleife mindestens einmal bis zu der in UNTIL 
vereinbarten Bedingung durchlaufen wird. Es sei denn, daß innerhalb 
der Schleife eine EXIT IF-Bedingung mit "wahr" beantwortet wird 
(siehe EXIT IF). Ist "Bedingung" wahr, wird das Programm mit der 
nächsten auf UNTIL folgenden Zeile fortgesetzt. 

Diese Konstruktion läßt sich bestens dazu verwenden, um mehrfach 
kombinierte Abbruchbedingungen zu stellen. So können z.B. gleichzei¬ 
tig ein bestimmter Tastatur-, Maus- und/oder Mausknopf-Status, der 
Inhalt von Variablen und/oder das Erreichen bestimmter Limits als 
Bedingung(en) angegeben werden. 

Angenommen, für den Abbruch einer REPEAT...UNTIL-Schleife sol¬ 
len die folgenden Bedingungen ausschlaggebend sein: 

Mausklick rechts und Zähl wert größer 100 

oder <Esc>-Taste gedrückt 

oder es sind mehr als 10 Sekunden vergangen 

Die Schleifenkonstruktion sieht dann so aus: 

TX^Timer I Timer festhalten 

Repeat I Schleifenstart 

Inc AX I Zähler +1 

K=Mouselc I Maustasten-Abfrage 

KeyX=Asc(R{ght$(lnkeyS)) I Tastatur-Abfrage 
Until (K-2 And AX>100) Or KeyX=27 Or (Timer-TX)>2000 

Mit den Booleschen Operatoren AND/OR/NOT/XOR/IMP/EQV las¬ 
sen sich diese Bedingungen auf das abenteuerlichste miteinander ver¬ 
knüpfen. In Version V3.0 kann statt UNTIL auch ENDREPEAT { 
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ENDR } verwendet werden. Der Interpreter wandelt diesen Ausdruck 
dann selbstständig in UNTIL um. 


WHILE ...WEND { W... WE > Bedingte Schleife 

WHILE Bedingung 

... auszuführende Programmteile... 

WEND 

Die WHILE...WEND-Schleife hat die Eigenschaft, daß die Abfrage der 
Abbruch-Bedingung bereits am Anfang der Schleife stattfindet. 

So kann es sein, daß die Schleife zwar in der ersten Zeile betreten 
wird, jedoch das Programm sofort hinter dem dazugehörigen WEND 
fortgesetzt wird. Dann nämlich, wenn die Bedingung bereits bei Be¬ 
treten der Schleife erfüllt ist. In diesem Fall werden die zwischen 
WHILE und WEND eingeschlossenen Programmzeilen also nicht aus¬ 
geführt. Beachten Sie hierzu bitte das Beipiel zu EOF(). 

In Version V3.0 kann statt WEND auch ENDWHILE { ENDW ) ver¬ 
wendet werden. Der Interpreter wandelt diesen Ausdruck dann selbst¬ 
ständig in WEND um. 


6.2 Bedingte Verzweigungen 


EXITIF { E IF } Bedingter Schleifenabbruch 

ViÖ:(EX} 

EXIT IF Bedingung 

Ein sehr nützlicher Befehl, wenn es darum geht, innerhalb von 
FOR...NEXT-, DO...LOOP-, REPEAT...UNTIL- und 
WHILE...WEND-Schleifen an beliebigen - und beliebig vielen - Stel¬ 
len zusätzliche Abbruchbedingungen stellen zu können. 

Eine solche Schleife kann unabhängig von ihrem Zustand jederzeit 
verlassen werden, sobald darin eine durch EXIT IF gestellte Bedin¬ 
gung mit "wahr" beantwortet wird. Das Programm wird dann mit der 
auf den zugehörigen Schleifenwendepunkt folgenden Programmzeile 
fortgesetzt. Dabei ist zu beachten, daß das Programm direkt vom aus¬ 
lösenden EXIT IF hinter den Wendepunkt springt. Zwischen dem 





160 


Das große GFA-BASIC-Buch 


auslösenden EXIT IF und dem Wendepunkt stehende Programmzeilen 
werden also nicht noch einmal ausgeführt. 

Das Beispiel zu REPEAT...UNTIL läßt sich nun anhand einer 
DO—LOOP-Schleife und EXIT IF folgendermaßen umstrukturieren: 


TX=Tinier I Timer festhalten 

Do I Schlei fenstert 

Exit If (Tiiner-TX)>2000 I 10 Sekunden vergangen? 

Inc AX I Zähler +1 

K=Housek I Maustasten-Abfrage 

KeyX=Asc(RightS(Inkey$)) I Tastatur-Abfrage 

Exit If KeyX=27 I <Esc>-Taste gedrückt? 

Exit If K=2 And AX>100 I Hausklick rechts und 
’ I Zähler größer 100? 

Loop 

Die - oben schon erwähnte - Besonderheit ist hier, daß die Schleife 
direkt verlassen wird, sobald 10 Sekunden vergangen sind und bis da¬ 
hin keine der beiden anderen Abbruchbedingungen erfüllt wurde. In 
diesem Fall heißt das, daß der vor dem auslösenden Timer-Abbruch 
gültige Maustasten- und Tastaturstatus, sowie der Zähler A% erhalten 
bleiben und ggfs, weiterverwertet werden können. 

In Version V3.0 kann EXIT IF auch innerhalb von IF...ENDIF- oder 
SELECT...ENDESELECT-Blöcken eingesetzt werden. Das Programm 
wird dann ggfs, direkt hinter ENDIF bzw. ENDSELECT fortgesetzt. 


IF [ELSE] ENDIF {l... [EL..] EN } Bedingungsabfrage 

In V3.0: { I... [E...] EN } 


Version 3.0 

ELSE IF { E IF } Unter-Bedingungsabfrage 

IF Bedingung [THEN] 

... auszuführende Programmteile, 
wenn Bedingung wahr ist 
[ELSE 

... auszuführende Programmteile, 
wenn Bedingung unwahr ist ] 

ENDIF 
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Folgende Syntaxvariante gilt nur für V3.0: 

IF Bedingungl [THEN] 

... auszuführende Programmtelle, 
wenn Bedingungl wahr ist 
[ELSE IF Bedingung2 

... auszuführende Programmteiie, wenn Bedingungl 
unwahr und Bedingung2 wahr ist.] 

[ELSE IF BedingungS 

... auszuführende Programmteile, wenn alle 
vorherigen Bedingungen unwahr waren, 

Jedoch BedingungS wahr ist.] 

... ggfs, weitere ELSE IF-Abfragen 
[ELSE 

... auszuführende Programmteile, wenn alle 
vorherigen Bedingungen unwahr waren.] 

ENDIF 

In GFA-BASIC ist es möglich, die Ausführung auch umfangreicher 
Programmteile allein von der Erfüllung einer einzigen Bedingung ab¬ 
hängig zu machen. Die Folge an Befehlen, die abhängig von einer IF- 
Bedingung ausgeführt werden sollen, wird hier nur von dem zugehöri¬ 
gen ENDIF (bzw. ELSE) eingegrenzt. 

Ist Bedingung wahr, werden die zwischen IF und dem zugehörigen 
ENDIF bzw. ELSE stehenden Programmteile ausgeführt. Bei Verwen¬ 
dung der Option ELSE werden die zwischen ELSE und dem zugehöri¬ 
gen ENDIF eingeschlossenen Befehle ausgeführt, wenn die Bedingung 
sich als unwahr erweist. Ist ein IF- oder ELSE-Block ausgeführt, wird 
das Programm mit der auf das zugehörige ENDIF folgenden Pro¬ 
grammzeile fortgesetzt. 

IF-Abfragen können beliebig tief verschachtelt werden. Der optionale 
Zusatz THEN hinter ^F ist zur Kompatibilität mit anderen BASIC- 
Dialekten gedacht. Er kann in GFA-BASIC vernachlässigt werden. 

Ab hier nur für V3.0!: Durch den V3.0-Zusatzbefehl ELSE IF ist es 
möglich, sich Verschachtelungen folgender Art zu ersparen: 

If Bedingungl 

... Progranmblock 1 >.. 

Else 

If Bedingung2 

... Progranwblock 2 >.. 

Else 

If BedingungS 

... Progranmblock 3 >-. 

Else j 





162 


Das große GFA-BASIC-Buch 


_ Progranmblock 4 j j 

Endif j j 

■<. 

Endif I 

.<.• 

Endif 


Mit ELSE IF sieht dieselbe Struktur so aus: 

If Bedingungl 

... Programtiblocic 1 >.. 

Else If Bedingung3 

... Progranmblock 2 >.. 

Else If BedingungS 

... Progranrtilock 3 >-. 

Else j 

... Programnblock 4 >--. 

Endif I ! 

_............ I.l.l.l 

Ist hier die Eingangs-IF-Bedingung unwahr und trifft das Programm 
auf eine ELSE IF-Abfrage, deren Bedingung wahr ist, wird nur der 
darunter angegebene Programmblock abgearbeitet und nach dessen 
Ausführung zu der auf das zugehörige ENDIF folgenden Programm¬ 
zeile gesprungen. Wird als Abschluß die Option ELSE verwendet und 
keine der vorangegangenen ELSE IF-Bedingungen wurde mit wahr 
beantwortet, wird auch hier die unter ELSE angegebene Programm¬ 
folge alternativ zu allen Vorbedingungen ausgeführt. 

Bei folgender Abfrage werden mehrere Bedingungen durch AND so 
miteinander verknüpft, daß der dahinterstehende Programmblock nur 
dann ausgeführt wird, wenn alle Bedingungen der Abfrage erfüllt 
sind. Statt des oben verwendeten Ausdrucks Bedingung setze ich hier 
den Ausdruck Case ein, der jedoch nichts mit der CASE-Abfrage zu 
tun hat. 

If CaselsTrue And Case2=True And Case3=False 
auszuführender Progra(Tnt>lock 
Endif 

Eine solche Struktur ließe sich mit derselben Wirkung auch in mehrere 
IF-Abfragen auflösen: 
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I 


If Case1=True 


If Case2=True <—' 


If Case3=False <—' 

auszuführender Progranntilock >—. 

Endif ! 

->.<.• 

I 

Endif 


I 

Endif 


Auch hier wird der Block nur ausgefUhrt, wenn alle Abfragen wahr 
sind. Auf den ersten Blick mag die zweite Version etwas aufweniger 
erscheinen. Sie hat jedoch den Vorteil, daß nach Jeder Einzel-Abfrage 
auf die Erfüllung der einzelnen Bedingung reagiert werden kann. 


Fileselect "\*.DAT'',".DAT",F$ 

If F$>"" 

Print “Okay-Box oder Doppelklick" 

If Right$(F$,A)=".DAT" 

Print "Korrekte Extension 
If Len(F$)>« 

Print "Dateiname ";Left$(Ft,Len(F$)-4) I Block.. 
Print "Extension = .DAT" I ...ausführen 

Endif 
Endif 
Endif 


I Case1 
I Reaktion 
I Case2 
I Reaktion 
I Case3 


Ähnliches läßt sich nun auch mit mehreren ELSE IFs anstatt einer 
OR-Kette realisieren. Bei der OR-Kette wird die Abfrage passiert 
und der Programmblock ausgeführt, sobald nur eine Bedingung der 
Kette wahr ist. Hier wurden - um einen Vergleich mit der oben be¬ 
schriebenen AND-Kette zu ermöglichen - die Bedingungen negiert. 

If CaseloTrue Or Case2<>True Or Case3<>False 
Reaktion auf Negation der Bedingungen 
Else 

ausruführender Prograaitblock 
Endif 


Mit der ELSE IF-Struktur kann jede der drei OR-Bedingungen ein¬ 
zeln abgefragt werden und dann auf die Erfüllung der jeweiligen Be¬ 
dingung separat reagiert werden: 
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-< If CaseloTrue 

Reaktion auf Casel > - 

<===> Else If CaseZoTrue 

Reaktion auf CaseZ >- 

<===> Else If Case3<>False 

Reaktion auf Case3 >.. 

Else j 

.> .. auszuführender Programmblock 

Endif j I 

<. 


In der Praxis könnte das dann so aussehen: 


Fileselect "\*.DAT*',".DAT“,F$ 

If F**“" 

Print "Abbruch-Box angeklickt" 

Else If Right$(F$,4)<>".0AT" 

Print "Falsche Extension (kein .DAT) 

Else If Len(F$)<‘4 

Print "Kein vollständiger Dateiname ' 

Else I Keine der Bedingungen ist wahrl 

Print "Korrekte Dateiauswahl!" I Block... 

Erxiif I.. .ausführen 


Casel 

Reaktion 

CaseZ 

Reaktion 

Case3 

Reaktion 


Der wesentliche Unterschied zwischen der Normal-IF-Struktur und 
der ELSE IF-Struktur ist, daß beim Normal-IF nach jedem Pro¬ 
grammblock die ENDIPs der vorangegangenen Abfragen noch passiert 
werden. Daraus ergibt sich die Möglichkeit, abhängig von dem ausge¬ 
führten Block weitere Programmteile ausführen zu lassen, die mit den 
vorangegangenen Abfragen in Bezug stehen. Die Notwendigkeit zu 
Raffinessen dieser Art ist zwar äußerst gering, kann jedoch nicht ab¬ 
solut ausgeschlossen werden. 


Beispiel: 


AX=3 
If AX=1 

Print 1' >. 

Else 
If AX=Z 

Print Z' >.. 

Else 
If A*=3 

Print 3' >.. 

Else ! 

Print 4' >-. 

Endif j I 

.<. 

Print 5' 

Endif 

.<.' 

Print 6' 

Endif 

_<- 


Obwohl hier weder die 
erste, noch die zweite 
Bedingung zutrifft, werden 
die vor ihren ENDIF's 
stehenden Zeilen Print 5 
und Print 6 ausgeführt. 

Wäre AX = Z, würde die 
Zeile Print 5 nicht mehr 
ausgeführt werden. Bei AX = 0 
würden auBer der letzten 
ELSE-Anweisung Print 4 
ebenfalls noch Print 5 und 
Print 6 ausgeführt werden. 
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Diese Möglichkeit ist bei der ELSE IF-Struktur nicht gegeben, da dort 
einfach kein Platz für die Zeilen Print 5 und Print 6 wäre. 

Gemeinsam ist beiden Strukturen, daß immer dann, wenn eine Bedin¬ 
gung zutrifft, die nachfolgenden Abfragen übersprungen, also ausge¬ 
schlossen werden. 

Bei IF-Verschachtelungen: 

If Bedingungl 

... >— . 

.<.' 

If Bedingung2 
... >---. 

.<.* 

Endif 

Endif 

oder IF-Verkettungen: 

If Bedingungl 

... > - . 

Endif 1 

.<.' 

If Bedingungl 

... > - . 

Endif j 

.<.• 

ist dieser Ausschluß nicht gewährleistet, da mit einem Fall auch meh¬ 
rere Bedingungen gleichzeitig erfüllt sein können. 

Sie werden sich evtl, fragen, wie denn überhaupt die Entscheidung 
wahr oder unwahr getroffen wird. Bei einfachen Abfragen, wie z.B. If 
A%=1, ist das leicht zu erklären. Hat die Variable A% den Wert 1, 
wird die Bedingung mit wahr (TRUE = -1) beantwortet, andernfalls 
mit unwahr (FALSE = 0). 

Geben Sie bitte im Direktmodus ein: 

Print 1=1 


Der Interpreter vergleicht nach dem Booleschen Verfahren "logisch" 
die beiden gegenübergestellten Werte 1 und 1. Anschließend liefert er 
Ihnen den Wahrheitswert -1 (TRUE). Wie das Ganze maschinenintern 
durch sogenannte Gatter geregelt wird, soll uns hier nicht interessie¬ 
ren. Wichtig ist, daß Sie wissen, daß es so ist. Schauen Sie sich bitte 
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dazu die Bedeutung der einzelnen Operatoren in Kapitel 8.1, sowie die 
Vorrang-Regelung der Operatoren untereinander an. 


Bei komplizierteren Verknüpfungen gibt es schon einige Probleme. 
Hier ist es wichtig, auf eine exakte und logisch richtige Klammerset¬ 
zung zu achten. So können sich aus (oberflächlich gesehen) immer 
demselben Ausdruck mehrere Resultate ergeben: 


Print (2‘2=4)+((7-1)>3) 
Print 2‘2=4+((7-1)>3) 
Print {2'2=4)+(7-1)>3 
Print {2'2=4)+7-(1>3) 


-> Ausgabe: -2 
-> Ausgabe: 0 
-> Ausgabe: -1 
-> Ausgabe: 6 


Verblüffend, oder? - Die Klammersetzung macht es möglich! 

Nun die Erklärung: In der ersten Zeile wird der Ausdruck (2^2=4) 
zusammengefaßt. Dasselbe geschieht mit ((7-l)>3). Beide Ausdrücke 
werden - jeder für sich - auf ihren Wahrheitsgehalt geprüft. Der erste 
Ausdruck ergibt TRUE (-1), da die zweite Potenz von 2 tatsächlich 4 
ist. Der zweite Ausdruck liefert ebenfalls TRUE (-1), da 7 minus 1 
(also 6) tatsächlich größer als 3 ist. Durch das Plus-Zeichen werden 
nun beide Wahrheitswerte addiert. Und das ergibt (-1 )+(-!)= -2. 

In der zweiten Zeile habe ich einfach die Klammer um den ersten 
Ausdruck weggelassen. Daraus ergibt sich eine völlig andere Konstel¬ 
lation. In diesem Fall wird zuerst das Ergebnis von 2''2 berechnet (4). 
Das Gleichheitszeichen wird hier allerdings nicht als zum ersten Aus¬ 
druck zugehörig erkannt, sondern stellt den Verknüpfungs-Operator 
zum zweiten Ausdruck dar. Dieser liefert - wie in der ersten Zeile - 
wieder TRUE (-1). In der endgültigen Auswertung ergibt sich also 
4=(-l). Da 4 nun aber nicht -1 ist, liefert die Zeile den 
Unwahrheitswert FALSE, also 0. 

In der dritten Zeile haben wir als ersten Ausdruck wieder (2^2=4). 
Hier ist die Änderung beim zweiten Ausdruck zu finden. Es fehlt die 
äußere Klammer. 2 hoch 2 ist 4 - stimmt! Also erhalten wir aus dem 
ersten Ausdruck wieder TRUE (-1). Der zweite Ausdruck ist in die¬ 
sem Fall jedoch auf (7-1) reduziert. Das ergibt 6. Als nächstes werden 
die beiden Ausdrücke addiert. 6+(-I) ist 5. Dieses Additionsergebnis 
wird nun abschließend daraufhin geprüft, ob es größer als ,3 ist. Da 5 
tatsächlich größer als 3 ist, erhalten wir als Gesamtergebnis dieser 
Zeile ein TRUE (-1). 

Die vierte und letzte Zeile hat immer noch - oberflächlich gesehen - 
eine frappierende Ähnlichkeit mit ihren Vorgängerinnen. Hier habe 
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ich einfach die 7 aus dem zweiten Ausdruck ausgeklammert und (1>3) 
zusammengefaßt. Der erste Ausdruck ist uns schon bekannt. Er liefert 
- wie in Zeile 1 und Zeile 3 - den Wert -1 (TRUE). Da die Klam¬ 
mersetzung absoluten Vorrang vor allen anderen Operatoren hat, be¬ 
rechnen wir als nächstes den Ausdruck (1>3). Sehr wahrscheinlich 
wissen Sie so gut wie ich, daß 1 nicht größer als 3 ist. Also erhalten 
wir den Wert 0 (FALSE). Mit etwas mathematischer Vorkenntnis las¬ 
sen sich die drei Faktoren nun folgendermaßen zusammenfassen: (- 
l)+7-(0) = 6. 

So weit, so gut - wenn da nicht noch die logischen Operatoren wären. 

Print 10*10 And 14 Or 3<>2 -> Ausgabe: -1 

Print 10*10 And (14 Or 3)<>2 -> Ausgabe: 100 
Print 10*(10 And 14 Or 3<>2) -> Ausgabe: -10 

Drei neue Zeilen, die - für den Laien - fast identisch sind, und trotz¬ 
dem verschiedene Ergebnisse liefern. 

Des Rätsels Lösung; In Zeile 1 finden Sie keine Klammer. Daher 
eignet sie sich besonders dazu, die Prioritäten der verwendeten Ope¬ 
ratoren zu erläutern. Als erstes wird in diesem Fall die Punkt-Rech¬ 
nung durchgeführt, also 10*10. Das ergibt 100. Als nächstes kommt 
die Vergleichsoperation <> dran. Alle Vergleiche haben Vorrang vor 
logischen Operatoren. Es soll hier festgestellt werden, ob 3 ungleich 2 
ist. Da es das ist, erhalten wir hieraus den Wert -1 (TRUE). Zum 
Schluß bearbeiten wir in dieser Zeile die Booleschen Operatoren. Da 
beide auf derselben Ebene liegen, ergibt sich die Frage, welche Ope¬ 
ration von beiden zuerst dran kommt - AND oder OR? In solchen 
Fällen gilt die goldenen Regel: immer von links nach rechts! Ich setze 
nun voraus, daß Sie sich über das Verfahren der logischen Verknüp¬ 
fungen im Kapitel 4 "Basis-BASIC" eingehend informiert haben. 

100 -> Binär: 01100100 
AND 14 -> Binär: 00001110 

00000100 -> Dezimal: 4 

'-> 4 -> Binär: 100 

OR -1 -> Binär: 1...111111 

1...111111 -> Dezimal: -1 


Als Ergebnis der ersten Zeile erhalten wir den Wert -1 (TRUE). 
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In Zeile 2 habe ich hier nichts weiter gemacht, als (14 Or 3) zu einem 
Ausdruck zusammenzufassen. Da - wie gesagt - die Klammerrechnung 
Vorrang hat, erhalten wir daraus: 

14 -> Binär: 00001110 
OR 3 -> Binär: 00000011 

1111 -> Dezimal: 15 

Wie in Zeile 1 erhalten wir auch hier aus 10*10 den Wert 100. Weil 
auch hier wieder der Vergleich <> Vorrang vor AND hat, beziehen 
wir nun daraus den Wert -1 (TRUE), da der Klammerwert 15 tatsäch¬ 
lich ungleich 2 ist. Zum Schluß verknüpfen wir die beiden Teilergeb¬ 
nisse im AND-Modus; 

100 -> Binär: 01100100 
AND -1 -> Binär: 1..1111111 

01100100 -> Dezimal: 100 


Das Ergebnis der zweiten Zeile heißt 100. 

Die dritte Zeile ist wiederum nur geringfügig variiert. Wie gesagt, 
wird erst einmal die Klammer berechnet. Darin finden wir als höchste 
Priorität den Ungleich-Vergleich <>. Ist drei ungleich zwei? Ja, also 
erhalten wir TRUE (-1). Als zweites stehen sich eine AND- und eine 
OR-Verknüpfung gleichwertig gegenüber. Ich fange links an: 

10 -> Binär: 00001010 

AND 14 -> Binär: 00001110 

00001010 -> Dezimal: 10 >-. 

'-> 10 -> Binär: 1010 

OR -1 -> Binär: 1...111111 

1...111111 -> Dezimal: -1 

Als Ergebnis des Klammerausdrucks erhalten wir wieder -1 (TRUE). 
Diese -1 wird nun mit dem Wert 10 multipliziert und siehe da - es er¬ 
gibt sich der Negativ-Wert -10. 

Ich hoffe, daß es mir anhand dieser zwei kleinen Beispiele gelungen 
ist, Ihr kritisches Auge im Umgang mit Verknüpfungen dieser Art et¬ 
was geschärft zu haben. Nun wissen Sie wenigstens ungefähr, was Ih¬ 
nen an Verwirrungen bevorstehen kann und über Bedingungen wie die 
folgende wundern Sie sich dann hoffentlich nicht mehr all zu sehr. 
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If (10*{10 And U Or 3<>2))=-10 
Print "Heurekal" 

Endif 

Als kleiner Leckerbissen folgt nun ein kleines Programm, das Ihnen 
als Anregung für die Lösung sogenannter Kniffel-Aufgaben dienen 
soll. 

Stellen Sie sich bitte vor. Sie hätten folgende Aufgabe zu lösen: 

XX * X Eine zweistellige Zahl Ist mit einer 

. einstelligen Zahl zu multiplizieren. 

XX Das Ergetxiis muB wieder zweistellig sein. 

+ XX Dazu wird ein zweistelliger Wert addiert 

. und das Ergebnis der Rechnung muB wieder 

= XX zweistellig sein. 

Der Witz an der Sache ist nun, daß für alle neun möglichen Stellen 
alle neun Ziffern von 1 bis 9 je einmal verwendet werden mUssen. Es 
darf also jede Ziffer nur einmal Vorkommen. Es ist nur ein einziges 
korrektes Ergebnis möglich. 

Das nun folgende Programm löst diese Aufgabe völlig "unmathema¬ 
tisch" und es sind natürlich wesentlich elegantere mathematische Lö¬ 
sungen vorstellbar. Da diese jedoch extrem kompliziert sind und von 
Ihnen nicht erwartet werden kann, sich in die höhere Mathematik zu 
vertiefen, habe ich die "logische" Lösung gewählt. Mathematiker mö¬ 
gen mir verzeihen. Ich habe es mit der Algebra versucht, mußte je¬ 
doch nach mehreren erfolglosen Ansätzen aufgeben. 

Ein weiterer Effekt dieses Programms ist der, daß daran hervorragend 
der zeitliche Aufwand verschiedener Konstellationen nachvollzogen 
werden kann. Versuchen Sie dazu einmal, daß Programm so zu vari¬ 
ieren, daß trotz der Änderung der Algorithmus logisch erhalten bleibt. 
Beispielsweise kann die vorletzte IF-Abfrage: 

If Len(Ergebnis$+B$)=9 

ohne weiteres um drei Zeilen - direkt unter B$=Str$(B%) - versetzt 
werden. Außerdem könnte man die String-Umwandlung I$=Str$(I%) 
streichen und den Ausdruck Str$(I%) statt 1$ direkt einsetzen. Oder Sie 
verwenden statt der 4-Byte-Integer 1%, J%, K%, A%, B% und C% 
einfach Realvariablen. Der Zeitaufwand wird sich in allen drei Fällen 
- in V2.XX zum Teil wesentlich - erhöhen. In der Wahl der Varianten 
lassen Sie bitte Ihre Phantasie spielen. Das Wissen um den jeweiligen 
Zeitaufwand wird Ihnen später bei der Entwicklung und Optimierung 
eigener Programme sehr von Nutzen sein. 
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TX=Timer I Start-Timer festhalten 

For IX=12 To 98 I Zählschleife für ersten 

' I zweistelligen Wert 

If (IX Mod 11)>0 And (IX Mod 10)>0 I Ist IX durch 11 oder 10 
' glatt teilbar, so kann es sich nur un Schnapszahlen 
' (22, 33 etc.) oder Nullzahlen (20, 30 etc.) handeln und 
' die können wir hier nicht gebrauchen. 

ISsStrSdX) I IX in String umwandeln 

I2S-StrS(IX Mod 10) I Einerstelle von IX 

I3$°Str$(IX Div 10) I Zehnerstelle von IX 

For JX«1 To 9 I Einstellige Schleife 

J$=StrS(JX) I JX in String unwandeln 

If InstrdS,J$):0 I Ist Ziffer JX in den 

' I IX-Ziffern enthalten? 

AX>:IX*JX I Nein, dann multiplizieren. 

If AX>11 And AX<99 I Ergebnis zweistellig und 

If (AX Mod 11>0) And (AX Mod 10>0) I glatt durch 11 oder 
' I 10 teilbar? (s.o.) 

Clr CX I INSTR-Positionsspeicher klar 

A$=StrS(AX) I AX in String umwandeln 

A2$=StrS(AX Mod 10) I Einerstelle von AX 

A3$<StrS(AX Div 10) I Zehnerstelle von AX 

CX=Instr(AS,I3S) I Zehnerstelle von IX in AX? 

CX*Max(CX,Instr(AS,I2S)) I Einerstelle von IX in AX? 

CX=Max(CX,Instr(A$,JS)) I JX in AX enthalten? 

If LendS-t-JS+ASI^S And CX°0 I Ziffernanzahl der 
' bisherigen Rechnung = 5 und keine der bisher 
' verwendeten Ziffern in einer anderen enthalten? 

For KX=12 To 98 I Schleife für die zu 

' I addierende Zahl 

KS=Str$(KX) I KX in String unwandeln 

K2S=Str$(KX Mod 10) I Einerstelle von KX 

K3S=StrS(KX Div 10) I Zehnerstelle von KX 

Ergebnis$=IS+J$+A$+K$ I Ziffernanzahl der bisherigen 

' I Rechnung feststellen 

If Len(Ergebnis$)=7 I Anzahl « 7? 

If (KX Mod 11>0) And (KX Mod 10>0) I ist KX 
' durch 10 oder 11 glatt teilbar? (s.o.) 
CX=Instr(A$,K3S) I Zehnerstelle von KX in AX? 
CX=Max(CX,Instr(AS,K2S)) I Einer von KX in AX? 
CX=Max(CX,Instr(IS,K3$)) I Zehner von KX in IX? 
CX=Max(CX,Instr(I$,K2$)) I Einer von KX in IX? 
CX=Max(CX,Instr(K$,JS)) I JX in KX enthalten? 

If CX=0 t Keine der bisherigen 

' Ziffern in einer anderen Zahl enthalten? 

BX^AX-^KX ! Multiplikationsergebnis 

' I und KX addieren 

BS=Str$(BX) I BX in String umwandeln 

If BX>11 And BX<99 I Ergebnis zweistellig? 

If (BX Mod 11>0) And (BX Mod 10>0) I Ist es 

' weder durch 10 noch 11 teilbar? (s.o.) 

If Len(ErgebnisS+B$)=9 I Anzahl aller 
' verwendeten Ziffern = 9? 

CX=Instr(BS,I3S) I.. Prüfen, ob 

CX=Max(CX,Instr(BS,12$)) I eine der 

CX=Max(CX,Instr(BS,A3$)) ! bisherigen 

CX=Max(CX,Instr(BS,A2$)) I Ziffern im 

CX=Max(CX,Instr(B$,K3$)) ! Endergebnis 

CX=Max(CX,Instr(BS,K2$)) ! enthalten 
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CX=Hax(CX,Instr(8$,JS)) !--• sind 
If CX=0 I Nein? 

Print "Sek. : ";(Timer-TX)/200 
Print 


Print 

Print 

Print 

Print 

Print 


Print 
End 
Endif 
Endif 
Endif 
Endif 
Endif 
Endif 
Endi f 
Next KX 
Endif 
Endif 
Endif 
Endif 
Next JX 
Endif 
Next IX 


"IX;" • ";JX 


" ";AX 
" + ";ICX 


•I , II.BX 


I dann 
I Lösung 
I ausgeben 
I ... 

I ... 

I ... 

I und Ende II 


! Für die, die nichts mit der Funktion 
! MAXO in den INSTR-Abfragen anfangen 
I können: 

I Durch INSTR soll festgestellt werden, 

I ob eine der jeweils verwendeten Ziffern 
I schon vorher bereits verwendet wurde. 

I Da mehrere INSTR-Abfragen hintereinander 
I stehen und anschlieBend auf Null gestestet 
I wird, kann eine hintenstehende Abfrage den 
I CX-Uert einer vorangegangenen mit Null 
! überschreiben. Um evtl, schon gefundene 
I Positionen zu erhalten, wird sie durch 
I MAXO in die Jeweils nächste INSTR-Abf rage 
I hinübergerettet. 


Version 3.0 


SELECT [CONT] CASE 
rrO] [DEFAULT] ENDSELECT 

{ S }{ CON }{ CA }{ DEFA }{ ENOS } Fali-Entscheidung 

SELECT Expr 

CASE Konstantei [TO Konstante2 [,[...] TO [...]]] 

... auszuführende Programmteile, wenn Expr gleich 
Konstantei, bzw. • bei Option TO - wenn Expr 
innerhalb des Bereichs von Konstantei bis 
Konstante2 liegt. 

[CONT] 

[CASE Konstantei [,Konstante2 [,Konstante3 [,...]]] 

... auszuführende Programmteile, wenn Expr gleich 
Konstantei oder gleich Konstante2 oder 
gleich Konstantes oder... oder ...] 

... ggfs, weitere CASE-Entscheidungen 
[CONT] 

[DEFAULT 

... auszuführende Programmteile, wenn keine der 
vorhergehenden Abfragen zugetroffen hat.] 

ENDSELECT 
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Diese Fallentscheidung bietet die Möglichkeit zu einer Expr-abhängi- 
gen Verzweigung (select = engl.; auswählen/case = engl.; falls). Viele 
werden diese Konstruktion aus der Sprache C kennen (Switch/Case). 
Expr kann ein beliebiger numerischer oder alphanumerischer Aus¬ 
druck sein, dessen Ergebnis ggfs, vorher ermittelt wird. Es ist auch die 
Angabe von Variablen oder Konstanten möglich. 

Wird ein(e) alphanumerischer Ausdruck, Konstante oder Variable in 
Expr verwendet, werden davon nur die ersten vier Zeichen zum Ver¬ 
gleich herangezogen. Diese werden dann intern in einen 4-Byte-Wert 
umgewandelt. 

Hinter CASE wird bei Werte-SELECT in Konstante ein numerischer 
Wert oder ein max. vier Zeichen langer Text als Konstante oder 
String-Variable angegeben, der dann daraufhin überprüft wird, ob 
Expr ihm entspricht. Bei Werte-SELECT angegebene Strings werden 
auf Gültigkeit geprüft, indem der SELECT-Wert mit den ASCII-Wer- 
ten der ersten vier Zeichen des Textes (sofern vorhanden) verglichen 
wird. 

Beispiel; 

AX=INP(a)*2‘24+INP(2)*2‘16+INP(2)*2‘8+INP(2) 

SELECT AX 
CASE "abcd" 

PRINT "abcd wurde eingegebeni" 

DEFAULT 

PRINT "irgendwas!" 

ENDSELECT 

In diesem Fall werden vier Tasten abgefragt (4 mal INP(2)). Der 
ASCII-Wert aller einzelnen Tasten wird zu einen Gesamt-4-Byte-Wert 
verknüpft. Auf dieselbe Art analysiert CASE bei Werte-SELECT einen 
angegebenen String. Es wird also ein MKL$-, MKI$- oder CHR$- 
String gebildet (je nach Länge des angegebenen CASE-Strings), der 
dann mit Expr verglichen wird. 

3-Zeichen-Strings; 

(ASCII-Uert des 1. Zeichens) • (2‘16) 

+ (ASCII-Wert des 2. Zeichens) * (2"8) 

+ (ASCII-Uert des 3. Zeichens) 
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2-Zeichen-Strings: 

(ASCII-Wert des 1. Zeichens) • (2‘8) 

(ASCII'Wert des 2. Zeichens) 
etc. 

Bei String-SELECT ist ebenfalls nur die Angabe eines maximal vier 
Zeichen langen Strings hinter CASE zulässig. 

Entspricht Expr der CASE-Auswahl, wird die darauffolgende Pro¬ 
grammsequenz ausgeführt und daran anschließend direkt zu der auf 
das zugehörige ENDSELECT folgenden Programmzeile gesprungen. 
Evtl, weitere CASE-Abfragen derselben Gruppe bleiben dann also un¬ 
berücksichtigt. Hier ist die SELECT...CASE-Konstruktion mit 
IF...ELSE IF vergleichbar. Der wesentliche Unterschied ist der, daß 
der Interpreter die Kontrolle über die Gültigkeit der Auswahl-Vorga¬ 
ben bei CASE automatisch vornimmt. Die ELSE IF-Konstruktion: 

AX=Randcim(120) 

Print AX, 

If AX>5 And AX<4A 

Print "innerhalb" >-. 

Else If AX<6 Or AX>43 And AX<100 j 

Print "außerhalb < 100" >.. 

Else If AX>100 j 

Print "außerhalb > 100" >.. 

Else j 

Print "100" >---. 

Endif 1 I 1 I 

.<... 


sieht mit SELECT...CASE folgendermaßen aus; 

AX=Randoin(120) 

Print AX, 

Select AX 
Case 6 To A3 

Print "innerhalb" >-. 

Case To 6,AA To 99 j 

Print "außerhalb < 100" >.. 

Case 101 To j 

Print "außerhalb > 100" >.. 

Default j 

Print "100" >---. 

Endselect I I I I 

-......_...._.....l.l.l.l 

Die Verzweigungskriterien hinter CASE sind im Vergleich zu den >-, 
AND- und OR-Bedingungen der ELSE IF-Struktur durchschaubarer, 
da sie der Formulierung von Bedingungen im normalen Sprachge- 
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brauch eher entsprechen. Eine weiterer Vorteil gegenüber ELSE IF ist 
der erhebliche Geschwindigkeitsgewinn: 


I 10.000 Durchläufe 

I 1. Abfrage 
I 2 . Abfrage 


TX=Timer 

For IX=1 To 10000 
Select IX 
Case 20000 
Case 20000 
Endselect 

Next IX 

Print «CASE-Abfrage : ";(Timer-TX)/200;" Sek." 

TX=Tinier 

For IX=1 To 10000 I 

If IX=20000 I 

Else if IX»20000 I 

Endif 

Next IX 

Print "ELSE IF-Abfrage 


10.000 Durchläufe 

1. Abfrage 

2. Abfrage 


";{Tiiner-TX)/200;" Sek." 


An den Sprunglinien im obigen Struktur-Vergleich können Sie erken¬ 
nen, daß wenn eine CASE-Bedingung erfüllt ist, anschließend keine 
der folgenden CASE-Bedingungen durchlaufen wird. So wird bei fol¬ 
gendem Beispiel nur die Zeile PRINT "A" ausgeführt, obwohl die fol¬ 
gende CASE-Bedingung "A" To "Z" ebenfalls zutrifft. 


X$="A" 

Select X$ 

Case "A" 

Print "A" >.. 

Case "A" To "Z" | 

Print "A bis Z" 

Endselect j 

.<.' 

Durch die optionale Angabe von TO kann ein ganzer Bereich angege¬ 
ben werden (z.B. CASE 1 TO 10/CASE "a" TO "z" oder CASE "abc" 
TO "xyz"), innerhalb dessen Grenzen ’Expr’ liegen muß, um die zuge¬ 
hörige Sequenz zu durchlaufen. Wird die erste (kleinere) Bereichs¬ 
grenze vor TO oder die zweite (größere) Bereichsgrenze nach TO weg¬ 
gelassen, wird intern automatisch die kleinstmögliche bzw. größtmög¬ 
liche Grenze angenommen. Durch Verwendung eines Kommas als 
Trennzeichen können auch mehrere Einzelangaben zusammengefaßt 
werden (z.B. CASE a,h,j,m oder CASE 1,33,7). Es ist möglich, die 
CASE-Bedingungsformate in einer CASE-Zeile beliebig zu vermischen 
(z.B. CASE TO "b","ABC" TO "XYZ",65,66,67,"Ä"). 

Wurden sämtliche angegebenen CASE-Anweisungen ohne wahr-Er- 
gebnis passiert, kann am Ende des SELECT-Blocks DEFAULT einge¬ 
setzt werden, was dazu führt, daß dann der zwischen DEFAULT und 






Programmstruktur 


175 


ENDSELECT liegende Programmteil ausgeführt wird (vergleichbar mit 
ELSE bei IF-Abfragen). 

Wird direkt vor einer CASE-Anweisung am Ende einer Verzweigung 
die Option CONT verwendet, bewirkt dies, daß die direkt danach ste¬ 
hende CASE-Abfrage übersprungen wird und die dieser CASE-Ab¬ 
frage unterstellte Sequenz zusätzlich zur schon ausgeführten Verzwei¬ 
gung ebenfalls ausgeführt wird. Nach Erledigung dieser Folgesequenz 
wird - sofern nicht auch diese mit CONT abgeschlossen wurde - zur 
ersten Zeile hinter ENDSELECT gesprungen. CONT kann ggfs, auch 
direkt vor DEFAULT eingesetzt werden, was bewirkt, daß - voraus¬ 
gesetzt, der vor DEFAULT stehende Programmblock wurde ausgeführt 
- die unter DEFAULT eingefügte Alternativ-Sequenz zusätzlich ab¬ 
gearbeitet wird. Steht CONT nicht direkt vor CASE oder DEFAULT, 
wird es als CONT zur Programmfortsetzung nach einem STOP-Befehl 
interpretiert. 

Übrigens ist es zwecklos, Programmzeilen zwischen SELECT und dem 
ersten CASE unterbringen zu wollen, da diese Zeilen vom BASIC 
nicht registriert werden. 

Statt DEFAULT kann auch OTHERWISE { OT } geschrieben werden. 
Dieser Ausdruck wird vom Interpreter in DEFAULT umgewandelt. 


6.3 Bereichsdeklaration 


1 Kommentar innerhalb einer Befehlszeile 

Befehlszeile I Kommentartext 

Grundsätzlich hat dieses Ausrufungszeichen die gleiche Aufgabe wie 
der Befehl REM. Der darauf folgende Text wird als Programm-Kom¬ 
mentar deklariert und vom BASIC bei der Interpretation "übersehen". 
Sie sind dieser Form der Kommentar-DeKlaration bei den Beispiel¬ 
programmen hier im Buch schon häufiger begegnet. 

Der Unterschied zwischen ! und REM besteht darin, daß durch ! der 
Kommentartext direkt an eine Befehlszeile angehängt werden kann. In 
DATA-Zeilen ist diese Abgrenzung allerdings nicht möglich, da sie 
hier als Text-DATA angesehen werden würde. 


Beispiel: 
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Input AS I String einiesen 

Print AS I String ausgeben 

Edit I Programnende 

Am Anfang einer Zeile verwendet, wird ! vom V3.0-Interpreter in die 
REM-Abkürzung umgewandelt. 


DATA { D } Daten-Speicher deklarieren 

DATA [Wertedatas [,n Textdataa [*],...]] 

Der Anweisung wird ggfs, eine Liste durch Kommata getrennter Werte 
oder Texte übergeben. Sie dient dazu, einem auftretenden READ-Be- 
fehl die entsprechende Anzahl von Daten zur Verfügung zu stellen. 

Wie bei RESTORE beschrieben, kann ein DATA-Zeiger auf eine be¬ 
stimmte Marke (Label) gerichtet werden. READ liest dann der Reihe 
nach die DATAs, die auf die angegebene Marke folgen. Wird kein 
RESTORE verwendet, werden vom Programmanfang aus nacheinander 
soviele DATAs eingelesen, wie READ-Anweisungen vorhanden sind. 
Werden mehr READ-Anweisungen eingesetzt als DATAs bis zum Pro¬ 
grammende vorhanden sind, wird eine entsprechende Fehlermeldung 
ausgegeben. 

Eine Besonderheit des GFA-BASlCs ist es, daß Text-DATAs nicht 
zwischen An- und Abführungsstriche gesetzt werden müssen. Es sei 
denn, daß in Text-DATAs Kommas Vorkommen. In diesem Fall würde 
das Text-Komma als Trenn-Komma zum nächsten String-Teil gewer¬ 
tet werden. Werden die An-/Abführungzeichen vernachlässigt, liest 
der Interpreter alle vorkommenden Zeichen (auch Leerzeichen), die 
zwischen den einschließenden Kommas aufgeführt sind. 

Numerische READ-Anweisungen sind darauf angewiesen, auch nu¬ 
merische DATAs vorzufinden. Diese können dann allerdings auch in 
der binären, hexadezimalen oder oktalen Schreibweise angegeben sein. 
Liest ein Text-READ ein numerisches Zeichen, so wird es einfach als 
Textzeichen interpretiert. 

Variablen können in den DATAs nicht übergeben werden. Kommen 
im Programm keine READ-Anweisungen vor, kann in DATA-Zeilen 
beliebiger Text stehen. Dieser Text bleibt dann - wie bei REM - vom 
Programm unberücksichtigt. 

Schauen Sie sich hierzu bitte auch die Beispiele zu WRITE und TAB() 
an. Als kleiner Leckerbissen folgt nun wieder eine Befehlserweiterung, 
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die die simple, aber wirkungsvolle Aufgabe hat, einen beliebigen 
Speicherbereich in DATA-Zeilen umzuwandeln und abzuspeichern. Da 
es mit dem Abspeichern von DATAs noch nicht getan ist, habe ich als 
Ergänzung noch eine Routine hinzugefügt, die einen DATA-Block 
einliest und die Daten in einen ebenfalls beliebigen Speicherbereich 
schreibt. 


Einsatzdemo für Pcode: 


Deffill ,2,4 
Pbox 0,0,40,40 
Deffill ,2,2 
Pcircle 20,20,15 
Get 0,0,40,40,A$ 


I--. 

I— Irgendeine Grafik 
I 

I--' 

I Grafik in '*$' einiesen 


aPcode_v2(2,Len(A$)/2,Varptr(A$))l Inhalt von 'AS' im 
' I Uordformat abspeichern 

Edit 


Im Anschluß an den oberen Programmteil mergen Sie bitte die Datei 
PDATAS.LST hinter das Label Pdatas_v2: (bzw. Pdatas:) an das Pro¬ 
grammende. 

Löschen Sie nun den ersten Programmteil und starten Sie den folgen¬ 
den. Beim ersten Aufruf werden das Format und die DATA-Anzahl 
gelesen und beim zweiten Aufruf die erhaltenen Werte übergeben. Die 
DATAs werden nun in den vorbereiteten Puffer gelesen und als PUT- 
Grafik auf den Bildschirm gebracht. 

Einsatzdemo für ’Pread’: 

Restore Pdatas 
aPread_v2(*A*,*B*,0) 

AS=Space$(BX*AX) 

Restore Pdatas_v2 
aPread_v2{AX,BX,Varptr(AS)) 

Put 100,100,AS 

I 

Procedure Pcode_v2(P.frmX,P.anzX,P.adrX) 

• Schreibt einen beliebigen Speicherbereich als 
' DATA-Zeilen in die Datei 'PDATAS.LST' (für V2.xx). 


P.frmX = Verarbeitungsformat 

1 = Byte/2 » Uord/4 = Longword 
P.anzX = Anzahl der zu erzeugenden DATA-Uerte 

Beachte: Dieses ist nicht die Byte-Anzahl, 
sondern die GröBe des Bereichs, 
geteilt durch das Format P.frmX. 

P.adrX z Startadresse des zu konvertierenden Bereichs 
Bei Word- und Longword-Format wird nicht 
auf die Angabe einer geraden Adresse hin geprüfti 


I DATA-Label setzen 
I Format und Anzahl lesen 
I Puffer vorbereiten 
I DATA-Label restaurieren 
I DATAs in Puffer lesen 
I Grafik ausgeben 
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■ In der Datei PDATAS.LST finden Sie nach AbschluB die 
' erzeugten DATA-Zeilen, die Sie nun durch Merge in den 
' Progrannitext einfügen können. 


Hidem I Maus ausschalten 

Local IX,JX,DS I Lokale Variablen 

If P.frmX=1 Or P.frtrX=2 Or P.fnrtX=4 I Format zulässig? 

Open "0",#99,"Pdatas.Ist" I Datei öffnen 

P.stX=Hin(18,24/P.frnlX> I DATA-Anzahl pro Zeile 

Print #99,"D ";Str${P.fni«);",";Str$(P.anzX) I Format und 
' I Anzahl schreiben 

For IX=1 To P.anzX Step P.stX IDATA-Leseschleife 
D$="D " I DATA-Kürzel an den 

' I Zeilenanfang schreiben 

For JX=1 To Min(P.stX,P.anzX-(IX-1)) {Anzahl je Zeile 
If P.fniÄ=1 I Byte-Format? 

D$=D$+Str$(Peek{P.adrX+(IX-1)+(JX-1)))+"," leinbinden 
Endif 

If P.frmX=2 I Uord-Format? 

D$=M)S+Str$(Dpeek(P.adrX+(IX-1)*2+(JX-1)*2))+"," I 
Endif 

If P.frmX=4 I Long-Format? 

D$=D$+Str$(Lpeek(P.adrX+(IX-1)»4+{JX-1)»4))+"," I 


Endif 
Hext JX 

D$=Left$(D$,Lcn(D$)-1) 
Print #99,D$ 

Hext IX 
Close «99 
Endif 
Shoum 
Return 


I Nächstes Longword 
I Letztes Komma abschneiden 
I String in Datei schreiben 
I Nächste Zeile 
I Datei schließen 

I Maus wieder anschalten 


Wurde die Datei PDATA.LST in das Programm gemergt, ist vor den 
DATA-Block ein Label zu setzen. Die erste DATA-Zeile enthält zwei 
Werte: der erste stellt das beim Schreiben verwendete Format und der 
zweite die Gesamtanzahl der erzeugten DATAs dar. Die darauf fol¬ 
genden DATA-Zeilen enthalten der Reihe nach alle erzeugten Werte. 

Um zuerst das beim Schreiben verwendete Format und die DATA- 
Anzahl zu ermitteln, werden die ersten beiden Parameter als Pointer 
auf zwei Variablen angegeben und als Adresse in P.adr% eine Null 
übergeben. Vor Aufruf ist das gewünschte DATA-Label zu restaurie¬ 
ren. Aus den beiden Pointer-Variablen können danach das Format und 
die DATA-Anzahl entnommen werden. Vor dem eigentlichen Aufruf 
zum DATA-Lesen ist wieder das DATA-Label zu restaurieren und die 
erhaltenen beiden Werte diesmal an die Prozedur zu übergeben. In 
diesem Fall geben Sie in P.adr% die Startadresse des Zielbereichs an. 
Soll die Prozedur Pread mit von vornherein feststehendem Format und 
Anzahl aufgerufen werden, vergessen Sie bitte nicht, daß die Prozedur 
trotzdem zwei DATAs (Format und Anzahl) am DATA-Blockanfang 
erwartet. 
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Procedure Pre8d_v2(P.frmX,P.anzX,P.adrX) 

' Liest die mit Pcode__v2 erzeugten DATAs (nachdem sie 
' durch Merge in das Programn geladen wurden) und 
' schreibt sie in den angegebenen 
' Speicherbereich, bzw. liefert das verwendete Format 
' u^ die DATA-Anzahl (für V2.xx). 


P.frmK = Verarbeitungsformat: 

1 = Syte/2 = Word/4 = Longword 
bzw. Pointer auf Format-Rückgabevariable, 
wenn P.adrX = 0 

P.anzX = Anzahl der zu erzeugenden DATA-Uerte 

bzw. Pointer auf Anzahl-Rückgabevariable, 
wenn P.adrX = 0 

Achtung: Dieses ist nicht die Byte-Anzahl, sondern 
die GröBe des zu konvertierenden Bereichs, 
geteilt durch das Format P.frmK. 

P.adrX = Startadresse des Bereichs, in den die gelesenen 
DATAs geschrieben werden sollen, bzw. 0, wem nur 
Format und Anzahl geliefert werden sollen. 

Achtung: Bei Word- und Longword-Format wird nicht 

auf die Angabe einer geraden Adresse geprüft! 


Hidem I 

Local lX,UrtX,AnzX,FrmX 
If P.adrX=0 
Read FrmX 
*P.frmX=FrmX 
Read AnzX 
•P.anzX=AnzX 
Else 

Read UrtX,UrtX 

I 

For IX=1 To P.anzX 
Read UrtX 
If P.frmX=1 

Poke P.adrX+(IX-1),UrtX 
Endif 

If P.frmK=2 
Endif 

If P.frfflX=4 


Haus ausschalten 
Lokale Variablen 
P.adrX = 0? 

Format lesen 

In 1. Parameter zurückgeben 
DATA-Anzahl lesen 
In 2. Parameter zurückgeben 
Adresse wurde angegeben 
Format und Anzahl lesen 
(und wieder vergessen) 
P.anzX DATAs 
lesen 

Byte-Format? 

Ab P.adrX POKEn 

Word-Format? 


I 
I 
! 

! 

I 
! 

I 
I 
I 
I 
I 
I 
I 

I 

Dpoke P.adrX+((IX-1)*2),UrtX I Ab P.adrX DPOKEn 
I Long-Format? 


Lpoke P.adrX+((IX-1)»4),WrtX I Ab P.adrX LPOKEn 
Endif 


Hext IX 
Endif 
Showm 
Return 
Pdatas v2: 


I Nächstes Longword 
I Haus wieder anschalten 
I DATA-Label 


Da die Parameter-Übergabe und die Auswahlbedingungen in der 
V3.0-Version anders gestaltet werden können und sich dadurch außer¬ 
dem auch Geschwindigkeitsvorteile ergeben, folgen nun die beiden 
Prozeduren noch einmal für die Version V3.0. Außerdem können Ih¬ 
nen die hier vorgenommenen Änderungen als Beispiel für mögliche 
Optimierungen in der V3.0-Version dienen. 





180 


Das große GFA-BASIC-Buch 


Vor Ausführung des folgenden Programmteils ist zuerst der 
Pcode_v2-Aufruf oben entsprechend abzuändern und aufzurufen. 


Restore Pdatas 
aPread(0,AX,8X) 
AS=Space$(Mu((BX,AX)) 
Restore Pdatas 
aPre8d(Varptr(AS),AX,BX) 
Put 100,100,AS 


I DATA-Label setzen 
I Format und Anzahl holen 
I Puffer vorbereiten 
I DATA-Label restaurieren 
I DATAs in Puffer lesen 
I Grafik ausgeben 


Procedure Pcode{P.fni(X,P.anzX,P.8drX) 
‘ - für V3.0 - 
Hidem 


Local IX,JX,DS 
Select P.frnÄ 

Case 1,2,4 I Format zulässig? 

Open "0”,#99,"Pdatas.Ist" I Datei öffnen 

P.stX=Min(18,24/P.friTlX) I DATA-Anzahl pro Zeile 

Print #99,"D ";Str$(P.frmX);",";Str$(P.anzX) I Format 
' I urxi Anzahl schreiben 

For IX=1 To P.anzX Step P.stX IDaten-Leseschleife 
DS="D " I DATA-Kürzel an den 

' I Zeilenanfang schreiben 

For JX=1 To Min(P.stX,P.anzX-(IX-1)) I Anzahl pro Zeile 
Select P.frtnX ! P.frniX wählen 

Case 1 I Byte-Format? 

D$=D$+Str${Byte{P.adrX+(IX-1)+(JX-1)>)+"," I Einbinden 
Case 2 I Uord-Format? 

D$=D$+Str$(Card{P.adrX+(IX-1)*2+(JX-1)*2>)+"," I -"- 
Case 4 I Long-Format? 

D$=D$+Str$({P.adrX+(IX-1)*4+{JX-1)*4))+"," I -"- 


Erxiselect 
Next JX 

D$=Left$(D$,Len(D$)-1) 
Print #99,0$ 

Next IX 
Close #99 
Erxiselect 
Shoum 
Return 

Procedure Pread(P.adrX,Var P. 
' - für V3.0 - 


I Nächstes Longword 
I Letztes Kotnma abschneiden 
I String in Datei schreiben 
I Nächste Zeile 
! Datei schlieBen 

I Maus wieder anschalten 

I, P.anzX) 


P.frmX = Verarbeitungsformat: 

1 = Byte/2 = Uord/4 = Lorrgword bzw. 
VAR-Format-Rückgabevariable, wenn P.adrX = 0 
P.anzX = Anzahl der zu erzeugerxlen DATA-Uerte bzw. 

VAR-Anzahl-Rückgabevariable, wenn P.adrX = 0 

Alles arxlere ist mit der V2.xx-Ausführung identisch. 


Hidem 

Local IX,UrtX 
If P.adrX=0 
Read P.frmX,P.anzX 
Else 

Read UrtX.UrtX 

I 


! P.adrX ist 0? 

! Format und Anzahl lesen 
! Adresse ist > 0 ! 

! Format und Anzahl lesen 
! (und wieder vergessen) 
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For IX=1 To P.anzX I P.anzX DATAs 

Read UrtX I lesen 

Select P.fmÄ ! P.form wählen 

Case 1 I Byte-Format? 

Byte{:P.adrX+(IX-1)>=UrtX I Ab P.adrX schreiben 
Case 2 I Word-Format? 

Card{P.adrX+((IX-1)*2»=WrtX I Ab P.adrX schreiben 
Case A I Long-Format? 

<P.adrX+{(IX-1)*A)}=UrtX I Ab P.adrX schreiben 
Endselect 

Next IX I Nächstes Longword 

Endif 

Showm I Haus wieder anschalten 

Return 

Pdatas: I DATA-Label 

Von einem Bekannten wurde ich einmal gefragt, ob es möglich sei, 
komplette Fullscreens (32000 Byte) direkt in einem Programm unter¬ 
zubringen. Nach kurzer Überlegung gab ich ihm zur Antwort, daß es 
"selbstverständlich" über die DATA-Methode möglich ist. Da ich von 
Haus aus hilfsbereit bin, setzte ich mich hin und begann, ihm ein 
kleines Programm dafür zu schreiben. Nach ca. 1 Stunde war es so¬ 
weit. Das Ergebnis bestand aus den beiden oben gezeigten Prozeduren 
Pcode und Pread. Als ich es meinem Bekannten stolz vorführte, wollte 
sich bei ihm die rechte Begeisterung nicht einstellen. Der Grund: es 
dauert viele lange Sekunden, bis aus den DATAs ein komplettes Bild 
wurde und außerdem verbraucht der DATA-Block ca. den doppelten 
Speicherplatz. 

Aus diesen verständlichen Gründen sind die beiden Prozeduren also 
nur bei relativ kleinen Datenblöcken ratsam. 

Welche Alternativen bieten sich nun? In V3.0 ist die Antwort sehr 
einfach - INLINE! Dieser Befehl eignet sich allerdings nur bis zu ei¬ 
ner Datenmenge von 32700 Bytes pro Einheit, was in den meisten 
Fällen ausreichen sollte. Außerdem sind ja beliebig (?) viele INLINE- 
Speicher in einem Programm möglich. 

In den V2.xx-Versionen gibt es nur zwei komfortable Alternativen. 
Die erste besteht in sogenannten "Packern", welche die sich wiederho¬ 
lenden Datensequenzen zu 3- oder 4-Byte-DATAs zusammenfassen. 
Angenommen, in dem zu speichernden Bild sind die ersten x-hundert 
Bytes gleich Null. Statt diese x-hundert Bytes einzeln abzuspeichern, 
kann man dafür als Ersatz z.B. folgenden Drei-Byte-Code einsetzen: 

1 und 2 = HI- und LO-Byte der Byte-Anzahl (hier: x-hundert) 

Byte 3 ° Byte-Wert (hier: Null) 
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Wenn in dem zu speichernden Datenblock häufig wiederkehrende 
Byte-Folgen auf treten, kann dadurch - je nach Komplexität der Daten 
- Speicherplatz und Zeit gespart werden. Beim ST könnte man sogar 
leicht 4-Byte-Codes verwenden, da die überwiegende Verarbeitung¬ 
breite das Word ist. Statt die Daten byteweise zu packen, werden sie 
dann wordweise gepackt. 

Ein derartiger Packer hat den - teils großen - Vorteil, daß der Pack- 
Modus geheim gehalten werden kann und so die Daten unlesbar wer¬ 
den. Ein wesentlicher Nachteil ist dagegen, daß bei hochkomplexen 
Datenstrukturen (also dann, wenn sehr wenig wiederkehrende Se¬ 
quenzen auftreten) ein Packer das Vielfache an Platz und Zeit ver¬ 
braucht. 

GFA-BASIC liefert uns eine sehr wirkungsvolle Codierungsmethode. 
Es ist nämlich möglich, im Programmtext fast alle möglichen ASCII- 
Zeichen direkt einzugeben, die dann auch im Listing erkennbar sind. 
Diese Fähigkeit kann man nun dazu nutzen, Daten so zu speichern, 
daß 

a. nicht wesentlich mehr Platz verbraucht wird, als die zu spei¬ 
chernden Daten selbst ausmachen (maximal ca. das 1.1-fache). 

b. die Daten schnell übertragbar sind. 

c. die Daten direkt im Programm untergebracht werden können.Die 
Anzahl der zu codierenden Datenmenge pro Einheit ist allerdings 
auch hier - wie bei V3.0-INLINE - auf 32700 Bytes beschränkt, 
wobei auch hier beliebig (?) viele Einheiten in einem Programm 
möglich sind. Eingeschränkt wird dieses Speicherverfahren - ge¬ 
nau wie bei INLINE - durch den verfügbaren Speicherplatz. 

Ein wesentlicher Nachteil ist, daß sich bei Blöcken, die viele Oer-, 
10er- 13er- oder 34er-Bytes enthalten, das Verhältnis von Quellda¬ 
tenanzahl zur Anzahl der erzeugten Bytes wesentlich verschlechtern 
kann. Ob sich das Verfahren lohnt, läßt sich in den meisten Fällen erst 
nach erfolgter Codierung feststellen. Es eignet sich also am ehesten für 
solche Fälle, in denen ein Packer "die Segel streichen" muß. 

Der unbestreitbare Vorteil des Verfahrens ist die erstaunliche Ge¬ 
schwindigkeit, mit welcher die Daten vom BASIC für das Programm 
verfügbar gemacht werden. Außerdem ist der Datenblock im weiteren 
Programmverlauf beliebig oft - ohne nochmaligen Zeitaufwand - ein- 
setzbar. Daß auch hier die Lesbarkeit der Daten für Nicht-Befugte 
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erschwert werden kann (je nach Codierungs-Schema), ist ein will¬ 
kommener Nebeneffekt. 


Die als Erweiterung konzipierte Routine erzeugt ein .LST-File, das Sie 
durch die Editor-Funktion Merge in Ihr Listing einfügen können. In 
diesem File werden die Daten als normaler String abgespeichert. Da 
innerhalb von listinginternen String-Definitionen keine Anführungsz¬ 
eichen (CHR$(34)), Carriage Returns (CHR$(13)), Line Feeds 
(CHR$(10)) und Nullzeichen (CHR$(0)) Vorkommen dürfen, werden 
diese von der Routine als Ersatz-String-Variable in den Haupt-String 
integriert. 

Da sehr wahrscheinlich Null-Byte-Ketten die am häufigsten auftre¬ 
tenden Fälle sein werden, ist die Routine so gestaltet, daß diese zu 
max. 4-Byte-Strings zusammengefaßt und gegen entsprechende Ersatz- 
Strings ausgetauscht werden, so daß sich das Größenverhältnis vom 
Quelldaten-Block zum Code-Block ggfs, wieder zu Gunsten der Co¬ 
dierung ändern kann. Nach dem Prinzip dieses Null-String-Packers 
läßt sich natürlich auch ein kompletter Total-Packer realisieren. 

Jedem erzeugten String-File wird die Definition der Ersatz-Strings 
vorangestellt. Haben Sie in einem Programm mehrere Strings dieses 
Formats untergebracht, so ist die Ersatz-String-Definition nur einmal 
- vor Aufruf des ersten Daten-Strings - durchzuführen. 

Als Bonbon finden Sie unten eine Routine Rplc, welche beliebige 
Strings bzw. Zeichen in einem Vorgabe-String gegen einen Ersatz- 
String austauscht. Die Codierungs-Routine Scode bedient sich dieser 
Fähigkeiten und ist daher darauf angewiesen, die Prozedur Rplc im 
Listing zu finden. 

Einsatzdemonstration für Scode: 


Deffill ,2,4 

Pbox 0,0,40,40 

Deffill ,2,2 

Pcircle 20,20,15 

Get 0,0,40,40,4$ 

Scode(Varptr(A$}, Len(A$) ,''test' 


I--. 

I— Irgendeine Grafik 
I 

l-.i 

I Grafik in A$ einiesen 
"teSt") I A$ codieren 


Procedure Scode(D.staX,D.anzX,D.var$,D.naiil$) 

' Erzeugt einen Code im GFA-Editortext-Format und speichert 
' diesen auf Diskette bzw. Hard-Disk ab. 


' D.staX = Startadresse des zu codierenden Speicherbereichs 
' D.anzX ° GröBe des zu codierenden Bereichs in Byte 
' D.varS = Name der erzeugten String-Variablen 
' D.namS 3 File-Name, unter welchem der erzeugte String 
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abgespeichert werden soll. Es sind max. 8 Zeichen 
zugelassen. Die Extension .IST wird von der 
Routine selbständig angehängt. Im aufrufenden 
Programm darf keine Datei mit der Kanalnuimer #99 
geöffnet sein. 


Open “0'',#99,D.nanlS+".LST" I Ausgabe-Datei öffnen 

Print #99;"XOSsChri(0)";Chr$( 13);“XIOi=Chr$( 10)'•;Chr$( 13); ! -. 
Print #99;"X13$=Chr$(13)";Chr*(13);"X34t=Chr$(34)";Chr$(13); !-. 
Print #99;"X02$=X0$+X0$“;Chr${13);"X03$=X0»+X02$";Chr*{13); I j 
Print #99;"X04$=X02$+X02S“ !-• | 

' Predefinition der Ersatz-Strings <-' 

Local LcoX,Em1X,Em2X,IX,Buff$,Buff2S I Lokale Variablen 

LcoX^IS I Zähler für Zeilenlänge 

Buff$=0.var$+“S="+Chr$(34) I Ausgabe-String vorbereiten 

For 1X=0 To D.anzX-1 I Alle Bytes durchgehen 

Em1X=Peek(D.staX+lX) I Byte lesen 

If Em1X=0 Or Em1X=10 Or Em1X=13 Or Em1X=34 I Gelesenes Byte 
' I ist 0, 10, 13 oder 347 

If Em2X<>34 I Letztes Zeichen im 

' I String war 0, 10 oder 13? 

BuffS=Buff$+Chr$(34)+"+X"+Str$(Em1X)+"$“ I Ersatz-String 
' I in Haupt-String einbinden 

Em2X=Asc("$") I Letztes Zeichen merken 

Else I Byte = 34 I 

Buff$:LeftS(BuffS,Len(BuffS)-1) I String-Anfang isolieren 
Buff$=Buff$+"X"+Str$(Em1X)+“$” I Ersatz-String einbinden 
Em2X=Asc(“$") I Letztes Zeichen merken 

Endif 

If LcoX>230 
Goto Setsta 
Else 

Buff$=BuffS+“+"+Chr$(34) 

Em2X=34 
Add LcoX,13 
Endif 

Else I Byte kann direkt geschrieben werden I 

Buff$=Buff$+Chr$(Em1X) I Byte in String einbinden 

Inc LcoX I Längenzähler +1 

Em2X=Em1X I Byte merken 

If LcoX>230 I Zeilenlänge > 230? 

Setsta: 

aErsetzer I Ketten ersetzen 

Print #99;Buff$ I String in Datei schreiben 

Buff$=D.var$+"S="+D.var$+“$+“+Chr$(34) I Neuer String 


I Zeilenlänge > 230? 

I Zeile abschlieBen 
I Zeilenlänge <= 230 I 
I Nächsten String-Teil öffnen 
I Letztes Zeichen merken 
I Längenzähler setzen 


Em2X=34 
LcoX=30 
Endif 
Endif 
Next IX 
aErsetzer 
Print #99;Buff$ 
Close #99 
Return 


Letztes Zeichen merken 
String-Zähler neu setzen 


Nächstes Byte 
Ketten ersetzen 
String in Datei 
Datei schließen 


schreiben 


Procedure Ersetzen 

' Null-String-Packer (Ergänzung zur Rplc-Routine) 


Rplc(1,1,BuffS,"X0$+X0$","X02$",»Buf f$) 





Programmstruktur 


185 


Rplc(1,1,Buff*,"XOS+XOS+XO*",»X03*",*Buff*) 
Rplc(1,1,Buff*,''X02*+X0*",''X03*'',*Buff*) 

Rplc(1,1,Buff*, “XO*+XO*+XO*+XO*'', "X04*", »Buf f *) 
Rplc(1,1,Buff*, "X03*+X0*", «XW*", »Buf f *) 

Rpl c( 1,1, Buf f *, "X02*+X0*+X0$'', "X04t", «Buf f *) 

Rplc( 1,1, Buf fS, ••X02*+X02»", "X(K»“ ,*Buf f*) 

I 

' Für einen Rplc-Aufruf in V3.0 ist ausschlieBlich das 
' Pointer-Sternchen vor der hinteren BuffS-übergabe 
' (Rückgabe) zu entfernen. 

Return 

I 

Procedure Rplc(R.flgX,PosX,H.str$,S.str$,R.strt,R.adrX) 

' Für V3.0 ist folgender Kopf gültig: 

‘ Procedure RplcCRflgX,RposX,Mstr$,Sstr$,Rstr$,Var RadrS) 


Setzt an Stelle des gefundenen Such-Strings den 
angegebenen Ersatz-String. Hier wird die Routine als 
Ergänzung zur Scode-Routine eingesetzt, sie ist 
jedoch als selbsständige Routine frei verwendbar. 


RflgX • Flag, ob nur an jeweils erster gefundener 

Position ersetzt werden soll (RflgX=0) oder 
alle gefundenen Positionen ersetzt 
werden sollen (RflgX=1). 

RposX - Position innerhalb des zu durchsuchenden Strings, 
ab welcher gesucht werden soll. 

Mstr* = Zu durchsuchender String 

Sstr* > Zu suchender String 

Rstr* = Einzusetzender String 

RadrX • Pointer auf eine Rückgabe-String-Variable, die 
nach AbschluB den neu gebildeten String enthält. 

In V3.0 ist dies eine VAR-String-Variable (RadrS), 
die den fertigen String aufninnt. 


Local GfX,Ls$ 

Repeat 

GfX=Instr(RposX,Hstr$,Sstr$) 

If GfX 

Lst=Left*(Mstr*,GfX-1) 

Mstr*=Lst+Rstr*+Right*(Mstr*, 

I 

RposXs^GfX-^-LenfRstr*)*) 

Endif 

Until GfX=0 Or RflgX=0 
•RadrX=Mstr* 

' RadrS^MstrS 
Return 


I Check-Schleife 
I Such-String suchen 
I Such-String gefunden 
I String-Anfang isolieren 
Len(Mstr*)-GfX-Len(Sstr*)+1) 
I Neuen Rest-String bilden 
I Neue Suchstartposition 

I Fertig 

I String-Rückgabe in V2.xx 
I String-Rückgabe in V3.0 


READ { REA } DATA-Werte auslesen 


READ Var I,Var2,Var$,Var2$,...] 

Der/Den angegebenen Variablen Var werden die jeweils gelesenen 
DATA-Einträge zugeordnet. Wird kein RESTORE Labelname verwen¬ 
det, werden der Reihe nach vom Programmanfang aus soviele DATAs 
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eingelesen (falls vorhanden), wie RE AD-Anweisungen ausgeführt 
werden. Weiteres siehe unter DATA. 


REM { R oder *} Kommentar einfUgen 

In V3.0 auch: { I} 

REM [Kommentar] 

Möchten Sie Ihr Programm zur besseren Verständlichkeit mit Kom¬ 
mentar versehen, können Sie mit der Anweisung REM an beliebiger 
Programmstelle eine beliebige Kommentarzeile einfügen. Diese Kom¬ 
mentarzeilen bleiben vom Interpreter im Programmverlauf unberück¬ 
sichtigt. Als Abkürzung können Sie für REM auch das Hochkomma 
(Apostroph) verwenden. 

In der V3.0-Version kann auch ein Ausrufungszeichen (Kommentar- 
Marker innerhalb einer Befehlszeile) eingesetzt werden. Dieses wird - 
sofern es sich am Zeilenanfang befindet - in das REM-Zeichen ' 
umgewandelt. 

Es ist empfehlenswert, diese Möglichkeiten zur Kommentierung aus¬ 
giebig zu nutzen. Bei größeren Programmen erleichtert es Ihnen das 
Auffinden von bestimmten Programmteilen. Außerdem machen kleine 
Bemerkungen die Logik Ihrer Programmführung und der Zusammen¬ 
hänge auch für andere überschaubarer. 

Soll allerdings das Programm, nachdem es umfassend kommentiert ist, 
auf die kürzestmögliche Länge wieder reduziert werden (z.B. zwecks 
kürzerer Ladezeiten, Speicherplatz-Ersparnis etc.), so ist ein soge¬ 
nannter REM-Killer äußert hilfreich. Es ist nämlich eine äußerst stra¬ 
pazierende Geduldsleistung, aus einem großen Programm sämtliche 
Kommentare "zu Fuß" zu entfernen. 

Nachfolgend finden Sie einen solchen REM-Killer, der bei seiner Ar¬ 
beit alle Zeilen und Zeilenteile löscht, die entweder am Anfang mit 
dem REM-Zeichen ’ oder REM beginnen oder am Zeilenende mit ! 
beginnen und keine An/Abführungszeichen mehr hinter sich haben. 
Mit einem nachfolgenden An/Abführungszeichen wäre es sehr wahr¬ 
scheinlich ein Text-String, der nicht gelöscht werden darf. Da in 
DATA-Zeilen Strings auch ohne An/Abführungszeichen möglich sind, 
werden diese generell ausgeklammert. 
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Das Programm ist durch die vielen Sicherheitsabfragen etwas in die 
Länge gezogen, aber ich meine, daß sich dieser Mehraufwand sicher 
lohnt. Bei längeren Programmen kann die "Ent-REM-mung" schon ei¬ 
nige Zeit in Anspruch nehmen, und es wäre ärgerlich, wenn die fer¬ 
tige Arbeit dann durch "Diskette voll" verlorenginge oder man aus 
Versehen ein Programm mit gleichem Namen beim Abspeichern 
überschreibt. 

al$="Bitte zu 'cnt-REM-mendejOuelldatei angeben!” 

ALERT 1,al$,1,"OICAY",backX 

FILESELECT "\*.LST","",quell* I QuelIdatei-Auswahl 

IF EXISTCquellS) I Datei existiert? 

OPEN "i",#1,quell$ I Dann öffnen 

DIM pufferSOOOOO) I DIM Zei len-Pufferfeld (max. 10000) 

I 

' Die folgende UHILE..UEND-Schleife kann in V3.0 durch 

■ RECALL #1,pufferst),)0000,countX 
' ersetzt werden. 

I 

UHILE NOT EOF(#1) I Noch kein Dateiende? 

LINE INPUT #1,pufferS(countX) I Zeile lesen 
INC countX ! Zeilenzähler +1 

UEND I Nächste Zeile 

■ 

FOR cntX=0 TO countX 

1 

' In V3.0 reicht anstatt der nächsten drei Zeilen: 

' -> puffer$(cntX)=TRIM$(puffer$(cntX)) 

I 

UHILE LEFTS(puffer$(cntX))=" I Zeilenanfang = Space? 
pufferS(cntX)=RIGHT$(pufferS(cntX),LENtpuffer$(cntX))-1) 

' I Dann Space löschen 

UEND I Nächstes Zeichen 

I 

IF LEFT$(puffer$(cntX))<>. AND UPPERS... 

...{LEFTS(pufferS(cntX),3))<>"REM" ! Keine REM-Zeile? 

IF UPPERS(LEFTS(pufferS(cntX),4))<>"DATA" ! Keine DATA-Zeile? 

CLR p2X 

UHILE INSTR(p2X+1,pufferS(cntX)," !") ! Ausrufungszeichen 
' mit vorangestelltem Space enthalten? (muß mit Space 
' sein, da sonst auch hintenstehende Binär-Variablen 
' gefurälen werden). 

p1X=INSTR(p2X+1,pufferS(cntX),'' !") I Position feststellen 
p2X=INSTR(p1X+2,pufferS(cntX),CHRS(34)) ! Anführungszeichen 
' hinter '!'? (-> dann wäre 'I' Teil eines Strings!) 

IF p2X=0 I Kein " hinter ! gefunden? 

pufferS(cntX)=LEFTS(pufferS(cntX),p1X-1) I Konroentar... 

ENDIF I ...abtrennen 

EXIT IF p2X=0 I Exit, wenn kein " mehr gefunden 

UEND 

ADD SLinneX,LEN(pufferS(cntX))t2 I Längen (+ CR/LF) addieren 
ENDIF 

ELSE I Es ist eine REM-Zeile! 

I 

' Sollen nur die !-Komnentare gelöscht werden, aber nicht 
' die REH-Zeilen, so ist dieser ELSE-Block zu löschen. 
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puffert(cnt*)="" I Für V2.xx 

I 

• DELETE puffer$(cnt*) I Für V3.0 

' DEC countX I Für V3.0 

• DEC cntX I Für V3.0 


ENDIF 

NEXT cntX I Nächste Zeile 

CLOSE I Datei schlieBen 

UHILE (sutnneX+(2*countX)+1000)>DFREE(0) AND backX<>2 
' I Neue Länge > Diskplatz? 

a(S="Disk-P(atz reichtjnicht ausljDisk wechselnl" 

ALERT 3,alS,1,"OKAY|ABBRUCH",backX 
UEND I Noch einmal versuchen 

IF bsckX<>2 

al$="Bitte neuen Namen für|'ent-REM-mte' Datei angeben I" 
ALERT 1,al$,1,"0KAY",backX 

nochmal; I Uiederholungs-Label 

FILESELECT "\*.LST","",ziel$ I Zieldatei wählen 
IF ziel$>"" I Nicht ABBRUCH geklickt? 

IF Ziels«". LST" I Gültiger Name? 

IF ziel$=quell$ OR EXIST(zielS) 

IF zielS=quellS I Zielname = Quellname? 
alS="'Ouellname' = 'Zielname' Ij" 
al$=al$+"Es wird keine 'BAK'-Datei{angelegtI" 

ENDIF 

IF EXISTCzielS) ! Zielname existiert schon? 

al$="'Datei mit diesem Namen}" 
alS=al$+"existiert bereits!" 

ENDIF 

ALERT 1,al$,1,"0KAY|ZURÜCK",backX 

IF backX=2 I Neuen Zielnamen angeben? 

GOTO nochmal I Dann zurück 

ENDIF 
ENDIF 

OPEN "o",#1, Ziels I Zieldatei öffnen 

I 

' Die folgende FOR..NEXT-Schleife ist in V3.0 durch 
' STORE #1 ,pufferSO,countX 
' zu ersetzen. 


FOR iX=0 TO countX-1 I Alle Pufferzeilen 
IF pufferS(iX)>'"' 

PRINT #1,pufferS(iX) I In Zieldatei schreiben 
ENDIF 

NEXT iX I Nächste Zeile 

I 

CLOSE I Zieldatei schlieBen 

ELSE I Ungültiger Dateiname I 

ALERT 1,"Ungültige Dateibezeichnungl",1,"Nochmal",backX 
GOTO nochmal I Noch einmal von vorn 

ENDIF 

ELSE I ABBRUCH geklickt I 

ALERT 2,"Programm-Abbruch?",1,"OKAY|NEIN",backX 
IF backX=2 I Doch noch überlegt? 

GOTO nochmal ! Dann von vorn 

ENDIF 
ENDIF 
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ENDIF 

ELSE I Quelldatei nicht gefunden I 

IF quellSo'"' I ABBRUCH geklickt? 

ALERT 3,"Datei nicht gefunden I",1,"Return",backX 


ENDIF 

ENDIF 


lt|STORE{RES} DATA-Zeiger setzen 

RESTORE [Labelname] 

RESTORE ohne Angabe einer Marke bewirkt, daß der DATA-Zeiger 
grundsätzlich auf den ersten aller im Programm enthaltenen DATA- 
Einträge gerichtet wird. Durch RESTORE Labelname kann der 
DATA-Zeiger auf das erste DATA gerichtet werden, das auf das an¬ 
gegebene Label folgt. 

Ab dort werden dann die vorhandenen DATAs eingelesen, bis ein 
neuer RESTORE-Befehl eingesetzt wird oder das letzte aller DATAs 
gelesen wurde. Weitere Informationen hierzu finden Sie unter DATA. 


6.4 Variablendeklarationen 


Version 3.0 

DEFBIT { DEFBI > Boole-Variable(n) deklarieren 

DEFBIT Defstring$ 

DEFxxx-Befehle dienen der globalen Deklaration von Variablentypen. 
Es können verschiedene Definitions-Strings verwendet werden, die alle 
Variablen mit der darin angegebenen Namensspezifikation dem ent¬ 
sprechenden Variablentyp zuordnen. 

Diese Deklaration wird üblicherweise zu Programmbeginn ausgeführt, 
da sonst eine Unterscheidung zwischen deklarierten und frei definier¬ 
ten Variablen erschwert wird. Wird jedoch innerhalb des Programms 
eine neue Deklaration ausgeführt, ist die vorhergehende damit ungül¬ 
tig. Nach einer Deklaration ist es nicht mehr nötig, die dadurch be¬ 
troffenen Variablennamen mit einem sogenannten Postfix (Erken¬ 
nungssymbol, z.B. % für 4-Byte-Integer, ! für Boole-Variablen oder $ 
für String-Variablen) zu versehen. 

Es ist trotzdem jederzeit möglich, einzelne Variablen separat zu defi¬ 
nieren, auch wenn sie dieselbe Namensspezifikation wie eine globale 
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Deklaration aufweisen. Dazu ist dem separaten Variablennamen das 
entsprechende Postfix hinzuzufügen. Damit wird die so unmißver¬ 
ständlich gekennzeichnete Variable von der Deklaration ausgeschlos¬ 
sen. Separat gekennzeichnete Variablen haben generell Vorrang vor 
den globalen Deklarationen. 

DefstringS ist ein String (Konstante, Variable oder Ausdruck), durch 
welchen die Namensspezifikation festgelegt wird. Bei den folgenden 
Definitionsbeispielen sind die verwendeten DeftsringS beliebig aus¬ 
tauschbar. 

Definitionen: 


DEFBIT "a" 

Alle Variablen, deren Name als ersten Buchstaben ein a trägt, sind 
hiermit - sofern nicht separat definiert (s.o.) - als Boole-Variablen 
(Var!) deklariert. 


DEFBYT "b.c.g-r 

Alle Variablen, deren Name als erstes Zeichen ein b, c, g, h, i, j, k 
oder 1 trägt, werden als 1-Byte-Integer (Var|) deklariert. 


DEFWRD "ward" 

Alle Variablen, deren Name mit den Buchstaben word beginnt, wer¬ 
den als 2-Byte-Integer (Var&) deklariert. 


DEFINT "il.12,13" 

Alle Variablen, deren Name mit den Buchstaben il, i2 oder i3 be¬ 
ginnt, werden als 4-Byte-Integer (Var%) deklariert. 


DEFFLT "a-c.x-z" 

Alle Variablen, deren Name als ersten Buchstaben ein a, b, c, x, y 
oder z trägt, werden als 8-Byte-Fließkommavariablen (Var#) dekla¬ 
riert. 
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DEFSTR "d-f" 

Alle Variablen, deren Name als ersten Buchstaben ein d, e oder f 
trägt, werden als String-Variablen (Var$) deklariert. 

Beispiel: 

Defint "i" I Alle mit 1 beginnenden Variablen 

' I gelten ab jetzt als 4-Byte-Integer. 

I_string$=''XYZ" I Beliebige Zuweisung zu einer mit 

■ I I beginnenden String-Variable. 

Print I_stringS I Es wird XYZ ausgegeben, da trotz 

' I der vorangegangenen Definition die 

' I direkt angegebene String-Spezifikation 

' I $ gültig bleibt. 

I_Abyte=1548892.88 I Beliebige Zuweisung zu einer mit I 

' I beginnenden Variablen ohne Postfix. 

Print I_Abyte I Es wird 1548892 ausgegeben, übergebene 

' I Nachkomnastellen werden integriert. Die 

' I 4-Byte-Definition kommt zur Geltung. 


Version 3.0 

ilFBYT { DEFB } 1-Byte-Integervariablen deklarieren 

DEFBYT DefstringS 

Siehe Erläuterungen zu DEFBIT. 


Version 3.0 

DEFFLT{defflv i S-Byte-Fließkomniavariablen deklarieren 
DEFFLT DefstringS 

Statt DEFFLT kann im Editor auch DEFSNG oder DEFDBL verwen¬ 
det werden. Diese Angaben werden vom Editor bei der Syntaxkon¬ 
trolle in DEFFLT umgewandelt. Sonst siehe DEFBIT. 


Version 3.0 

DEFINT {DEFI} ' 4-Byte-Integervariablen deklarieren 

DEFINT DefstringS 

Siehe Erläuterungen zu DEFBIT. 
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Version 3.0 

DEFSTR { DEFS } Zeichenkettenvariable(n) deklarieren 

DEFSTR DefstringS 

Siehe Erläuterungen zu DEFBIT. 


Version 3.0 

DEFWRD { DEFW } 2-Byte-Integervariablen deklarieren 

DEFWRD DefstringS 

Siehe Erläuterungen zu DEFBIT. 


6.5 Unterprogramme 

DEFFN Funktion definieren 

DEFFN Funkt.nanne [(Var-Liste)] = Funkt.expr 

DEFFN ist eine sehr komfortable Möglichkeit, numerische oder alpha¬ 
numerische Funktionen kompakt zu definieren. "Funkt.name" steht für 
einen beliebigen Namen, mit welchem die Funktion durch FN (bzw. 
@) angesprochen werden kann, ln der Wahl des Funktionsnamens wer¬ 
den Ihnen keinerlei Einschränkungen auferlegt. Sie können außerdem 
auch BASIC-Befehlsnamen oder Namen schon existierender Variablen 
verwenden. Dies ist möglich, da der Funktionsname untrennbar mit 
der unter ihm definierten Funktion in Bezug steht. Die Verwendung 
von Feld-Variablennamen ist allerdings nicht zulässig. Das erste Zei¬ 
chen kann, anders als bei Variablen, auch eine Ziffer sein. 

Dem Namen kann optional (wahlfrei) eine Liste von Variablennamen 
in Klammern angefügt werden (Var-Liste), deren Inhalte dann inner¬ 
halb der Funktion verarbeitet werden können. Die einzelnen Vari¬ 
ablennamen sind dabei durch Komma voneinander zu trennen. Diese 
Parameterliste kann ohne weiteres Variablen unterschiedlicher Typen 
(Real, Integer, String etc.) beinhalten. Innerhalb der Funktion sind 
dann allerdings nur Operationen erlaubt, die dem verwendeten Funkti¬ 
onstypen entsprechen. D.h., wenn die Funktion als String-Typ dekla¬ 
riert wurde (z.B. DEFFN FunktionS...), können nur String-Operatio¬ 
nen ausgeführt werden. Bei numerischen Funktionstypen können folg¬ 
lich nur numerische Operationen eingesetzt werden. 
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Haben Sie eine Parameterliste vorgesehen, müssen beim Funktions¬ 
aufruf dementsprechend viele und dem jeweiligen Variablentyp ent¬ 
sprechende Werte, Strings, andere Variablen oder Ausdrücke überge¬ 
ben werden. Entsprechen die übergebenen Parametertypen nicht der 
Liste oder werden zuviel, bzw. zuwenig Parameter übergeben, er¬ 
scheint eine Fehlermeldung. 

Die angegebenen Listen-Variablen müssen jedoch nicht zwingend in¬ 
nerhalb der Funktion verwendet werden (Dummy). Andererseits kön¬ 
nen globale Variablen in der Funktion verwendet werden, die nicht in 
der Parameterliste stehen. Bei Aufruf der Funktion werden dann die 
aktuellen Inhalte der darin verwendeten Variablen angenommen und 
weiterverarbeitet. Existiert eine globale Variable mit gleichem Namen 
wie der einer Parameter-Aufnahmevariable, so kommt deren Inhalt 
nicht zur Geltung, da die Listen-Variable innerhalb der Prozedur als 
lokal verarbeitet wird. D.h., sie hat dann ausschließlich den Wert, der 
ihr bei Funktionsaufruf über die Parameterliste zugewiesen wurde und 
nach Rückkehr wieder den vorherigen globalen Inhalt. 

Die Länge einer Funktion wird durch die maximale Eingabezeilen¬ 
länge (256 Zeichen) beschränkt. Reicht dieser Platz nicht aus, um eine 
Funktion komplett zu definieren, können aus einer Funktion heraus 
andere Funktionen aufgerufen werden. Man kann also Funktionen be¬ 
liebig miteinander verketten. Eine Funktion kann demnach ohne wei¬ 
teres ausschließlich aus Funktionsaufrufen und deren Verknüpfungen 
bestehen. 

Funktionen können an jeder beliebigen Stelle des Programms definiert 
sein. Da bei Programmstart alle DEFFNs initialisiert werden, kann 
dies also auch am Programmende geschehen, selbst wenn der Funkti¬ 
onsaufruf FN (bzw. @) vor der Funktion auftritt. Zu Beginn des Pro¬ 
grammlaufs durchsucht der Interpreter den Programmtext nach evtl, 
vorhandenen DEFFNs, und deren Inhalt ist ihm daher vor Ausführung 
der ersten Zeile bereits bekannt. 

Vorsicht: Endlosschleifen, worin sich zwei Funktionen gegenseitig 
aufrufen, können auch durch die Break-Funktion 
<Control/Shift/Alternate> nicht mehr unterbrochen werden. Rekursive 
Aufrufe haben denselben Effekt. 

Beispiele siehe FN, INKEYS und PRINT. 
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FN { @ } Funktion aufrufen 

FN Funktionsname [(Parameterliste)] 

Mit FN bzw. dessen Kürzel @ können selbstdefinierte Funktionen 
aufgerufen werden (in V3.0 auch mehrzeilige FUNCTIONs). Sollen 
Parameter an die Funktion übergeben werden, wird dem Aufruf in 
Klammern eine Parameterliste nachgestellt, innerhalb derer die einzel¬ 
nen Parameter ggfs, durch Kommas voneinander zu trennen sind. Wie 
bei DEFFN erwähnt, ist darauf zu achten, daß diese Angaben den in 
der DEFFN-Var-Liste aufgeführten Variablentypen entsprechen. 

Das Ergebnis einer Funktion kann - wie bei jeder anderen BASIC- 
Funktion auch - über einen Ausgabe-Befehl (PRINT, WRITE, TEXT, 
OUT) ausgegeben, durch eine Zuweisung einer dem Funktionstyp 
entsprechenden Variablen übergeben und in entsprechende Ausdrücke 
oder Bedingungsabfragen integriert werden. 

Beispiel (für Hires und Midres): Es soll der gemeinsame Schwerpunkt 
mehrerer Flächen ermittelt werden. Die einzelnen Flächen sind 
Rechtecke verschiedener Größe, die auf dem Bildschirm plaziert wer¬ 
den können. Die Anzahl der Flächen kann beliebig groß sein. 

Zuerst erscheint ein kleiner Kreis. Dieser stellt den Nullpunkt dar, auf 
den sich anschließend die Koordinatenangaben beziehen. Plazieren Sie 
ihn an einer beliebigen Position und drücken Sie die Maustaste einmal 
kurz. Der Nullpunkt ist fixiert. 

Zu Anfang einer Jeden Rechteckdefinition erscheinen die zum Null¬ 
punkt relativen Koordinaten, sowie die Nummer der aktuellen Fläche. 
Drücken Sie die linke Maustaste, wird die aktuelle Mausposition als 
Ausgangspunkt für die Rechteckbestimmung angenommen. Bestimmen 
Sie nun mit gedrückter Maustaste die Größe der Fläche. An Mauszei¬ 
gerposition werden nun die Breite und die Höhe der Fläche angezeigt. 
Wenn das Rechteck Ihren Vorstellungen entspricht, lassen Sie die- 
Maustaste los und die Fläche wird gezeichnet. 

Mit einem Klick auf die rechte Maustaste beenden Sie die Eingabe 
und der gemeinsame Schwerpunkt der bisher eingegebenen Flächen 
wird gezeichnet und seine zum Nullpunkt relativen X/Y-Koordinaten 
werden angezeigt. Das Programm wartet dann darauf, daß die 
Maustaste nochmals gedrückt wird. Nachdem das getan ist, können Sie 
den nächsten Flächensatz eingeben bzw. das Programm beenden. 
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1Z(.14&721Z114 

-21.20457911171 


Nullplct.(l/e) 


Do 

Cls 
Clear 

YtX=Min(2,3-Xbios(4)) 

DeffiU ,2,2 
Graphmode 3 
Defllne 1,3 
Repeat 

Mouse X0,Y0,K 
Circle X0,Y0,7 
Mstop(X0,Y0,0) 

Circle X0,Y0,7 
Uhtil Mousek 
Graphmode 2 
Defline 1,1 
Circle X0,Y0,7 

Text X0+8,Y0-8,"Nullpkt.{0/0)" 
Pause 20 
Do 

Graphmode 3 
Inc I 
Defline 4 
Repeat 
House X,Y,K 
Text X+1,Y-1,Str$(X-X0)+"/' 
Line 0,Y,639,Y ! 

Line X,0,X,399/Yt% I 

Mstop(X,Y,0) ! 

Text X+1,Y-1,Str$(X-X0)+"/' 
Line 0,Y,639,Y I 

Line X,0,X,399/Yt% ! 

Until Mousek ! 

Repeat ! 

Mouse Xx,Yy,Kk ! 

Box X,Y,Xx,Yy I 

Defline 4 


Großer Schleifenstart 
Screen klar 
Variablen löschen 
Y-Teiler für Midres 
DEFFILL hellgrau 
XOR-Modus 
Dickere Linie 
Schleife für Nullpunkt 
Maus-Status 
Kreis zeichnen 
Auf Mausbewegung warten 
Kreis löschen 

Exit, wenn Maustaste gedrückt 

T ransparentmodus 

Dünne Linie 

Nullpunkt zeichnen 

I und beschriften 

Kleine Klickpause 

Box-Eingabeschleife 

XOR-Modus 

Box-Zähler +1 

Fadenkreuz-Linienmuster 

Linke obere Ecke setzen 

Maus-Status 

■+Str${Y0-Y)+" ("+Str*(0+")" 
Fadenkreuz zeichnen 

II II 

Auf Mausbewegung warten 
'+Str$(Y0-Y)+" ("+Str$(1)+")" 
Fadenkreuz löschen 

II II 

Exit, wenn Maustaste gedrückt 
Box aufziehen 
Maus-Status 


! 
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Line 0,Yy,639,Yy I 

Line Xx,0,Xx,399/Yt* ! 

Text Xx,Yy,Str$(Abs(Xx-X))+"/"+Str*(Abs(Yy-Y)) 

Mstop(Xx,Yy,-1) I 

Line 0,Yy,639,Yy I- Box zeichnen 

Line Xx,0,Xx,399/YtX I 

Text Xx,Yy,Str$(Abs(Xx-X))+"/"+Str$(Abs{Yy-Y)) 


Defline 1 
Box X,Y,Xx,Yy 
Until Kkol 
Exit if Kk=2 
Breite=Abs(Xx-X} 
Hoehe=Ab8(Yy-Y) 

X. diff=Min(X,Xx)-XO 

Y. diff«YO-Max(Y,Yy) 

Graphmode 2 
Pbox ax.lo,aY.lo,9X.ru,aY.ru I 
Line ax.lo,aY.lo, ax.ru,aY.ru I 
Line ax.lo.aY.ru, ax.ru, BY.lo I 
F.laeche=aFlaeche I 

Add Areas,F.laeche I 


I 


Mausknopf <> 1 
Rechte Maustaste gedrückt? 
Boxbreite berechnen 
Boxhöhe berechnen 
NulIpunkt-X-Abstand 
NulIpunkt-Y-Abstand 
T ransparentmodus 
Box zeichnen 
Diagonalkreuz 

H 

Flüche berechnen 
Flächen addieren 


X.halbe=aHalbe(Breite)'«'X.diff I Schwerpunkt-Abstand. 


Y.halbesaHalbe(Hoehe}+Y.diff 
Add An.xn,aMulti(X.halbe) 
Add An.yn,aMulti(Y.halbe) 
Loop 

Graphmode 1 
Sx^An.xn/Areas 
Sy«An.yn/Areas 
Defline 4 

Line 0,Y0-Sy,640,Y0-Sy 
Line X0+Sx,0,X0+Sx,399 
Defline 1,3 
Circle X0+Sx,Y0-Sy,7 
Print At(1,1);"SX : ";Sx 
Print At(1,2);“SY : ••;Sy 
Repeat 
If Mousek 

Al$="Nächste Eingabe? 


I ... zun NulIpunkt 
I X-''Drehmomente" addieren 
I Y-"Drehmomente" addieren 

I Replace-Modus 
I Gesamt schwerpunkt -... 

I ...Abstände berechnen 
I Achsen-Linienmuster 
I Schwerpunkt-Achsen... 

I ...zeichnen 
I Dickere Linie 
I für Schwerpunkt-Kreis 
I X-Abstand ausgeben 
I Y-Abstand ausgeben 
I Auf Mausklick warten 
I Maustaste gedrückt? 


Alert 2,Al$,1,"JA I NE INI ENDE",Antwort 
Endif 

If Antwort=3 I Abbruch? 

Edit I Dann Programnende 

Endif 

Until Antwort=1 I Weiter? 

Loop 

Deffn Flaeche=Hoehe*Breite 

Deffn Halbe{Seite)=Seite/2 

Deffn Multi(H.seite)=H.seite'*F.laeche 

Deffn X.lo=XO+X.diff 

Deffn Y.lo=YO-Hoehe-Y.diff 

Deffn X.ru=XO+X.diff+Breite 

Deffn Y.ru=YO-Y.diff 


Das obige Programm verwendet die folgende Prozedur Mstop, um das 
leidige Flimmern bei bewegten Grafikobjekten zu unterdrücken. Sie 
stoppt dazu einfach die Programmausführung, solange die Maus nicht 
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von der vorgegebenen Position wegbewegt wird oder die angegebene 
Maustaste entweder gedrückt (M.key% = 1 bis 3) oder eine andere als 
die angegebene Maustaste gedrückt wurde (M.key% = -3 bis 0). Das 
eingebaute ON MENU sorgt derweil dafür, daß ggfs, auf ON MENU 
GOSUB-Verzweigungen reagiert wird. So banal die Prozedur wirkt, so 
verblüffend ist ihre Wirkung. Flimmerfreie, bewegte Grafik ist ein 
sehr gefragtes Thema. Es gibt über die XB10S(5)-Funktion bzw. in 
V3.0 auch über RC_COPY noch weitere Möglichkeiten, sie zu ver¬ 
wirklichen. Schauen Sie sich dazu bitte Kapitel 11.2. "Flimmerfreie 
Grafik" an. 


Procedure Hstop(H.xexX,M.yexX,H.keyX) 

' M.xexX « Zu überuachefxle X-Koordinate 
' M.yexX > Zu überwachende Y-Koordinate 
' M.keyX > Zu überwachender Haustasten-Status 
' 1 bis 3 Abbruch, wenn die angegebene 

' Maustaste gedrückt wurde 

' -3 bis 0 Abbruch, wem die angegebene 

' Maustaste nicht gedrückt wird 

If M.keyX=<0 
Repeat 
On menu 

Until MousexoM.xexX Or MouseyoM.yexX Or Mousek<>Abs(M.keyX) 
Else 
Repeat 
On menu 

Until MousexoM.xexX Or MouseyoM.yexX Or Mousek=M.keyX 
Endif 
Return 


Version 3.0 

FUNCTION..RETURN..ENDFUNC 

{ FU..RET.,ENDF } Funktion 

FUNCTION Name [(Var1,Var2%,Var3$,...[,VAR Var,...])] 

... auszuführende Programmteile 
RETURN Back 
ENDFUNC 

FUNCTION kennzeichnet den Anfang einer selbstdefinierten, mehr¬ 
zeiligen Funktion. Es kann eine optionale Liste von lokalen Variablen 
(wie bei DEFFN und PROCEDURE) angegeben werden, welche ggfs, 
die durch FN (bzw. @) übergebenen Daten aufnehmen. Dabei ist 
darauf zu achten, daß die Variablen den übergebenen Parametern 
entsprechen. 

Es ist auch möglich, durch VAR innerhalb dieser Liste Variablen zu 
definieren, an die dann durch FN eine globale Variable direkt überge- 
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ben werden kann (siehe VAR, PROCEDURE). Außerdem ist - wie 
bei PRCXTEDURE - die Übergabe von indirekten Pointer-Parametern 
möglich (siehe auch GOSUB). 

"Name" ist ein beliebiger Name, der die Funktion benennt. Innerhalb 
der FUNCTION kann beliebig viel Programmtext angeordnet werden. 
Im Gegensatz zu DEFFN-Funktionen ist es möglich, FUNCTION- 
Funktionen sich selbst aufrufen zu lassen (Rekursion). 

Grundsätzlich ist eine FUNCTION mit einer PROCEDURE vergleich¬ 
bar. Ein Unterschied ist, daß ENDFUNC (wie RETURN bei PROCE¬ 
DURE) zwar den strukturellen Abschluß einer FUNCTION-Funktion 
bildet, jedoch im Gegensatz zu PROCEDURE...RETURN diese End¬ 
markierung nicht als Rücksprunganweisung interpretiert wird. Aus 
FUNCTION-Funktionen ist nur ein Rücksprung durch RETURN 
Back möglich, was nicht mit dem Prozedurende RETURN verwechseln 
werden darf. 

Trifft das Programm innerhalb einer FUNCTION auf die 
Rücksprunganweisung RETURN Back, wird der hinter RETURN ste¬ 
hende Wert, Ausdruck oder Variableninhalt Back als Funktionsergeb¬ 
nis an das Programm zurückgegeben und zu dem dem Aufruf folgen¬ 
den Befehl gesprungen. Es können beliebig viele RETURN Back-An¬ 
weisungen innerhalb einer FUNCTION angegeben werden (z.B. inner¬ 
halb von IF..ELSEIF..ELSE..ENDIF-Abfragen). Wie auch FN-Aufrufe 
einzeiliger Funktionen (DEFFN) kann ein Aufruf mehrzeiliger 
FUNCTIONS ebenfalls beliebig in Ausdrücke und Bedingungen einge¬ 
bunden bzw. als Variablenzuweisung verwendet werden. 

Soll die Funktion alphanumerische (String-)Ergebnisse liefern, ist dem 
Funktionsnamen ein $ anzuhängen (z.B. FUNCTION NameS). 

Beispiel: 

A$=»1 ** UPPER/LOUER-Test-String ** 1“ 

Print "NORMAL: ";A* 

Print "UPPERS: ";UpperS(AS) 

Print "LOWERS: ";aLower$(AS) 

I 

Function LowerSCL.strS) 

' Untersucht einen vorgegebenen String auf Großbuchstaben. 

' Gefundene Großbuchstaben werden in die entsprechenden 
' Kleinbuchstaben ungewandelt. 

' L.strS = unzuwandeInder String 

I 

Local L.kX 

For L.kX=1 To Len(L.str$) 

Select Mid$(L.strS,L.kX,1) 
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Case "A" To "Z" 

Mid$(L.8tr$,L-k*.1)=Chr*(Asc(Mi(«(L.str*,L.kX,1))+32) 

■ MidS(L.8tr$,L.kX,1)=Chr$(Asc{MidS(L.8tr$,L.kX,1)) Or 32) 

Ca8e "Ä" 

Mi<»(L.8tr$,L.kX,1)=Chr$(A8c(Mid$(L.8tr*,L.kX,1))-10) 

Caae "ö" 

Midt(L.8tr$,L.kX,1)=Chr$(A8c(Midt(L.str$,L.kX,1))-5) 

Caae "ü" 

Nid»(L.8tr$,L.kX,1)=Chr$(A8C(MidS(L.8trS,L.kX,1})-25) 

Endselect 
Next L.kX 
Return L.8tr$ 

Endfunc 

An diesem kleinen Beispiel läßt sich leicht das fast unüberschaubare 
Einsatzgebiet mehrzeiliger Funktionen erkennen. Ihrer Phantasie sind 
da keine Grenzen gesetzt. Hätte Frank Ostrowski die RINSTR-Funk¬ 
tion nicht implementiert, wäre sie hiermit spielend zu verwirklichen. 
Soll hier gleichzeitig der Inhalt von A$ nach Funktionsende gegen den 
Lower-Case-String ausgetauscht werden, muß man dazu nur den 
FUNCTION-Kopf folgendermaßen ändern: 

Function Louer$(Var L.strS) 

Übrigens soll die REM-Zeile Mid$(... im Beispiel einen kleinen Trick 
verdeutlichen. Die beiden MID$()-Zeilen unter "A" To "Z" lassen sich 
beliebig austauschen. Wissenswert ist, daß der einzige Unterschied 
zwischen Groß- und Kleinbuchstaben das Bit 5 (2^5=32) des ASCII- 
Wertes ist. Ist dieses Bit gesetzt, so handelt es sich um 
Kleinbuchstaben (ASCII: 97 - 122). Ist es gelöscht, so sind es folge¬ 
richtig Großbuchstaben (ASCII: 65 - 90). 

Ähnliches gilt für normale Ziffernzeichen (ASCII: 48 - 57) und die 
entsprechenden Digital-Zeichen (ASCII: 16 - 25). 

Beispiel: 


Open "",#1,"VID;" 

Print "Digitalziffern: ";aoigit$(Str$(1234567890)); 

C(o8e 

I 

Function DigittCDigS) 

Local Z.kX 

For Z.kX=1 To Len(DigS) 

Select NidS(Dig$,Z.kX,1) 

Caae "0" To "9" 

Mid$(Dig$,Z.kX,1)=Chr$(Asc(Hid${Dig$,Z.kX,1)) Xor 32) 
Endaelect 
Next Z.kX 
Return DigS 
Endfunc 
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In diesem Fall ist allerdings zu beachten, daß die Ausgabe kleinerer 
ASCII-Werte als 32 nur durch OUT oder VID; (siehe OPEN) möglich 
ist. Da hier der Aufruf-Parameter nicht als Variable, sondern direkt 
als Ausdruck angegeben wurde, ist eine VAR-Aufnahme im FUNC- 
TION-Kopf nicht möglich. 

Viele der hier im Buch gezeigten Utilities und Erweiterungen lassen 
sich auch in einer FUNCTION-Routine realisieren. Ich habe davon 
abgesehen, da ich davon ausgehe, daß bis zum Erscheinen des GFA- 
V3.0-Compilers doch die meisten von Ihnen (und viele auch noch da¬ 
nach) weiterhin überwiegend mit einer der V2.xx-Versionen arbeiten 
werden. Da die Routinen als PROCEDUREs auch ohne weiteres in 
V3.0 lauffähig sind, geht den V3.0-Programmierern dadurch nur sehr 
wenig an Qualität verloren. 


GOSUB { GO oder @ } Verzweigung zu einer PROCEDURE 

In V3.0: { G oder @ } 

GOSUB Prozedur [(Parameterliste)] 

Eine GOSUB-Verzweigung springt aus der GOSUB-Zeile direkt zum 
Kopf der in "Prozedur" bezeichneten PROCEDURE. Ist die Prozedur 
abgearbeitet, wird vom Prozedurende RETURN aus direkt zu der auf 
den entsprechenden GOSUB-Aufruf folgenden Programmzeile zurück¬ 
gesprungen und dort das Programm fortgesetzt. 

GFA-BASIC bietet Ihnen wahlweise auch die Möglichkeit, an eine 
Prozedur eine beliebig lange Parameterliste zu übergeben. Diese Para¬ 
meter werden dort einer Liste von Variablen zugeordnet, die in 
Klammern im Prozedurkopf (z.B. PROCEDURE Test(Var,Var$,...)) 
angegeben sind. Die Anzahl der GOSUB-Parameter bzw. der PROCE- 
DURE-Aufnahmevariablen ist nur durch die maximale Programmzei¬ 
lenlänge von 256 Zeichen begrenzt. 

Typen und Reihenfolge der Parameter in Parameterliste können belie¬ 
big gemischt werden, solange darauf geachtet wird, daß Anzahl, Typ 
und Listenplatz der Parameter mit Anzahl, Typ und Listenplatz der in 
PROCEDURE angegebenen Auf nähme variablen übereinstimmen. 

Durch den Sternchen-Pointer (*Var) können Variablen auch indirekt 
adressiert werden. Das bedeutet, daß ein in der Parameterliste angege¬ 
bener Pointer die Adresse seiner Variablen an die Prozedur übergibt 
und nicht deren Inhalt. Wird nun innerhalb der PROCEDURE der 
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dafür vorgesehenen Aufnahmevariablen ebenfalls durch einen Pointer 
eine Variablenadresse zugewiesen, so finden Sie nach Abschluß in der 
übergebenen Variablen den durch den internen Pointer zugewiesenen 
Wert. 

Beispiel: 

9Reso(*XtX,*YtX) I Globale Adressen übergeben 

Box 0,0,639/XtX,399/YtX I BOX in BiIdschirmgröBe 

Procedure Reso{XptrX,YptrX) I Kopf mit lokalen Variablen 

' Liefert die jeweils notwendigen Auflösungsteiler für X und Y 
' XptrX • Pointer auf eine Integervariable, die nach Abschluß 
' den X-Teiler enthält. 

' Hi res/Midres = 1 ; Lowres = 2 

' YptrX • Pointer auf eine Integervariable, die nach Abschluß 
' den Y-Teiler enthält. 

' Hi res «1; Nidres/Lowres « 2 

•XptrX=2-Sgn(Xbios{Ä)) I X-Teiler zurückgeben 

•YptrX=Hin(2,3-Xbios{4)) I Y-Teiler zurückgeben 

Return 

Die im Prozedurkopf aufgeführten Variablen gelten innerhalb der 
Prozedur als lokale Variablen. D.h., daß die in ihnen enthaltenen 
Werte oder Strings nur innerhalb dieser Prozedur eingesetzt oder ab¬ 
gefragt werden können. Benennen Sie außerhalb dieser Prozedur glo¬ 
bale Variablen mit dem gleichen Namen, so ist das BASIC in der 
Lage, diese von den internen, lokalen Variablen zu unterscheiden. 
Nach Rücksprung aus der Prozedur in das Hauptprogramm werden die 
globalen Inhalte wieder restauriert. 

Zur Bildung des Prozedurnamens sind alle normalen alphanumerischen 
und numerischen Zeichen (A - Z und 0-9) sowie der Tiefstrich 
(Underscore _) und oder Punkt erlaubt. Anders als bei Variablenna¬ 
men kann hier auch eine Ziffer als erstes Zeichen verwendet werden. 

In Version V2.02 braucht nur noch der Prozedurname (evtl, mit Liste) 
angegeben zu werden. @ wird durch den Interpreter selbsttätig er¬ 
gänzt. Aus proc(a%...) wird (a)Proc(A%...). In Version V3.0 ist die An¬ 
gabe von GOSUB oder @ in den meisten Fällen überflüssig. Es wird 
vom Interpreter auch nicht mehr automatisch ergänzt. Sind Verwechs¬ 
lungsmöglichkeiten mit Befehlsnamen möglich (z.B. (©RETURN, 
(©RUN) ist die Angabe von (® allerdings zwingend notwendig. 

Außerdem kann in V3.0 statt eines indirekten Pointer-Parameters 
(*Var) auch die Variable direkt übergeben werden. Dazu muß an ent¬ 
sprechender Stelle in der PROCEDURE-Aufnahmevariablenliste eine 
VAR-Variable gleichen Typs vorgesehen werden (siehe VAR). 
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Ein weiteres GOSUB-Beispiel finden Sie unter PRCKTEDURE. 


GOTO {GOT} Unbedingter Sprung zu einem Label 

GOTO Label 

Dies ist in herkömmlichen BASIC-Dialekten einer der am häufigsten 
verwendeten Befehle. In GFA-BASIC hält sich dagegen seine Verwen¬ 
dung in Grenzen, da in den überwiegenden Fällen durch GOSUB und 
FN der erzielte Effekt wesentlich eleganter erreichbar ist. 

Er bewirkt nichts weiter, als daß das Programm von der Zeile aus, in 
welcher es auf diesen Befehl trifft, zu der Programmzeile verzweigt, 
die mit dem angegebenen Label-Namen markiert ist. Dieses Label 
kann sich aus beliebigen Zeichen zusammensetzen. Genau wie bei 
Prozedurnamen ist es auch möglich, eine Ziffer als erstes Zeichen zu 
verwenden Der Label-Name muß mit einem nachgestellten Doppel¬ 
punkt abgeschlossen werden. Speziell in V2.02 und V3.0 ist hierauf 
besonders zu achten, da sonst das Label als Prozedur-Aufruf interpre¬ 
tiert wird. 


Dasselbe Label kann übrigens auch als Sprungziel für RESTORE Label 
verwendet werden. Sprünge in oder aus FOR..NEXT-Schleifen oder 
PROCEDUREn sind nicht erlaubt. Wird dies versucht, so erscheint 
eine Fehlermeldung. 


Beispiel (FOR..STEP..NEXT 

YtX=Min(2,3-Xbios(4)) 

Clr IX 
I_8tpX=40 
I Startlabel: 
cTr JX 

J_stpX=40/YtX 
J Startlabel: 

BÖx 10+IX,10+JX,10+IX+20. 
Box 12+IX,12+JX,12+IX+16, 
Add JX,J stpX 
If JX<-399/YtX 
Goto J_startlabel 
Endi f 

Add IX.1 StpX 
If IX<=639 
Goto I Startlabel 
Endif 


-Simulation für Hires/Midres); 

I Y'Auflösungsteiler 
I 1. Schleifenzähler klar 
I 1. Schrittweite 
I 1. Start-Label 
I 2. Schleifenzähler klar 
I 2. Schrittweite 
I 2. Start-Label 
1(HJX'i’20 I Grafik... 

16 I ...ausgeben 
I 2.Zähler+2.Schrittweite 
I Innerer Endwert erreicht? 

I Nein, dann wieder von vorn 

I 1.Zähler+1.Schrittweite 
I AuBerer Endwert erreicht? 

I Nein, dann wieder von vorn 
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liCAL { CÖC } Lokale Variablen deklarieren 


LOCAL Loc.var [.Lokale Variablenliste,...] 

Es können innerhalb einer PROCEDURE - in V3.0 auch in einer 
FUNCTION - beliebige Variablen als lokal deklariert werden. Diese 
können dann ausschließlich in der Prozedur verwendet werden, in der 
sie deklariert wurden bzw. in den von dieser Prozedur aufgerufenen 
Unter-Prozeduren Für diese Unter-Prozeduren ist dann die lokale 
Variable der höheren Ebene gleichbedeutend mit globalen Variablen. 

Wird im Hauptprogramm bzw. in Routinen höherer Ebene eine Va¬ 
riable mit gleichem Namen benannt, so ist der Interpreter in der Lage, 
diese von den lokalen Variablen der aktuellen Routine zu unterschei¬ 
den (siehe PROCEDURE). 

Werden mehrere Variablen gleichzeitig deklariert, können sie unter¬ 
schiedlichen Typs sein und sind dann durch Kommata voneinander zu 
trennen. 

pN ... GOSUB Bedingte Verzweigung zu Prozeduren 


ON Wert GOSUB Procl [,Proc2,Proc3,...] 

ON Wert Procl [,Proc2,Proc3,...] (nur V3.0) 

Mit diesem Befehi lassen sich mehrere Prozeduren zu einer Liste zu¬ 
sammenfassen, die dann je nach angegebenem 'Wert’ (numerischer 
Ausdruck, Variable oder Konstante) aufgerufen werden 

Die Entscheidung darüber, zu welcher Prozedur verzweigt werden soll, 
wird nur in Einerschritten ab 1 aufwärts getroffen. Eine Verzweigung 
mit Wert = 0 ist nicht möglich. Die Verzweigung erfolgt also nach fol¬ 
gendem Schema: 

Wert >= 1 < 2 ==> Procl aufrufen 

Wert >= 2 < 3 ==> Proc2 aufrufen 

Wert >= 3 < 4 ==> Proc3 aufrufen 

usw. 

Ist Wert größer als die Anzahl der angegebenen Prozeduren oder Wert 
gleich Null, so wird das Programm ohne Verzweigung in der auf ON 
GOSUB folgenden Programmzeile fortgesetzt. 

Bei sämtlichen ON..GOSUB-Varianten des GFA-BASIC sind nur 
Prozeduren als Ziel erlaubt, die keine Parameterliste erwarten. 
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In V3.0 kann der Befehlsteil GOSUB weggelassen werden. Er wird 
vom Editor selbstständig eingefügt. 

Beispiel: 

On Menu(1)-20 Gosub Top.Clos,Full,Leer,Leer,Leer,Siz.Hov 
Procedure Top 

' MaBnahmen zum Aktualisieren eines Fensters 
Return 

Procedure Clos 

' MaBnahmen zum SchlieBen eines Fensters 
Return 

Procedure Full 

' MaBnahmen zum Dimensionieren eines Fensters auf 

■ gröBtmögliche AusmaBe. 

Return 

Procedure Siz 

' MaBnahmen zur beliebigen Dimensionierung eines Fensters 
Return 

Procedure Mov 

' MaBnahmen zum Bewegen eines Fensters 
Return 

Procedure Leer 

' Dimny-Prozedur ohne Inhalt, die nur dann aufgerufen 
' wird, sobald ein ON..GOSUB-Uert auftritt, der ohne 

■ Auswirkung bleiben soll. In diesem Fall würden bei 

■ den MENUd}-Werten 23, 24 und 25 die slider- und 

' pfeiIbehandelnden Prozeduren aufgerufen werden. Zu 
' Demo-Zwecken sollen diese Operationen hier jedoch 
' unterdrückt werden. 

Return 


ON BREAK [CONT] [GOSUB] Break-Funktion behandeln 

ON BREAK GOSUB Prozedur 
ON BREAK ON BREAK CONT 

Verzweigt im ersten Fall zu der angegebenen Prozedur, falls nach 
Ausführung des Befehls im Programmlauf die Break-Funktion 
<Control><Shift><Alternate> verwendet wird. 

Im zweiten Fall wird die normale Break-Funktion aktiviert. D.h., daß 
Programm wird nach <Control><Shift><Alternate> beendet. 

Die dritte Syntaxform bewirkt, daß das Programm bis zum nächsten 
ON BREAK oder ON BREAK GOSUB bzw. bis zum Programmende 
nicht mehr durch die Break-Funktion unterbrochen werden kann. 
Diese Möglichkeit ist ggfs, sehr vorsichtig zu handhaben, da bei endlos 
verzweigenden Strukturen ein Programmabbruch dann nur noch über 
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speziell vorgesehene Abbruch-Bedingungen oder durch die gefürchtete 
Reset-Taste möglich ist. 

In V3.0 kann der Befehlsteil GOSUB weggelassen werden. Er wird 
vom Editor selbstständig eingefügt. 


Beispiel: 


On break gosub Break I Break-Funktion umleiten 

Print At(1,1);"1. Stufe" 

Print At(1,2);"2. Stufe durch <Control><Shift><Alternate>+<Esc>" 
Do I Endlos-Schleife 

If ExX=1 I 2. Stufe schon erreicht? 

If Inkey$=Chr$(13) I <Return> gedrückt? 

Cls 

Print At(1,1);"3. Stufe" 

Print At(1,2);"Abbruch durch <Control><Shift><Alternate>" 
On break I Break-Funktion wieder einschalten 

Endif 
Endif 


Loop 

Procedure Break I Break-Routine (ist nur 

' I durch Break-Tasten erreichbar) 

If Inkey$=Chr$(27) I Gleichzeitig <Esc> gedrückt? 

ExX=1 I Flag für Stufe 3 setzen 

Cls 

Print At(1,1);"2. Stufe" 

Print At(1,2);"3. Stufe durch <Return>" 

On break cont I Break-Funktion ausschalten 


Endif 


Return 


Procedure {PRO}...RETURN {RET} Prozedur-xitei 

lnV3.0auch: 

lÜB {SU }...ENDSUB {ENDSU} 

Oder: 


IlÖCEDURE {PRO }...ENDPROC {ENDP} 


PROCEDURE Name [(Variablenliste)] 

... auszuführende Programmteile 
RETURN 

Mit PROCEDURE werden in GFA-BASIC Unterprogramme bezeich¬ 
net. Diese können beliebigen Programmtext enthalten und werden 
durch die Rücksprunganweisung RETURN abgeschlossen. Mit RE- 
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TURN kehrt das Programm zu der auf rufenden Programmzeile zurück 
und fährt dort mit der darauffolgenden Programmzeile fort. 

Es ist nicht sehr rationell, bestimmte Programmabläufe, die in immer 
derselben Form mehrfach im Hauptprogramm erforderlich werden, 
immer wieder neu zu formulieren. Dieses Verfahren ist also immer 
dann vorteilhaft, wenn allgemein gehaltene Unterprogramme von 
mehreren Programmstellen aus aufgerufen werden sollen. 

Es kann optional eine Variablenliste lokaler Variablen (siehe LOCAL) 
angegeben werden, welche ggfs, die durch GOSUB übergebenen Daten 
aufnehmen. Die Variablen dieser Liste können unterschiedlichen Typs 
sein, wobei darauf zu achten ist, daß die Variablentypen den überge¬ 
benen Parametertypen entsprechen (bzw. umgekehrt). 

Der Name der Prozedur kann aus beliebigen Zeichen (A - Z) 
und/oder Ziffern (0 - 9), dem Tiefstrich (_) und/oder dem Punkt (.) 
gebildet werden. Anders als bei Variablennamen kann hier auch das 
erste Zeichen aus einer Ziffer bestehen. 

Es ist auch möglich, Prozeduren sich selbst aufrufen zu lassen 
(Rekursion, siehe Beispielprogramm unter FSNEXT()) bzw. aus einer 
Prozedur heraus beliebig weitere Prozeduren aufzurufen. 

Struktur: 



Prograom 

Gosub Procl.> 

weiteres Progrann-. 


I 

I 

Programnende 
Procedura Procl 


j..Unterprogramm 

'--Gosub Proc2->-- 

j..evtl. weiteres Unterprogramm 
Return 


| 1 | 


l!l 

I 

I 


Procedure Proc2 j 

. .<---' 

I..Unterprogramm von 'Procl' 

'--evtl, weitere Sprünge->—. 

Return.<—' 


In Version V3.0 ist es auch möglich, durch VAR innerhalb der Vari¬ 
ablenliste Variablen zu definieren, an die dann durch GOSUB eine 
globale Variable direkt übergeben werden kann (siehe VAR). Außer- 
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dem kann in Version V3.0 statt PROCEDURE auch SUB und statt 
RETURN auch ENDPRCK; oder ENDSUB verwendet werden. Diese 
Ausdrücke werden vom Interpreter in PROCEDURE bzw. RETURN 
umgewandelt. 

Beispiele zu diesen beiden Struktur-Befehlen finden Sie in diesem 
Buch in Hülle und Fülle. Außerdem finden Sie weitere Informationen 
darüber unter FUNCTION, LOCAL und GOSUB. 


Version 3.0 

:liÄR Direkte Variablen-Übergabe 

PROCEDURE Name([Varl,...] VAR Vamamel [,Varname2$,...]) 

FUNCTION Name([Var1,...j VAR Varnamel [,Varname2$,...]) 

Als Alternative zu den in V2.xx ausgiebig genutzten indirekten 
Pointer-Variablen können innerhalb der Kopfzeilen von PROCEDU- 
REs und FUNCTIONS in der Liste der lokalen Aufnahme-Variablen 
mittels VAR auch Variablen direkt an die Prozedur/Funktion überge¬ 
ben werden. Die hinter VAR angegebenen Variablennamen stehen 
dann innerhalb der Prozedur/Funktion stellvertretend für die durch 
GOSUB oder FN übergebenen Variablen. Dabei ist zu beachten, daß 
die VAR-Variablen an letzter Stelle der Variablenliste placiert werden. 
Es werden dann alle Variablennamen, die hinter VAR stehen, als 
VAR-Variablen interpretiert. 

Die VAR-Variable ist tatsächlich mit der globalen Variable identisch, 
sie trägt nur für die Dauer der Prozedur/Funktion den im Kopf ange¬ 
geben Namen. Jede Veränderung der Aufnahmevariablen innerhalb 
der Prozedur wirkt sich also direkt auf die übergebene globale Va¬ 
riable aus. 

Inhalte globaler Variablen, die denselben Namen wie die Aufnahme¬ 
variable tragen, bleiben erhalten. Der prozedur-/funktionsinterne 
Name hat also bis zum Rücksprung in das Hauptprogramm lokalen 
Charakter. Die gleichnamige globale Variable ist jedoch innerhalb der 
Routine nicht verfügbar. Nach Rücksprung zum Hauptprogramm 
(bzw. zur nächsthöheren Ebene) wird dann der globale Inhalt wieder 
restauriert. 

Es ist dabei zu beachten, daß die beiden korrespondierenden Vari¬ 
ablennamen dem gleichen Typ angehören. Ist das nicht der Fall oder 
wird eine Konstante oder ein Ausdruck als Parameter übergeben, er¬ 
scheint die Fehlermeldung "Falsche VAR-Type". 
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Beipiele hierzu finden Sie in der Prozedur Pread unter der Beschrei¬ 
bung zu DATA, sowie in der Prozedur Astring unter der Beschreibung 


zu INSTR. 


6.6 Assemler-/C-/PRG-Programmaufrufe 


ClQ Maschinenprogramm (C-compiliert) aufrufen 

Var=C:Adressvar [(Parameterliste)] 

Es ist in "Adressvar" die Adresse einer Maschinenroutine und - optio¬ 
nal - eine Liste numerischer Parameter in Klammern zu übergeben. 
Die Übergabe erfolgt nach üblichen C-Konventionen auf dem Stack. 
Sollen 32-Bit-Parameter übergeben werden, ist dem jeweiligen Para¬ 
meter das Kürzel ’L:’ voranzustellen. Sonst gilt das Word-Format (16 
Bit). 

Beispiel: 

VOID C:(L:Para1X,Para2X,U:Para3X,L:Para4X) 
erzeugt folgenden Stack: 


run: 
move.l 

(sp),rcturn 

; = Rücksprungadresse 

move.l 

4(sp),parat 

; = 1. Parameter ParaIX (Long) 

move 

8(sp),para2 

; = 2. Parameter Para2X (Word) 

move 

10(sp),para3 

; = 3. Parameter Para3X (Word) 

... etc. 

... Maschinenprograim 
rts 

; Nur RTS verwenden 1I 


Sind keine Parameter zu übergeben, ist eine Leerklammer () zu ver¬ 
wenden. Nach Rückkehr kann der Inhalt von DO (wie in C) entweder 
direkt ausgegeben (PRINT C:Var()), einer Variablen übergeben 
(A%=C:Var()) oder in Bedingungsabfragen eingebunden werden (IF 
CVarO). 
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CALL { CA } Maschinenprogramm (assembliert) aufrufen 

|lny3.0:{CAL} 

CALL Adressvar [(Parameterliste)] 

"Adressvar" enthält die Adresse der aufzurufenden Maschinenroutine 
(beachte DIM-Vermerk). "Parameterliste" enthält, durch Kommata ge¬ 
trennt, die evtl, zu übergebenden Parameter. Diese können beliebigen 
Typs sein, vv-erden jedoch alle als 32-Bit-Werte interpretiert. Das Ma¬ 
schinenprogramm empfängt auf dem Stack der Reihe nach die 
Rücksprungadresse, einen 16-Bit-Wert, der die Parameteranzahl ent¬ 
hält, sowie eine 32-Bit-Adresse, ab welcher die Parameter im 32-Bit- 
Format aufeinanderfolgend vom BASIC abgelegt wurden. String-Para¬ 
meter werden hier vom BASIC mit deren Anfangsadresse übergeben. 

In den V2.xx-Versionen steckt hier ein kleiner BASIC-Fehler. Um die 
Parameter korrekt auf dem Stack zu erhalten, muß als letzter Parame¬ 
ter ein Null-Word angehängt werden. In V3.0 ist diese Maßnahme 
nicht mehr nötig, aber auch nicht schädlich. Bei V2.xx-V3.0-Anpas- 
sungen kann dieses Nullword ggfs, im Aufruf stehengelassen werden. 

Beispiel: 

' CALL ProgX(17,"Para'',AX,B$,*VarX,0) I V2.xx-Aufruf 
CALL ProgX(17,"Para",AX,B$,»VarX) I V3.0-Aufruf 


erzeugt folgenden Stack: 


run: 
move.l 

(sp),return 

move 

4(sp),anzahl 

move.l 

6(sp),adress 

move.l 

adress,a1 

move 

(a1),para1 

move 

4(a1),para2 


... etc. 

... Haschinenprogranm 
rts 


= Rücksprungadresse 
s 5 Parameter 

= Zeiger auf Parameterblock 
= Zeiger nach a1 
= Parameter 1 in para1 
= Parameter 2 in para2 


; Nur RTS verwenden! 


Beispiel: 

Die folgende Routine scrollt einen beliebigen Bildschirmausschnitt in 
horizontaler Richtung. Vor der ersten Benutzung der Scroll-Routine 
braucht nur einmal die Initial-Prozedur Psc aufgerufen werden. Diese 
liest den Maschinen-Code ein und liefert der BASIC-Scroll-Routine 
die nötigen Adressen in globalen Variablen. 
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Anschließend kann ohne weitere Vorbereitung jederzeit die Scroll- 
Routine mit variablen Parametern angesprungen werden. Im Farbmo- 
dus ist die Routine leider nicht einsetzbar, da der Anschnitt durchge¬ 
hend wordweise gescrollt wird. Da im Farbbetrieb jedoch die Farbe- 
benen immer "zwischen" den Bildschirm-Words liegen, kommen hier 
die Ausschnittkoordinaten und Farben durcheinander. 

SPsc I Routine initialisieren 

Pbox 0,0,639,399 
DeffiU ,3,10 
Pbox 15,120,624,165 

Text 32,150,String$(31,''*")+'’scroU-demo"+String$(30,"*“) 
aScrolU16,120,624,165,-1) I Aufruf 

Procedure ScroU(Sc_xlX,Sc_yoX,Sc_xrX,Sc_yUX,Sc_8bX) 

I Kup füp üjpes •**•** 

' Sc_xlX, Sc_ylX, Sc_xrX, Sc_yuX 

' “ Koordinaten des Ausschnitts. Die Angabe der 

' X-Koordinaten ist nur mit durch 16 teilbaren 

■ Werten sinnvoll. 

' Sc_abX = Gibt an, um wieviel der Ausschnitt jeweils 

■ nach links verschoben werden soll. 

' Vorsicht bei hohen Sc_abX-Uerten! Das Scrolling läBt sich 
' auch durch <Control/Shift/Alternate> nicht unterbrechen 
Local Sc_lnX 

Sc_lnX=C:Sc_ad1X(Sc_xlX,Sc_yoX,Sc_xrX,Sc_yuX) I Breite ermitteln 
If Sc_abX>0 I Abgleich gröBer 07 

Hidem I Maus aus 

Call Sc_ad2X(Sc_lnX,Sc_abX,0)! Scrolling 

Showm I Maus an 

Endif 
Return 

Procedure Psc 

' Scrollinit-Routine. 

Local Sc_iX,Sc_a* 

Restore Sc_rolT.datas I DATA-Label setzen 

Void Fre(O) I Garbage-Collection 

For Sc_iX=1 To 74 I 74 DATAs 

Read Sc_a$ I lesen 

Sc_rt$=Sc_rt$+Mki${Val(''&H"+Sc_a$)) I In Puffer schreiben 
Next Sc_iX 

Sc_ad1X=Varptr(Sc_rt$} I Startadresse des Init-Progranms 

Sc_ad2X=Sc_ad1X+86 I Startsdresse des Scroll-Programms 

Sc roll.datas: 

Data 3f3c,3,4e4e,548f,2040,43fa,4a,302f,8,e848,322f,4,e849 
Data 9041,e349,44c1,diel,3200,640,6fff,3340,20,e349,3341,26 
Data 302f,6,c0fc,50,dIcO,2348,14,302f,a,906f,6,5340,3340,1a 
Data 3001,e748,44c0,4e75,226f,6,2429,4,5382,2629,8,51cb,fffe 
Data 207c,7,8000,323c,a,3010,e350,7027,d1fc,0,50,e5e0,51c8 
Data fffc,d1fc,0,50,51c9,ffe6,51ca,ffd0,4e75 
Return 
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EXEC { EXE } .PRG/.TOS/.TTP-Programm laden/starten 

EXEC Modus,"Prg","Korn","Env" -> als Befehl 

Var=EXEC(Modus,"Prg","Koin","Env") -> als Funktion 

Modus: 

0 = Program laden u. starten 

3 = Prograom laden und Basepage liefern 

4 = Progranm starten 

(in Kom als MKL-String Basepage angeben Prg u. Env = 

Aus einem GFA-BASIC-Programm heraus können Desktop-Pro- 
gramme geladen, reloziert und gestartet werden. Grundsätzlich tut der 
Befehl EXEC 0,... nichts anderes, als ein beliebiges Programm-File in 
den nächstmöglichen freien Speicher zu laden, es zu relozieren und 
gleichzeitig zu starten. Das ist ausschließlich mit kompletten PRG-, 
TOS- oder TTP-Programmen möglich, da diese eine eigene Speicher¬ 
verwaltung beinhalten, bzw. der Programm-Header vom System für 
einen korrekten Programmstart verwendet werden kann. 

Nach Ende des aufgerufenen Programms kehrt das System nicht zum 
Desktop, sondern zu aufrufenden BASIC-programm zurück, das in der 
Zwischenzeit unverändert im Speicher auf den Rücksprung gewartet 
hat. Das aufrufende Programm bleibt also resident. 

Soll ein Programm nur geladen werden, muß dazu ’Var=EXEC(3,...)’ 
verwendet werden, da nur so die Startadresse des Maschinen-Codes 
(Var+256) ermittelt werden kann. Der Code ist dann reloziert und 
kann durch C: oder CALL aufgerufen werden. Bei C-compilierten 
Programmen ist zu beachten, daß der geladenen Code 256 Bytes hinter 
der in Var gelieferten Adresse beginnt. Dies muß also auch die Ein¬ 
sprungsadresse des Programms sein. Evtl, vorgelinkte C-Header wür¬ 
den also zum Chaos führen. 

Die erste Syntaxform (als Befehl) ist mit Modus = 0 nur dann sinnvoll, 
wenn kein Rückgabewert vom aufgerufenen Programm erwartet wird. 
Andernfalls kann mit der zweiten Form (als Funktion) und Modus = 0 
(Var=EXEC(0,...) ein Wert vom aufgerufenen Programm empfangen 
werden. Dieser Wert muß vor Rückkehr vom aufgerufenenen Pro¬ 
gramm in DO abgelegt worden sein. In Version V3.0 kann durch QUIT 
oder SYSTEM optional ein Rückgabewert angegeben werden. Dieser 
wird vom BASIC in DO abgelegt und kann nach Rückkehr vom auf¬ 
rufenden Programm ausgewertet werden. 
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Konnte EXEC aus irgendwelchen Gründen nicht ausgeführt werden 
(Speicher voll, Datei nicht gefunden) erhält man als Rückgabe die 
entsprechende Fehlernummer. Bei Modus = 3 ist nur die zweite Form 
sinnvoll, da die Basepage-Adresse (siehe Basepage) des geladenen Pro¬ 
gramms nur so in Erfahrung gebracht werden kann. 

Vor Ausführung ist genügend Speicherplatz durch RESERVE freizu¬ 
machen, da EXEC nur in noch nicht allozierte Bereiche lädt. Bei 
EXEC 0,... wird die Freigabe des vom Programm belegten Speichers 
vor Rücksprung automatisch durchgeführt und er kann dann durch 
RESERVE weiterverwaltet werden. Bei EXEC 3,... (als Befehl) ist die 
Speicher-Restauration dagegen völlig unmöglich, da keine Adresse be¬ 
kannt ist, die durch MSHRINK() oder MFREE() freigegeben werden 
könnte. Die Funktion Var=EXEC(3,...) läßt dagegen eine Restauration 
anhand der in Var gelieferten Adresse zu. Wird das Programm nicht 
mehr benötigt, kann der davon belegte Speicher durch die GEMDOS- 
Funktion 73 (siehe MFREE()) oder in V3.0 durch MFREE(Var) wie¬ 
der freigegeben werden. 

Prg enthält den vollständigen Namen des zu ladenden Programms 
(inkl. Pfad, siehe unter 5.4 "Diskettenoperationen"). 

Kom enthält eine evtl, zu übergebende Kommandozeile, die (unter 
GFA-BASIC) in der zweiten Hälfte der Basepage des aufgerufenen 
Programms abgelegt wird (ab Basepage+128). Nach Standard-Konven¬ 
tionen enthält dabei das erste Byte der Kommandozeile deren Länge. 
Der Inhalt der Kommandozeile unterliegt keiner Konvention. Es kön¬ 
nen hier beliebige Informationen an das aufgerufene Programm über¬ 
geben werden (Dateinamen, Werte, Strings). 

Env ist der Environment-String (siehe SHEL_ENVRN), der nach 
Standard-Konventionen durch je ein Null-Byte getrennte Informtionen 
enthält. Abgeschlossen wird dieser String durch ein doppeltes Null- 
Byte, was GFA-BASIC automatisch erledigt. Die Startadresse dieses 
Strings kann im geladenen Programm aus BASEPAGE+44 ausgelesen 
werden. 

Soll Kom oder Env nicht übergeben werden, kann dafür ein Leer- 
String ("") verwendet werden. Nicht ausführbar sind z.B. speicherresi¬ 
dente Programme wie SID oder der SEKA-Assembler oder alle Pro¬ 
gramme, die in irgendeiner Form "Batches" verwenden. 
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Beispiele: 

Reserve 1000 I Kleiner Restspeicher 

Exec 0,"GFABASIC.PRG'',"Basprog.Bas","" I BASIC starten 
Reserve Xbios(2)-16384-Himen»+Fre(0) I Speicher restaurieren 
■ in V3.0 einfacher: RESERVE 
...weiter im Programm 


Reserve 1000 I Kleiner Restspeicher 

Back*=Exec(0,"Programm.Prg",I Programm starten und 
' I Rückgabewert liefern 

Reserve Xbios(2)-1638A-HimeiiH-Fre(0) I Speicher restaurieren 

' in V3.0 einfacher: RESERVE 

Print BackX I Rückgabewert ausgeben 

...weiter im Programm 


Reserve 1000 I 
AdrsX=Exec(3,"Programm.Prg",,"") I 

RoutX=AdrsX+256 I 
Back1X=Void C:RoutX(Var1,Var2) I 
Back2X=Void C:RoutX(Var3,Var4) I 
Print Back1X"Back2X I 
Void Gemdos(73,L:AdrsX) I 
' ln V3.0 einfacher: ’MFREEfAdrsX) 


Reserve Xbios(2)-16384-Himem*Fre(0) ! 
' In V3.0 einfacher: RESERVE 
_weiter im Programm 


Kleiner Restspeicher 
Programm laden und 
Basepage-Adresse liefern 
Code-Start berechnen 
Programm aufrufen 
Programm nochmal aufrufen 
Rückgabewerte ausgeben 
MFREE-Reallocation 

Speicher restaurieren 


MONITOR { MON } Maschinen-Programm aufrufen 

lnV3.0:{M} 

MONITOR [(Parameter)] 

Parameter enthält optional einen Übergabewert, der in DO an die auf¬ 
gerufene Routine geliefert wird. In den V2.xx-Versionen wird in AO 
zusätzlich die Adresse einer 32-Byte-Tabelle (8 Longwords) überge¬ 
ben, die auf die Speicherbereiche der verschiedenen Variablenarten 
zeigt (siehe TYPE). Diese Übergabe findet in V3.0 nicht mehr statt! 

Der Befehl MONITOR erzeugt ganz banal eine Illegal Instruction-Ex- 
ception. Dies ist ein Systemfehler, der immer dann auftritt, wenn in 
einem Maschinenprogramm versucht wird, einen Befehl auszuführen, 
den der ST nicht kennt. Das passiert meist dann, wenn der PC (Pro- 
gramCounter = CPU-Zeiger auf nächste auszuführende Adresse) auf¬ 
grund eines Programmfehlers in die Wüste zeigt. Im Normalfall würde 
das einen 4-Bomben-Absturz (mit folgendem Reset) nach sich ziehen, 
da das System standardmäßig in der gesamten Exception-Sprungtabelle 
(8 Longwords ab Adresse 8) immer denselben Zeiger stehen hat. Die¬ 
ser zeigt auf eine Maschinenroutine, die die berühmten Bömbchen 
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"malt" und zwar je nach Exception 2 bis 9 Bomben "in a row". GFA- 
BASIC fängt diese Bombenwürfe ab, indem es in die Zeiger-Tabelle 
eigene Zeiger einträgt. Und zwar zeigen diese dann auf eine Routine, 
die eine entsprechende Alert-Box erzeugt und dann in das BASIC zu¬ 
rückspringt. 


LPEEK(8) = 
LPEEK(12) = 
LPEEK(16) = 
LPEEK(20) = 
LPEEK(24) » 
LPEEK(28) > 
LPEEK(32) > 
LPEEK(36) > 


Adresse der Busfehler-Routine 
Adresse der AdreBfehler-Routine 
Adresse der II legal-Routine 
Adresse der Nulldivision-Routine 
Adresse der CHK-Routine 
Adresse der TRAPV-Routine 
Adresse der PRIVILEG-Routine 
Adresse der TRACE-Routine 


Die Idee hinter MONITOR ist nun die, daß erstens in GFA-BASIC 
eine Illegal-Instruction-Exception unter normalen Umständen unmög¬ 
lich ist und zweitens, daß verschiedene Programme (z.B. SID oder 
TEMPLMON) ebenfalls die Bomben abfangen und die Exceptions 
dann dazu verwenden, in den Debugger, Disassembler, Maschinen- 
Monitor oder ähnliches zu springen. In diesem Fall hat das den Vor¬ 
teil, daß man dem aufgetretenen Fehler auf Maschinenebene sofort 
nachspüren kann. 


Aus all dem folgt, daß man natürlich auch vom BASIC aus diesen 
Zeiger auf eine eigene Maschinenroutine "verbiegen" kann. Voraus¬ 
setzung für diese komfortable Art des Maschinenprogramm-Aufrufs 
ist: 

a. daß der Illegal-Instruction-Vector (Exception-Vektor 4) auf die 
Adresse der eigenen Routine gerichtet wird. 

b. daß die Routine nicht durch BASIC-Aktionen verschoben wird. 

c. daß das HI-Byte des Hl-Words (MSB) des Vektors vor BASIC- 
Start 0 ist (standardmäßig immer der Fall). 

d. und daß die aufgerufene Routine - statt mit RTS - mit RTE zu 
enden hat. 

Die erste Bedingung ist ganz einfach zu erfüllen, indem man durch 
SLPOKE 16,Adresse die Start-Adresse der eigenen Routine in den 
Exception-Vektor einträgt. 

Das macht natürlich nur dann Sinn, wenn ab "Adresse" auch ein Ma¬ 
schinenprogramm zu finden ist.. Damit sind wir bei der zweiten Bedin¬ 
gung, die schon nicht mehr ganz so einfach zu erfüllen ist. Die ge¬ 
bräuchlichste Variante ist, daß das Programm in einem String-Puffer 
untergebracht wird. Das hat den Nachteil, daß String- und Feldadres- 
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sen in GFA-BASIC durch DIM und ERASE verschoben werden kön¬ 
nen, wodurch die im Vektor eingetragene Adresse nicht mehr stimmt. 
Sicherer ist es, ein entsprechend großes Integerfeld einzurichten und 
dann die Routine ab VARPTR(Feld%(0)) zu installieren. In beiden 
Fällen muß der ursprüngliche Vektorinhalt zwischengespeichert wer¬ 
den, um ihn vor Verlassen des BASIC-Programms bzw. des Compilats 
wieder restaurieren zu können. 

Die eleganteste Lösung besteht allerdings darin, vor BASIC-Start bzw. 
vor Start des Compilats einen ausreichenden Speicherbereich zu reser¬ 
vieren und durch KEEP PROCESS (GEMDOS-Funktion) resident zu 
halten. Wie das funktioniert, können Sie unter VST_LOADFONT() 
nachlesen. Nachdem dies geschehen ist, kann vom Desktop aus das 
BASIC oder Compilat gestartet und von dort aus beliebig über den 
reservierten Speicher verfügt werden. In diesem Fall kommt es auf die 
Konzeption der auszuführenden Maschinenroutine an, ob der Vektor 
restauriert werden muß oder nicht. 

Um nicht nach Reservierung wieder zum Desktop zurückkehren zu 
müssen, kann auch aus dem Speicher-Reservierungsprogramm heraus 
durch die GEMDOS-Funktion $4B EXEC das BASIC oder Ihr Com¬ 
pilat gestartet werden. 

Wie die Bedingungen c und d zu erfüllen sind, ergibt sich aus der Be¬ 
dingungsstellung selbst. 

Weitere Informationen zum Thema Exceptions bzw. MONITOR finden 
Sie z.B. in der Zeitschrift c’t, Ausgabe 12/86 oder in "GFA-BASIC 
Tips & Tricks" von Data Becker. 

Haben Sie keine der genannten Vorarbeiten ausgeführt und rufen ohne 
weitere Vorbereitung MONITOR auf, passiert nichts anderes, als daß 
die BASIC-Fehlermeldung "4 Bomben - Illegal Instruction" erzeugt 
wird und danach entweder zum Editor, Desktop oder in eine BASIC- 
Abfangroutine (siehe ON ERROR) verzweigt wird. 

Die andere, oben schon angedeutete Möglichkeit, den MONITOR-Be- 
fehl zu nutzen, besteht darin, den GFA-BASIC-Interpreter bzw. ein 
GFA-compiliertes Programm von einem residenten Maschinen-Moni- 
tor aus zu starten. Die Voraussetzung ist hier, daß System-Fehler von 
diesem Monitor sinnvoll abgefangen werden. Sinnvoll heißt in diesem 
Fall, daß man nach Auftreten eines Errors dessen Ursache vom Mo¬ 
nitor bzw. Debugger aus erforschen und nach erfolgter Reparatur das 
unterbrochene Programm fortsetzen kann. 
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Es gibt nun verschiedene Ausführungen solcher Debugger. Die be¬ 
kanntesten und wohl auch verbreitetsten sind der Digital-Research- 
Debugger SID und der Tempelmann-Debugger TEMPLMON. Speziell 
zur Nutzung des MONITOR-Befehls müssen diese Monitore den er¬ 
wähnten Illegal-Instruction-Vector entsprechend verbogen haben. 

Wollen Sie den SID verwenden, starten Sie ihn wie gewohnt durch 
Anklicken des Desktop-Icons. E>abei ist darauf zu achten, daß der SID 
die Extension PRG trägt, da sonst GEM-Anwendungen nicht korrekt 
ausgeführt werden können (ggfs, ändern). Legen Sie nun die BASIC- 
Programm-Diskette ein. 

e gfabasic.prg - Lädt den BASIC-Interpreter 

g - startet den Interpreter 

Beim ersten Eintritt in den Interpreter wird eine Fehlermeldung aus¬ 
gegeben, die ignoriert werden kann. Sie ist ohne Auswirkung auf die 
Arbeit des Interpreters. 

Dasselbe Verfahren ist mit compilierten Programmen möglich, wobei 
diese allerdings mit der Bomben-Abfang-Option compiliert worden 
sein müssen und zu Beginn eine ON ERROR GOSUB-Verzweigung 
vorsehen, da sonst aufgrund der anfänglichen Fehlermeldung das Pro¬ 
gramm umgehend beendet wäre. 

Tritt nun während Ihrer Arbeit mit dem Interpreter oder während des 
Programmverlaufs ein Error auf, wird keine Error-Meldung ausgege¬ 
ben, sondern das System springt zur SID-Eingabe-Ebene zurück. Von 
hier aus können Sie jetzt die Optionen des SID zur eigenen Fehlerbe¬ 
handlung und -Verfolgung nutzen (das D in SID steht für Debugger; 
debugging = engl.: entwanzen, Fehler ausmerzen). Die Eingabe von g 
setzt dann die Interpreterarbeit bzw. Ihr Programm fort. 

Möchten Sie den Monitor direkt aufrufen, geschieht das eben durch 
den Befehl MONITOR. Sie gelangen dann durch die dadurch ausgelö¬ 
ste Illegal-Exception ebenfalls in die Eingabe-Ebene des SID. Bevor 
Sie jedoch nun zum Interpreter bzw. Programm zurückkehren können, 
muß vorher durch Eingabe von xpc im SID der Stand des Programm¬ 
zählers (PC = Program-Counter) angefordert werden. Es wird nun der 
Inhalt des PC’s auf dem Bildschirm ausgegeben und der SID wartet 
auf die Eingabe eines neuen PC-Inhalts. Zählen Sie zum ausgegebenen 
PC-Stand den Wert 2 hinzu und geben Sie den neuen Wert ein. Wenn 
Sie jetzt <RETURN> drücken, übernimmt der SID diesen Wert in den 
PC und kehrt zu seiner Kommando-Ebene zurück. Nachdem das voll- 
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bracht ist, können Sie wieder durch den Befehl g (Abk. für go) den 
Interpreter bzw. Ihr Programm aufrufen. 

Einige Befehle des SID; 


e Programmname 

Programm laden (e = Abk. f. Execute). 


g 

Aktuelles Programm starten. 


X 

Anzeige sämtlicher CPU-Register. 


X Register 

Einzelregister zeigen und Änderung abwarten. Beispiele; 


xs = 

stack 

(ST) 

xss = 

Superstack-PointertSsp) 

XUS = 

Userstack-Pointer (USP) 

xaO 2 

AdreBregister 0 

(AO) 

xd4 = 

Datenregister 4 

(D4) 


usw. 



d Adresse 

Speicher ab Adresse in Bytes zeigen. 


dw Adresse 

Speicher ab Adresse in Words zeigen. 


dl Adresse 

Speicher ab Adresse in Longs zeigen. Beispiel: dlb0ef2. 


/ Adresse 

Ab Adresse disassemblieren. 
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l 

Nächsten Block disassemblieren. 


5 Adresse 

Byte ab Adresse zeigen und Änderung abwarten. 


sw Adresse 

Word ab Adresse zeigen und Änderung abwarten. 


sl Adresse 

Longword ab Adresse zeigen und Änderung abwarten. 

Wird bei den Befehlen s, sw, sl <Return> gedrückt, ohne den Wert 
verändert zu haben, bleibt der alte Adresseninhalt bestehen und die 
nächste Adresse wird im gewünschten Format angezeigt. Zur Kom¬ 
mando-Ebene gelangt man wieder, indem man <Tab> <Return> 
drückt. 

Eine nähere Beschreibung des TEMPLMON-Monitors (Public-Do- 
main) entfällt hier, da dieser intern über eine ausführliche Bedie¬ 
nungsanleitung verfügt (<?> <Return> drücken). Dieser Monitor ist 
sehr empfehlenswert und kann gegen eine geringe Kostenbeteiligung 
(evtl, vorher erkundigen) mitsamt ausführlicher Bedienungsanleitung 
inkl. Tips und Tricks von Thomas Tempelmann, E.L.Kirchner Strasse 
25, 2900 Oldenburg bezogen werden. Er wird im Auto-Ordner gestar¬ 
tet und ist dann jederzeit durch die Tastenkombination <Alternate>- 
<Help> verfügbar. 


Version 3.0 

RCALL { RC } Masch.-Programmaufruf m. Registerzugriff 

RCALL Adresse,Feld%0 

Ruft ein ab "Adresse" liegendes Maschinenprogramm auf. Dabei kann 
der Name eines 32-Bit-Integer-Arrays (mind. 16 Elemente) übergeben 
werden, in dem vor Aufruf beliebige Longwords abgelegt werden 
können. Die Inhalte der ersten 15 Elemente dieses Feldes (OPTION 
BASE beachten) werden vor Ausführung der Routine folgendermaßen 
in die CPU-Register kopiert (bei OPTION BASE 0): 
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FeldX(O) bis FelcR(7) --> dO bis d7 
FeldX(8) bis Feld%(14) --> aO bis b6 


Nach Abschluß der Routine (mit RTS) werden die Registerinhalte in 
der gleichen Reihenfolge wieder in das Feld zurückgeschrieben. Zu¬ 
sätzlich erhält man in Feld%(15) (bei OPTION BASE 0, sonst in 
Feld%(16)) den aktuellen Userstack-Pointer (SP = a7 - nur Rück¬ 
gabe!). 


Beispiel (BMOVE-Simulation): Dieses Beispiel dient nur als Demon¬ 
stration und erfüllt keine höheren Ansprüche. Bei Angabe der Adres¬ 
sen wird nicht auf zulässige Bereiche oder gerade Adressen geprüft. 
Die Byte-Anzahl kann beliebig bestimmt werden, es wird jedoch im¬ 
mer in Longword-Schritten kopiert, was bei String-Puffern ggfs, dazu 
führen kann, daß der Backtrailer überschrieben wird und das System 
abstürzt. Die Angabe von 14 oder 16 Bytes ist gleichbedeutend, da 14 
nicht durch 4 teilbar ist. 


Dirn RegX(16) 

Rout$=Mkl$($60000006) 

Rout$°Rout$+Mki$(S2208) 

Rout$=Rout$+Hki$($S881) 

Rout$=Ro<Jt$+Mki$($B280) 

Rout$=Rout$+Mkl$($6D00FFF8) 

Rout$=Rout$+Mki$($4E75) 

*Fre(0) 

StaX=V;Rout$ 

Pbox 100,100,220,120 

A$»Space$(32000) 

RegX(0)=32000 

RegX(1>=0 

RegX(8)=Xbios(2) 

RegX(9)=V:AS 

Rcall StaX,RegX() 

Cls 

Sput A$ 


DIH RCALL-Register 
bra (PC)+6 

move.l (a0)+1,(a1)+1 
addq.l #4,dl 

cmp.l d0,d1 

blt (PC)-8 

rts 

Garbage Collection 
Startadresse der Routine 
Grafik ausgeben 
Zielpuffer einrichten 
Byte-Anzahl (durch 4 teilbar) 
Zähler dl löschen 
Quelladresse (gerade) 
Zieladresse (gerade) 
RCALL-Aufruf 
Bildschirm löschen 
Zielpuffer zeigen 


Es ist Übrigens interessant, daß die Routine nicht funktioniert bzw. 
sogar abstürzen kann, wenn die DIM-Anweisung im Programm hinter 
der Zeile Sta%=V:Rout$ stehen würde. Das hat den Grund, daß durch 
DIMs die Adressenlage von String-Variablen und Feldern verschoben 
werden kann, so daß ein vorher ermittelter VARPTR ins Leere zeigt. 
Grundsätzlich ist es daher ratsam, VARPTR-Aufrufe unmittelbar vor 
der Adressverwendung einzusetzen (evtl, vorher FRE(O) auf rufen). 

Beachten Sie auch, daß statt der V2.xx-Hexwertangabe &H in V3.0 
auch $ verwendet werden kann. So angegebene Hexawerte werden 
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vom Interpreter in &H umgewandelt. Ebenso verhält es sich mit 
Binärwerten. Statt der V2.xx-Variante &X kann hier % eingesetzt 
werden. 
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7. Textoperationen 


7.1 String-Manipulationen 


MID$0 = Teil-String zuweisen 

lnV3.0:{MI)= } 

MID$(Ziel$,Start [,Anz])='Text'' 

Ziels gibt eine String-Variable an, in die "Text" ab Start eingesetzt 
werden soll. Anz gibt optional die Anzahl der Zeichen von Text an, 
die maximal in ZielS eingesetzt werden sollen. Die ursprüngliche 
Länge von Ziel$ bleibt unverändert. Es werden max. soviele Zeichen 
von Text eingefUgt, wie ab Start in Ziel$ hineinpassen. 

Beispiele hierzu finden Sie unter FORM INPUT und FUNCTION. 


ILSET { LS } Zeichen(kette) ünksbunilig einsetzen 

LSET Ziels=Text“ 

Text kann eine beliebige Zeichenkette oder String-Variable sein, deren 
Inhalt linksbündig in ZielS eingefügt wird. Dabei bleibt die ursprüng¬ 
liche Länge von ZielS unverändert. Ist ZielS kürzer als Text, wird 
Text bei der Länge von ZielS abgeschnitten. Ist Ziel dagegen länger 
als Text, werden die restlichen Stellen von ZielS mit Leerzeichen auf¬ 
gefüllt. 

Ein Beispiel zu LSET finden Sie in Kap. 5.5.1 "Funktionsweise einer 
Random-Access-Datei". 


RSET {RS} Zeichen (kette) rechtsbündig einsetzen 

RSET Ziels=Text“ 

RSET ist grundsätzlich mit LSET vergleichbar. Der einzige Unter¬ 
schied besteht darin, daß "Text" am Ende des Ziel-Strings eingesetzt 
wird. Beide Befehle finden überwiegend in Random-Acces-Dateien 
Verwendung, wo es darum geht, daß trotz String-Veränderung die 
Längen der Eintragszeilen unverändert erhalten bleiben. 
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7.2 String-Analyse 


INSTRO Zeicben(kette) in einem String suchen 

Var=INSTR(Ziel$,Such$ [.Start]) 

Var=INSTR([Stail,] Ziel$,Such$) 

Liefert einen Wert, der die absolute Position von Such$ in ZielS an¬ 
gibt. Ist Such$ in Ziel$ nicht enthalten, wird der Wert 0 zurückgege¬ 
ben. Sind beide Strings leer, erhält man eine 1. Bei Verwendung der 
Option Start wird ab der damit angegebenen Zeichenposition gesucht. 
Bei der Angabe des Such-Strings ist darauf zu achten, daß hier zwi¬ 
schen Groß- und Kleinschreibung unterschieden wird. 

Beispiel: 


ZielS="Kaum zu glauben. Ich trau' meinen Augen nicht." 
Such$="au" 

aAstring(0,Ziels,Sucht, IbtcS) I V3.0-Aufruf 
' aAstringio,Ziels,Sucht,*Ibk$) I VZ.xx-Aufruf 
For IX=1 To LenCIbkt) Step 2 
Print Cvi(MidS{IbkS,IX,2)) 

Next IX 

Procedure Astring(S.posX,Z.strS,S.strt,Var BkS) I V3.0-Kopf 
' Procedure Astring(S.posX,Z.strS,S.strS,BkX) I V2.xx-Kopf 

I 

' Erweiterte INSTR-Routine, die alle (I) Positionen 
' eines Strings innerhalb eines Ziel-Strings ab einer 
' evtl, angegebenen Startposition ermittelt urxJ die 
' Positionsliste als HKIS-Daten-String zurückgibt. 


S.posX = String-Position, ab welcher gesucht werden soll. 
0 wird wie bei INSTR als 1 interpretiert. 

Zu untersuchender Ziel-String 
Zu suchender String 


Z.strS 

S.strS 

BkS 


= In V3.0 VAR-Variable -. 


BkX = in V2.XX Pointer auf 
Rückgabe-String-Variable 
Local XS,PosX 

Repeat I 

PosX=Instr(S.posX,Z.strS,S.strS) 
If PosX>0 I 

XS=XS+HkiS(PosX) I 

S.posX=PosX+1 ! 

Endif I 

Until PosX=0 I 

BkS=XS ! 

• •BkX=XS ! 

Return 


ist nach Rückkehr 
entweder leer (String 
nicht gefunden) oder 
enthalt der Reihe nach 
die gefundenen Positionen 
als MKIS-Werte 


Such-Schleife >. 

I Position feststellen 
String enthalten? 
Position eintragen 
Startposition erhöhen 


Kein String mehr? <---' 
V3.0-'MKIS'--. Positions- 
V2.xx-'HKIS'-> Rückgabe 
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Bei der ersten ausgelieferten Version des V3.0-BASIC vom 10.5.88 
konnte man den Eindruck gewinnen, daß Pointer-Übergaben an Pro¬ 
zeduren nicht mehr vorgesehen waren. Die überarbeitete Version vom 
15.6.88 erfüllt jedoch auch in diesem Punkt die Erwartungen, die man 
an ein GFA-BASIC stellen kann. Bisher sind mir bei der neuesten 
V3.0-Version keine syntaktischen Unverträglichkeiten zu den V2.xx- 
Versionen mehr aufgefallen. 

Ab jetzt heißt es wieder: "Selbstverständlich" kann der V2.xx-Aufruf 
und die entsprechende Pointer-Rückgabe auch in V3.0 verwendet 
werden! 

Weitere Beispiele finden Sie unter DATA in der Prozedur Rplc und 
unter IF..ENDIF. 


LEFT$0 Linksbündigen Teil-String ermitteln 

Var$=LEFT$(Ziel$ [,Anz]) 

Ohne die Option Anz wird das erste Zeichen des Strings Ziel$ gelie¬ 
fert. Bei Verwendung der Option Anz werden ab String-Anfang Anz 
Zeichen von Ziel$ geliefert. Ist Anz größer als die Länge von Ziel$, so 
wird Ziels komplett als Ergebnis zurückgegeben. Ist ZielS ohne Inhalt 
(""), wird ein Null-String geliefert. 

Beispiele zu LEFT$() finden Sie unter PRINT und unter DATA in 
den Prozeduren Pcode, Scode und Rplc. 


String-Länge ermitteln 


Var=LEN(Var$) 

Liefert die Länge des angegebenen Strings Var$. 


Beispiele zu LEN() finden Sie unter FORM INPUT, INKEY$(), LINE 
INPUT (Prozedure Showdat), INSTR und an vielen Stellen im Buch 
verteilt. 



























224 


Das große GFA-BASIC-Buch 


MID$0 Beliebigen Teil-String ermitteln 

Var$=MID$(Ziel$,Start [,Anz]) 

Es wird ein Teil-String von ZielS geliefert. Start gibt die Position in 
Ziels an, ab welcher gelesen werden soll. Wird die Option Anz ver¬ 
wendet, werden ab Start soviel Zeichen geliefert, wie in Anz angege¬ 
ben sind. Wird Anz nicht verwendet oder ist der in Anz angegebene 
Wert größer als die Menge der ab Start verbleibenden Zeichen von 
Ziels, so wird der gesamte Rest-String ab Start zurückgegeben. Ist 
Ziels ohne Inhalt, wird ein Null-String ("") geliefert. 

Anwendungsbeispiele zu MIDSO finden Sie unter anderem bei FORM 
INPUT, BLOAD (Prozedur Degload), FILES, FOR..NEXT (Prozedur 
Mirror) und RIGHTS(). 


Version 3.0 

PREDO Nächstkleineres ASCII-Zeichen ermitteln 

Var$=PRED(Expr$) 

Liefert das nächstkleinere ASCII-Zeichen des ersten Zeichens von 
ExprS. Ist als Abkürzung für CHRS(ASC(ExprS)-l) einsetzbar. 

Beispiel; 

For I*=65 To 76 

Print "ASCII des Zeichens ";Chr$(IX); 

Print " minus 1 = ";Asc(Pred(Chr$(IX))); 

Print " = Zeichen ";Pred(Chr*{IX)) 

Next IX 


RIGHT$0 Rechtsbündigen Teil-String ermitteln 

Var$=RIGHT$(Ziel$ [,Anz]) 

Ohne die Option Anz wird das letzte Zeichen des Strings ZielS gelie¬ 
fert. Bei Verwendung der Option Anz werden vom String-Ende Anz 
Zeichen von ZielS geliefert. Ist Anz größer als die Länge von ZielS, so 
wird Ziels komplett als Ergebnis zurückgegeben. Ist ZielS ohne Inhalt 
(""), wird ein Null-String zurückgegeben. 
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Beispiel: 

X$=''Dies ist ein DEMO-String zur Vorführung der String-*' 
XS=X$+"Trennfunktion CUT. Im Rückgabe-String (hier: AS)" 
XS=XS+"uird eine Liste von MKIS-Uertepaaren zurückgegeben" 
XS°XS+", die der Reihe nach die Positionen und Länge aller " 
X$=X$+"extrahierten Strings enthält." 
acut(X$,", -:.)",20,»AS) I Aufruf 

For 1X3=1 To Len(A$) Step A I HKIS-String in Aer-Steps 

' I durchgehen 

SposX=Cvi(HidS(A$,IX,2)) I Teil-String-Position lesen 

SlenX°Cvi(Mid$(A$,IX'«'2,2}) I Teil-Stringlänge lesen 

Print MidS(X$,SposX,SlenX) I Teil-String ausgeben 

Next IX 

I 

Procedure Cut(C.str$,C.sgn$,C.brtX,C.vecX) 

' Teilt einen vorgegebenen String in Teile mit einer 
' vorgegebenen max. Länge, wobei eine Liste von 
■ Trennzeichen angegeben werden kann, die dann Priorität 
' vor der Länge haben. Der Augangs-String bleibt unverändert. 

I 

' C.strS = Zu teilender Vorgabe-String 
' C.sgnS > Beliebige Liste von Trennzeichen. Oie 
' Teil-Strings enden jeweils mit dem ersten 

' Zeichen hinter dem gefundenen Trennzeichen. 

' Ist C.sgnS leer (""), gilt für die 

' Trennung ausschlieSlich C.brtX. 

' C.brtX = Max. neue Zeilenbreite 

' C.vecX • Pointer auf eine Rückgabe-String-Variable, die 
' nach Abschluß eine Liste von MKIS-Uertepaaren 

' enthält, die der Reihe nach Position und Länge 

' der einzelnen Teil-Strings angeben. 

I 

Local C.dunS,Cd.vecS,C.posX,C.aS,C.JX 

C.posX=1 I Positions-Puffer +1 

Do 

C.aS=LeftS(C.strS,Minie.brtX,Len(C.strS))) I Teil-String 
' I auf Länge trimmen 

If Len(C.sgnS)>0 I Trennzeichen vorhanden? 

For C.JX=Len(C.aS) Downto 1 I Alle Zeichen durchgehen 

Exit if Instr(C.sgnS,MidS(C.aS,C.jX,1)) I Abbruch, 

' I wenn Trennzeichen gefunden 

Next C.JX I Nächstes Zeichen 

Endif 

If C.JX=0 I Kein Trennzeichen? 

C.iX=C.brtX I Längenvorgabe hat Priorität 

Endif 

C.diinS=LeftS(C.aS,Min(C.brtX,C.JX)) I Teil-String "cutten" 
C.strS=RightS(C.strS,Len(C.strS)-Min{(C.brtX),Len(C.dumS))) 
' I Ausgangs-String kürzen 

Cd. vecS=Cd. vecS+Mk i S( C. posX)+Mk i S( Len( C. duntS)) 

' ! MKIS-String bilden 

Add C.posX,Len(C.dunS) ! Neue Startposition 

Exit if Len(C.strS)<C.brtX ! Exit, wenn Rest < max. Breite 
Loop 

Cd.vecS=Cd.vecS+MkiS(C.posX)+MkiS(Len(C.strS}) ! MKIS-Rest 
*C.vecX=Cd.vecS I MKIS-String zurückgeben 

Return 
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Weitere Beispiele zu RIGHT$() finden Sie unter bei INKEY$(), LINE 
INPUT (Prozedur Showdat), BLOAD (Prozedur Degload), FSNEXT() 
(Prozedur Getdir), sowie unter WAVE. 


Version 3.0 

RINSTRO Zeicheii(kette) in einem String rückwärts sucheii 

Var=RINSTR(Ziel$,Such$ [.Start]) 

Var=RINSTR([Start,] Ziel$,Such$) 

Liefert einen Wert, der die erste gefundene Position von ’SuchS’ in 
Ziels angibt. Bei der Durchsuchung des Ziel-Strings wird im Gegen¬ 
satz zu INSTR am String-Ende begonnen. Weiteres siehe INSTR. 

Version 3.0 

SUCCO Nächstgrößeres ASCII-Zeichen ermitteln 

Var$=SUCC(Expr$) 

Liefert das nächstgrößere ASCII-Zeichen des ersten Zeichens von 
ExprS. Ist als Abkürzung für CHR$(ASC(Expr$)+l) einsetzbar. 

Beispiel: 

For IX=65 To 78 

Print "ASCII des Zeichens ";Chr${IX); 

Print " plus 1 = ";Asc(Succ(ChrS(IX>)); 

Print " = Zeichen ";Succ(ChrS(IX)) 

Next IX 


7.3 String-Formatierung 

SPACE$0 Leerzeichen-String biiden 

Var$=SPACE$(Anz) 

Es wird ein String aus Anz Leerzeichen gebildet und zurückgegeben. 

Beispiele finden Sie unter anderem unter BLOAD (Prozedur Degload), 
CHAIN, FILES und BPUT#. 
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$TRING$0 Mehrfach-Zeichenkette bilden 

Var$=STRING$(Anz,Text') 

Var$=STRING$(Anz,Ascii) 

Es wird ein String gebildet, der sich daraus ergibt, daß Text so oft 
verkettet wird, wie in Anz angegeben. Text kann auch als Variable 
oder String-Konstrukt angegeben werden. 

Soll ein einzelnes Zeichen multipliziert werden, kann statt Text auch 
der ASCII-Wert des Zeichens verwendet werden. Die entstehende 
Zeichenkette darf nicht mehr als 32767 Zeichen enthalten (maximale 
Größe einer String-Variablen). 

Beispiele finden Sie unter anderem unter PRINT, CHAIN, FSNEXT() 
(Prozedur Getdir) und CALL. 


Version 3.0 

TRIM$0 Space-Zeichen eliminieren 

Var$=TRIM$(Ziel$) 

Eliminiert alle Spaces (Leerzeichen), die am String-Anfang oder am 
String-Ende von ZielS stehen und liefert den verbleibenden String- 
Teil. Besteht der übergebene String ZielS nur aus Leerzeichen oder er 
ist ohne Inhalt, erhält man einen Leer-String (”") zurück. 

Beispiel: 

For IX»1 To 4 
Read AS 

Print "Vorher : ->";A$, 

Print "Nachher: ->";Trir«l(A$);"<-" 

Next IX 

Data String 1 , String 2,String 3,String 4 


:ii>pER$o Buchstabenumwandlung Klein => Groß 

Var$=UPPER$(Ziel$) 

Trifft UPPERS beim Lesen von ZielS auf einen kleingeschriebenen 
Buchstaben (ASCII-Werte 97 bis 129), so wird dieser in den entspre¬ 
chenden Großbuchstaben (ASCII-Werte 65 bis 90) umgewandelt. 
Kleingeschriebene Umlaute (ä, ö, ü) werden ebenfalls in Uppercase 
(Ä, ö, Ü) gewandelt. Alle anderen Zeichen bleiben unverändert. 
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Beispiele finden Sie unter FSNEXT{) (Prozedur Getdir) und im erstei 
Beispiel zu FUNCTION. 

Die entstehende Zeichenkette darf nicht mehr als 32767 Zeichen ent 
halten (maximale Größe einer String-Variablen). 
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8. Arithmetik-Befehle 


8.1 Operatoren 


Arithmetische Operatoren: 

Poteniiaran 

- Negativ«! Vorzeichen 

* / Multiplikation und Diviiion 

DIV Ganziahldivifion (Entfernen von Deiimaletellen) 
NOO Modulo-Berechnung (Reit der Ganiiahldiviiion) 

* - Addition und Subtraktion 


Vergieichsoperatoren: 


gleich 
größer als 
kleiner all 
ungeföhr gleich 


<> 


>s 


(28 


oder X ungleich 

oder => größer oder gleich 

oder =>< kleiner oder gleich 

Bit-Vergleich) 


Logische Operatoren: 


AND Konjunktion: Das Ergebnii von AND tft wahr, wenn 
beide Argumente wahr sind. 

OR Disjunktion: Das Ergebnis von OR ist wahr, wenn 
eines der Argumente wahr ist. 

XOR Exclusives Oder: Das Ergebnis von XOR ist falsch, wenn 
die Argumente beide wahr oder beide falsch sind. 

NOT Negation: Vertauscht Wahrheitswerte ins Gegenteil. 

IHR Implikation: Die Folgerung IMP ist nur dann falsch, 
wenn aus etwas Wahrem etwas Falsches folgt. 

EQV Aquivalena: Umkehrung tu XOR. Das Ergebnis ist falsch, 
wenn sich die beiden Argumente unterscheiden. 


Prioritäten: 


( ) 

Klammem (höchste Priorität) 


Potentierung 

- 

Negatives Vorteichen 

* / 

Multiplikation und Division 

DIV HOO 

Ganteahldivision und Modulo*Berechnung 

+ - 

Addition und Subtraktion 

A 

V 1 

V > 
II 

/ 

A i 
M 1 

Vergleichsoperatoren 

NOT AND OR, 


XOR IMP EQV 

Logische Operatoren (niedrigste Priorität) 
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8.2 Mathematische Operationen 


ADD {AD} Additionsbefehl 

ADD Var,Wert 

Addiert Wert zum Inhalt der numerischen Variablen Var und legt an¬ 
schließend das Ergebnis in Var ab. 

Wird in Version V3.0 in Var eine Integer-Variable angegeben, wird 
ein evtl, in Wert angegebener Realwert als Integerwert behandelt. 


DEC Dekrementierung 

DEC Var 

Vermindert den Wert der numerischen Variable Var um den Wert 1. 

DIV Divisionsbefehl 

Abk.inV3.0:{DI} 

DIV Var,Wert 

Dividiert den Inhalt der numerischen Variablen Var durch Wert und 
legt anschließend das Ergebnis in Var ab. Beachten Sie bitte die V3.0- 
Anmerkung zum ADD-Befehl. 


INC {IN } Inkrementierung 

INC Var 

Erhöht den Wert der numerischen Variable Var um den Wert 1. 


MUL { MU } Multiplikationsbefehl 

MULVar,Wert 

Multipliziert den Inhalt der numerischen Variablen Var mit Wert und 
legt anschließend das Ergebnis in Var ab. Beachten Sie bitte die V3.0- 
Anmerkung zum ADD-Befehl. 





Arithmetik-Befehle 


231 


$UB { S } Subtraktionsbefehl 

tnV3.o:{SU} 

SUB Var,Wert 

Subtrahiert Wert vom Inhalt der numerischen Variablen Var und legt 
anschließend das Ergebnis in Var ab. Beachten Sie bitte die V3.0-An- 
merkung zum ADD-Befehl. 


Version 3.0 

ADDO Integer-Additionsfunktion 

Var=ADD(Wertl,Wert2) 

Addiert Wertl zu Wert2 und liefert dann das entsprechende Integer- 
Ergebnis. 

Anmerkung: Im Gegensatz zu den ADD-, SUB-, MUL-, DIV-Befeh- 
len können diese Funktionen - wie jede andere Funktion auch - in 
die Ausgabe, in Zuweisungen, Ausdrücke, Bedingungsabfragen etc. 
eingebunden werden. Sie stehen stellvertretend für das Ergebnis, das 
sie liefern sollen. Außerdem können hiermit generell nur integrierte 
Werte berechnet werden. Von ggfs, aus der Operation entstehenden 
Realwerten wird nur der Vorkomma-Anteil geliefert. Eine Rundung 
findet nicht statt. 

Die Werte können als Konstante, Variable, Ausdruck oder Funktion 
angegeben werden und werden durch die Operation nicht verändert. 
Werden die Werte als Realwerte angegeben, werden sie vor Ausfüh¬ 
rung der Operation auf ihren Integeranteil reduziert. Beispiel: 

Print Int(100/33)+Int(3A5*Int{12-Int(5.6))) Mod 38 
entspricht: 

Print Mod(Add(Div(100,33),Mul(345,Sub(12,5.6))),38) 
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Version 3.0 

DIVO Integer-DivisibnsfunktiOn 

Var=DIV(Wert1,Wert2) 

Dividiert Wertl durch Wert2 und liefert das entsprechende Integer-Er- 
gebnis. Beachten Sie bitte die Anmerkung zur ADD{)-Funktion. 

Version 3.0 

MODO Integer-Modula>Funktioa 

Var=MOD(Wert1,Wert2) 

Berechnet den ganzzahligen Rest der Integer-Divison Wertl durch 

Wert2 (Modulo-Berechnung) und liefert das entsprechende Integer-Er- 

gebnis. Beachten Sie bitte die Anmerkung zur ADD()-Funktion. 

Version 3.0 

|MUL0 Integer-MuitipUkatiönsfunktion 

Var= MUL(Wert1 ,Wert2) 

Multipliziert Wertl mit Wert2 und liefert das entsprechende Integer- 
Ergebnis. Beachten Sie bitte die Anmerkung zur ADD()-Funktion. 

Version 3.0 

SUBO Integer-Subtraktionsfunktion 

Var=SUB(Wert1,Wert2) 

Subtrahiert Wert2 von Wertl und liefert das entsprechende Integer-Er- 
gebnis. Beachten Sie bitte die Anmerkung zur ADD()-Funktion. 


8.3 Numerische Funktionen 


ABSO Betrags-Funktion 

Var=ABS(Arg) 

ABS gibt das Argument Arg vorzeichenlos als positiven (absoluten) 
Wert zurück. Dieser Wert ist immer gleich oder größer Null. 
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jlviNo:" ' 'ahl auf "gerade" testen 

Var=EVEN(Arg) 

Liefert -1, wenn Arg gerade ist. Sonst wird 0 geliefert. 


ijEXPQ Exponential-Funktion 

Var=EXP(Arg) 

Berechnet das Ergebnis des Exponenten Arg zur Basis e (Eulersche 
Zahl). Gleichbedeutend mit: 2.718281828462 Arg. Arg muß auf je¬ 
den Fall größer Null sein, da sonst eine Fehlermeldung produziert 
wird. EXP ist die Umkehrfunktion zu LOG. 



Ganzzahl- Funktion 


Var=FIX(Arg) 

Übergibt den ganzzahligen Anteil (Integer) der Real-Zahl Arg. Die 
Funktion rundet Zahlen weder auf noch ab, sondern entfernt nur die 
Dezimalstellen. Im Minusbereich wird dadurch der Minuswert kleiner. 
FIX(-12.33) ergibt -12. FIX(33.17) ergibt 33. FIX ist identisch mit 
TRUNC. 


FRACO Dezimalstellen-Funktion 

Var=FRAC(Arg) 

Liefert den Dezimalanteil (Nachkommastellen) von Arg, falls Arg eine 
reelle Zahl ist, bzw. den Wert 0, falls Arg integer ist. 


*NT0 Ganzzahl-Funktion 

Var=INT(Arg) 

Wandelt die Zahl Arg in eine Integer-Zahl. Ist Arg ein Realwert, so 
wird die nächstkleinere Ganzzahl zurOckgegeben. Im Gegensatz zu 
FIX() und TRUNCO wird dadurch im Minusbereich der Minuswert 
größer. 


IMT(-12.33) ergibt -13 


IMT(33.17) ergibt 33. 
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LOGO Logarithmus-Funktiöii 

Var=LOG[lO](Arg) 

LOGO gibt den natürlichen (Neperschen) Logarithmus des in Klam¬ 
mern angegebenen numerischen Ausdrucks Arg zur Basis e zurück. 

Basis e -> 2.718281828 => Eulersche Zahl 

Das Ergebnis von 2.718281828462^LOG(Arg) ergibt Arg. 

LOGIOO liefert dagegen den dekadischen (Briggsschen) Logarithmus 
des in Klammern übergebenen Arguments Arg zur Basis 10. 

Das Ergebnis von lO^LOGlO(Arg) ergibt Arg. 

Arg muß auf jeden Fall größer Null sein, da sonst eine Fehlermeldung 
produziert wird. LOGO ist die Umkehrfunktion zu EXPO. 


ODDO Zahl auf "ungerade” testen 

Var=ODD(Arg) 

Liefert -1, wenn Arg ungerade ist. Sonst wird 0 geliefert. 


Version 3.0 

PREDO Nächstkleinere Ganzzahl ermitteln 

Var=PRED(Arg) 

Liefert die nächstkleinere Integerzahl vor Arg. Bei Arg als Realzahl 
werden vor Ausführung der Operation die Nachkommastellen inte¬ 
griert (siehe INT). 


Version 3.0 

ROUNDQ Rundungs-Funktion 

Var=ROUND(Arg [.Stelle]) 

Rundet Arg mathematisch exakt auf eine ganze Zahl. Wird die Option 
Stelle verwendet, wird auf die angegebene Nachkommastelle gerundet. 
Ist Stelle negativ, wird auf die entsprechende Stelle vor dem Komma 
gerundet. 
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Sollen in den V2.xx-Versionen mathematisch exakte Rundungen vor¬ 
genommen werden, müssen Sie dazu die Funktion INT() verwenden. 
Addieren Sie dazu zum INT()-Argument den Wert 0.5. Das bedeutet, 
das die entstehende Integerzahl bei einem gebrochenen Anteil von < 
0.5 abgerundet und bei einem gebrochenen Anteil von > 0.5 aufgerun¬ 
det wird. 


SGNO yorzeichen erinitteln 

Var=SGN(Arg) 

Liefert das Vorzeichen (engl.: SiGN) von Arg. 

1 wenn Arg > 0/-1 wenn Arg < 0/0 wenn Arg = 0 


SQRO Wurzel-Funktion 

Var=SQR(Arg) 

Es wird die 2. Wurzel (Quadratwurzel; engl.: SQuare Radical) von Arg 
geliefert. Wird eine höhere Wurzel gebraucht, so ist diese über den 
Umweg der Potenzierung mit gebrochenem Exponenten zu berechnen: 

3. Wurzel = Arg‘(1/3) 

4. Wurzel = Arg'(1/4) 
etc. 

Arg muß auf jeden Fall gleich oder größer Null sein, da sonst eine 
Fehlermeldung produziert wird. 


Version 3.0 

5UCC0 Nächstgrößere Ganzzahl eriiiitteln 

Var=SUCC(Arg) 

Liefert die nächstgrößere Integerzahl nach Arg. Bei Arg als Realzahl 
werden die Nachkommastellen integriert (siehe INT). 


TRUNCO Ganzzahl-Funktion 

Var=TRUNC(Arg) 

TRUNC ist identisch mit FIX. Weiteres siehe dort. 





236 


Das große GFA-BASIC-Buch 


8.4 Trigonometrische Funktionen 


Version 3.0 

ACOSO Arcuscbsinus-Funktiöh 

Var=ACOS(Arg) 

Berechnet den Arcuscosinus von Arg. Arg ist ein Winkel in Radian. 
Soll der Winkel in Grad eingegeben werden, muß dieser vorher mit 
PI/180 multipliziert bzw. durch DEG gewandelt werden. 


IliNO 


Version 3.0 

Arcussinus-Funktion 


Var=ASIN(Arg) 

Berechnet den Arcussinus von Arg. Weiteres siehe unter ACOS(). 


ÄTNO Arcustangens-Funktion 

Var=ATN(Arg) 

Das Argument Arg ist ein Tangenswert, aus dem der ihm entspre¬ 
chende Winkel in Radian berechnet wird. Es wird ein Wert zwischen - 
PI/2 und +PI/2 geliefert. Benötigt man die Winkelangabe in Grad, so 
muß das Ergebnis mit 180/PI multipliziert bzw. in V3.0 durch DEG 
gewandelt werden. 


coso Cosinus-Funktion 

Var=COS(Arg) 

Berechnet den Cosinus von Arg. Arg ist ein Winkel in Radian. Soll der 
Winkel in Grad eingegeben werden, muß dieser vorher mit PI/180 
multipliziert bzw. in V3.0 durch DEG gewandelt werden. 

Beispiel: 

For 1=0 To 90 Step 15 

Print "Sinus ";I;" GRAD : ";Sin(I*Pi/180) 

Print "Cosinus GRAD : ";Cos(I*Pi/180) 

Print "Tangens GRAD ; ";Tan(I*Pi/180) 

Next I 

For I=-Pi+0.0000001 To Pi Step Pi/90 
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Print "Sinus ";I;" RAD : ";Sin(I) 

Print "Cosinus ";I;" RAD : ";Cos(l) 

Print "Tangens RAD : ";Tan(I) 

Hext I 

Ein weiteres Beispiel zu COS() und SIN() finden Sie unter PI. 

Version 3.0 

COSQO Interpolierte Cosinus-Funktion mit Grad-Angabe 

Var=COSQ(Grad) 

Ermittelt den 16tel-Grad-interpolierten Cosinus des in Grad angege¬ 
ben Winkels Grad (ca. 10 mal schneller als COS()). 


Version 3.0 


llpö : 

Umwandlung in Grad 

Var=DEG(Radian) 


Rechnet die Radian-Winkelangabe in 
spricht dem Ergebnis von Arg*PI/180. 

Gradmaß (DEGree) um. Ent- 

mm.: 

Kreiszahl 


PI 


Reservierte Variable. Steht dort, wo sie eingesetzt wird für die kon¬ 
stante Kreiszahl PI (3.1415926536). 
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Beispiel (für Hires/Midres): 


YtX=Hin{2,3-Xbios(4)) 

Deffill ,2,4 
For IX=0 To 360 Step 12 
acbox(2,320,200/YtX,250,IX) 
Next IX 
Cls 

For IX=0 To 720 Step 12 
Add JX,3 I Radius +3 

acboxd ,320,200/YtX, 10+JX, IX) 
Next IX 


I Y-Auflösungsteiler 
I DEFFILL grau 

I- PBOX-Schleife 
!---■ 

! BiIdschiri^ klar 
!---. 

I- BOX-Schleife 
!---■ 


Procedure Cbox(ModX,XpX,YpX,RdX,UiX) I (für V3.0 und V2.xx) 
' Produziert ein Quadrat, das in einem beliebigen Winkel 
' und mit beliebiger Größe dargestellt werden kann. 

■ HodX = Darstellungsmodus 

• 1 = BOX 

■ 2 = PBOX 

■ 3 = MARKER 

' XpX/YpX = Koordinaten des Mittelpunktes (Drehpunktes) 

' RdX = Umkreisradius 

■ UiX = Neigungswinkel 


Local JX,IX,YtX,Dg 
YtX=Min(2,3-Xbios(4)) 
Erase PxXO 
Erase PyXO 
Dirn PxX(4),PyX(4) 

For IX=-WiX+45 To 
0g=lX*Pi/180 


I Y-Auflösungsteiler 
I POLY-X-Feld löschen 
! POLY-Y-Feld löschen 
! POLY-Felder dimensionieren 
WiX+360+45 Step 90 ! Einmal rundum 
I In Grad umrechnen 


PxX(JX)=XpX+(Sin(Dg)*RdX*Sqr(2)/2+0.5) !- Koordinaten. 
PyX(JX)=YpX+(Cos(Dg)*RdX/YtX»Sqr(2)/2+0.5) !- ..berechnen 


' In V3.0 auch möglich: 

■ PxX(JX)=XpX+(Sinq(IX)*RdX»Sqr(2)/2+0.5) 

• PyX(JX)=YpX+(Cosq(IX)*RdX/YtX»Sqr(2)/2+0.5) 
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Inc JX I 

Next IX I 

If ModX=1 I 

Polyline 5,PxX(),PyX() I 

Endif 

If HodX>2 I 

Polyfill 5,PxXO,PyXO I 

Endif 

If ModXs3 I 

Polymsrk 5,PxX(),PyXO I 

Endif 
Return 


RADO 

Var=RAD(Grad) 

Rechnet die Grad-Winkelangabe 


Ecken-Zähler +1 
Nächste Ecke 
BOX-Darstellung? 
Dann Polyline 

PBOX-Darstellung? 
Dann Polyfill 

HARKER-Darstellung? 
Dann Polyniark 


Version 3.0 


Umwandlung in Radian (Bogenmaß) 


in Bogenmaß (RADian) um. 


SINO Sinus-Funktion 

Var=SIN(Arg) 

Berechnet den Sinus von Arg. Weiteres siehe unter COS(). 

Version 3.0 

SINQO Interpolierte Sinus-Funktion mit Grad-Angabe 

Var=SINQ(Grad) 

Ermittelt den 16tel-Grad-interpolierten Sinus des in Grad angegeben 
Winkels Grad (ca. 10 mal schneller als SIN()). 

TANO Tangens-Funktion 

Var=TAN(Arg) 

Berechnet den Tangens von Arg. Weiteres siehe unter COS(). 
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8.5 Vergleichsoperationen 


MAXQ Größten Wert/String ermitteln 

Var=MAX(Expr1,Expr2 [,Expr3,...]) 

Var$=MAX(Expr1$,Expr2$ [,Expr3$,...]) 

Gibt den größten Wert einer Werteliste bzw. den größten String einer 
String-Liste zurück. Expr kann eine beliebiger numerischer- oder 
Textausdruck, Wert, String, bzw. Variable sein. Alle Ausdrücke müs¬ 
sen demselben Typ angehören. 

Bei String-Vergleichen wird der größte String ermittelt, indem der 
Reihe nach alle Einzelzeichen der zu vergleichenden Strings überprüft 
werden. Haben beide Zeichen denselben ASCII-Wert, werden solange 
die nächsten beiden Zeichen geprüft, bis Sie sich unterscheiden oder 
einer der beiden Strings keine Zeichen mehr enthält. Im ersten Fall ist 
der Ausdruck größer, dessen zuletzt geprüftes Zeichen den größeren 
ASCII- Wert besitzt. Im zweiten Falle ist es der String mit der größe¬ 
ren Länge. 

Beispiele hierzu finden Sie unter anderem unter PRINT (Prozedur 
Pstep), FOR..NEXT (Prozedur Mirror) und unter IF..ENDIF. 


MINO Kleinsten Wert/String ermitteln 

Var=MIN(Expr1,Expr2 [,Expr3,...]) 

Var$=MIN(Expr1$,Expr2$ [,Expr3$,...]) 

Gibt den kleinsten Wert einer Werteliste bzw. den kleinsten String ei¬ 
ner String-Liste zurück. Beispiele hierzu finden Sie unter anderem 
unter INPUTS, PRINT (Prozedur Pstep), BPUT#. 


Sonst siehe Erläuterungen zu MAX(). 
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8.6 Bit-Operationen 

Version 3.0 

ANDQ Konjunktions-Funktion 

Var=AND(Weiii,Weii2) 

Verknüpft logisch die beiden angegebenen Werte im AND-Modus und 
liefert das Integer-Ergebnis (siehe Kapitel 4 "Basis-BASIC"). 

Die Booleschen Funktionen stehen jeweils als Ersatz für die entspre¬ 
chende logische Verknüpfungsoperation: 

AND(x,y) entspricht (x AND y) 

0R(x,y) entspricht (x OR y) 

XOR(x,y) entspricht (x XOR y) 

EQV(x,y) entspricht (x EQV y) 

IMP(x,y) entspricht (x IMP y) 

Beispiel: 

Print &X11101101 And &X1111.And(X11101101,*1111) 

Print &HED Or &HF'•■•'Or($EO,$F) 

Print 237 Xor ..Xor{237,15) 

Durch die Funktionsform werden diese Operationen für den Pro¬ 
grammierer übersichtlicher und für das BASIC schneller "erfassbar", 
wodurch sich hier Geschwindigkeitsvorteile von bis zu 10 Prozent er¬ 
geben. 

In der Beschreibung zu IF..ENDIF habe ich den Vorgang der 
Bedingungsstellung durch AND und OR zu erklären versucht. Eine 
häufige Bedingungsform ist z.B.: 

IF ((vix=w1 OR v2*<>w1) AND v3X>(ex1*+H2)) OR v4X<u2 

Durch die Verknüpfungsfunktionen kann diese Bedingung folgender¬ 
maßen umgestaltet werden: 

IF OR(AND(OR(v1X=w1,v2X<>u1),v3X>(ex1X+w2}),v4X<w2) 

Durch die klare Klammersetzung kann ein Ausdruck dieser Art we¬ 
sentlich leichter analysiert werden. Ein kleiner Nachteil ist, daß OR- 
oder AND-Ketten etwas unübersichtlicher werden. 
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Aus: IF vix>w1 OR v2X<>h 1 0« v3X<>v1X 0« v4*=u2 

wird: IF OR(OR{OR(v1X>w1,v2X<>m1),v3X<>v1X),v4X=w2) 

Aber das ist wohl Geschmacksache. Man wird ja durch nichts daran 
gehindert, in solchen Fällen die erste Variante zu verwenden. 

Version 3.0 

BCHGQ Einzel-Bit wechseln (Xor-en) 

Var=BCHG(Wert,Bit) 

Wechselt das angegebene Bit von Wert (Wert XOR 2^ Bit). War das Bit 
vorher 1, ist es anschließend 0 und umgekehrt. 

Beachten Sie bei den Einzel-Bit-Funktionen, daß die Bit-Zählung von 
rechts mit der Bit-Nummer 0 beginnt. Bit kann beliebig angegeben 
werden, wobei größere Werte als 31 (max. Breite=32 Bit) nicht mehr 
korrekt verarbeitet werden. Größere Angaben für Wert als 2^32-1 
(&HFFFFFFFF = max. Longwert) werden nicht verarbeitet. 

Insbesondere sind diese Funktionen für die Verarbeitung von Bit- 
Vektoren geeignet, wie sie vielfach bei System-Funktionen (AES, 
GEMDOS, BIOS und XBIOS) verwendet werden. 

Um z.B. die XBIOS-Funktion 33 (SETPTR, siehe unter XBIOS) aus¬ 
zuwerten, kann man folgendermaßen vergehen: 

If Btst(Xbios(33,-1),5) I Bit 5 gesetzt? 

Void Xbios(33,Bchg(Xbios(33,-1),5)) I Dann XOR 
' Oder: 

' Void Xbios(33,Bclr(Xbios(33,-1),5)) I Dann aus 
Endif 

Dieses Beispiel stellt zuerst fest, ob das Bit 5 (6. von rechts) der aktu¬ 
ellen Drucker-Einstellung gesetzt ist. Ist es das, so wird das Bit "um¬ 
geschaltet", so daß anschließend der Drucker statt auf Endlospapier 
auf Einzelblattzufuhr eingestellt ist. Statt der BCHG()-Funktion 
könnte man hier ebensogut BCLR() einsetzen. 

Soll das Bit wieder gesetzt werden (also wieder Endlospapier einschal¬ 
ten), sähe das Ganze so aus: 

If Btst(Xbios(33,-1),5)=False ! Bit 5 nicht gesetzt? 

Void Xbios(33,Bchg(Xbios(33,-1},S}} I Dann XOR 
' Oder: 
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■ Void Xbios(33,Bset(Xbios(33,-1),5)) I Dann an 
Endif 

Auch hier ließe sich die BCHG()-Funktion problemlos gegen BSET() 
austauschen. Grundsätzlich könnte die IF-Abfrage bei diesen beiden 
Beispielen wegfallen, wenn in beiden Fällen die jeweils 2. Variante (in 
der REM-Zeile) verwendet würde, da das Bit dann unabhängig vom 
vorherigen Zustand sowieso aus- bzw. eingeschaltet worden wäre. Die 
IF-Abfrage ist hier nur für die BCHG()-Funktion erforderlich. 

BCHGO als V2.xx-Funktion: 

Print Bin$(&X11010001)"Bin$(aechg(&X11010001,A)) 

Deffn Bchg(UertX,BitX)°UertX Xor 2*BitX 


Version 3.0 

BCLRO Einzel-Bit löschen 

Var=BCLR(Wert,Bn) 

Löscht das angegebene Bit von Wert (Wert AND NOT 2^Bit). War das 
Bit vorher 1 ist es anschließend 0. 0 bleibt 0. Weiteres siehe unter 
BCHGO. 

Als V2.xx-Funktion: 

Print Bin$(&X11010001)"BinS(aBclr(&X11010001,4)) 

Deffn Bclr(UertX,BitX)=UertX And Not 2'BitX 


Version 3.0 

BSETO Einzel-Bit setzen 

Var=BSET(Wert,Bit) 

Setzt das angegebene Bit von Wert (Wert OR 2^Bit). War das Bit vor¬ 
her 0 ist es anschließend 1. War es 1, bleibt es 1. Weiteres siehe unter 
BCHGO. 

BSETO als V2.xx-Funktion: 


Print Bin$(&X11010001}"Bin$(aBset(&X11010001,3)} 
Deffn Bset(UertX,BitX}=WertX Or 2‘BitX 
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Version 3.0 

BTSTO Einzei'Bit auf aa/aus testen 

Var=BTST(Wert,Bit) 

Testet das angegebene Bit von Wert (-SGN(Wert AND 2''Bit)). Ist das 
Bit gesetzt, wird eine -1 (TRUE) geliefert, sonst 0 (FALSE). Weiteres 
siehe unter BCHG(). 

BTST() als V2.xx-Funktion: 

Print aetst(&X11010001,4) 

Deffn Btst(UertX,BitX)=(UertX And 2*BitX)oO 


Version 3.0 

BYTEO Vorzeichenloses LO-Byte eines Wertes liefern 

Var=BYTE(Wei1) 

Liefert vorzeichenlos die untersten 8 Bit von Wert. 

BYTEO als V2.xx-Funktion: 

Print Bin$(aByte(&X100101111010001)) 

Deffn Byte(UertX)=UertX And &HFF 


Version 3.0 

CARDQ Vorzeichenloses LO-Word eines Wertes liefern 

Var=CARD(Wert) 

Liefert vorzeichenlos die untersten 16 Bit von Wert. 

CARD() als V2.xx-Funktion: 

Print Bin$(aCard(&X101101000101111010001)) 

Deffn Card(UertX)=UertX And &HFFFF 
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Version 3.0 


Äo 

Äquivalenz-Funktion 

Var=EQV(Wert1,Wert2) 

Verknüpft logisch die beiden angegebenen Werte im EQV-Modus und 
liefert das Integer-Ergebnis. Weiteres siehe unter AND(). 

EQV() als V2.xx-Funktion: 


Print Bin$(aEqv(&X11010001,&X10011100)} 

Deffn Eqv(Uert1X,Uert2X>>Uert1X Eqv Wert2X 

Version 3.0 

IMPO 

Implikations-Funktion 

Var=IMP(Wertl,Wert2) 

Verknüpft logisch die beiden angegebenen Werte im IMP-Modus und 
liefert das Integer-Ergebnis. Weiteres siehe unter ANEK). 

IMP() als V2.xx-Funktion: 


Print Bin$(ainf>(&X11010001,&X10011100)) 

Deffn Eqv(Uert1X,Uert2X)=Uert1X Eqv Uert2X 

Version 3.0 

Sro 

Disjunktions-Funktion 


Var=0R(Wert1,Wert2) 

Verknüpft logisch die beiden angegebenen Werte im OR-Modus und 
liefert das Integer-Ergebnis. Weiteres siehe unter AND()- 

OR() als V2.xx-Funktion; 

Print Bin$(aOr(&X11010001,&X10011100)) 

Deffn 0r<Wert1X,Wert2X)=Wert1X Or Wert2X 
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Version 3.0 


SHLO 


Bits links yerschieben 


Var=SHL(Wert,Bits) Long-Shift-Left 

Var=SHL&(Wert,Bits) Word-Shift-Left 

Var=SHLI (Wert,Bits) Byte-Shift-Left 

Verschiebt den Inhalt von Wert um die Anzahl Bits nach links. Je 
verschobenem Bit wird Wert dabei mit 2 multipliziert (Integer-Multi- 
plikation: Var=Wert*2''Bits). Das rechts freiwerdende Bit wird mit 0 
gefüllt. 


|i|o|i!i|o|i|o!o! 

Höchstes //////// 

Bit <--• / // // // l0| 

fällt raus /////// 

................................. / (Juli wird 

[0jljl|0jl|0j0j0|<—' nachgeschoben 

_I_I_I_I...I 


Bei Angabe von & hinter SHL werden nur die ersten 16 Bit (LO- 
Word) von Wert geshiftet, bei | nur die ersten 8 Bit (LO-Byte). Ist 
Wert bei SHL|() größer als 8 Bit, so werden als Ergebnis trotzdem nur 
die untersten 8 Bit der Operation geliefert. Dasselbe gilt für SHL&() 
(16 Bit), wobei dann jedoch das Bit 15 des Ergebnisses in die Bits 16- 
31 kopiert wird (vorzeichenbehaftet). 


Version 3.0 


SHRO 


Bits logisch rechts yerschieben 


Var=SH R (Wert, Bits) Long-Shift-Rig ht 

Var=SHR&(Wert,Bits) Word-Shift-Right 

Var=SHRI (Wert,Bits) Byte-Shift-Right 

Verschiebt den Inhalt von Wert um die Anzahl Bits nach rechts. Je 
verschobenem Bit wird Wert dabei durch 2 dividiert (Integer-Division: 
Var=Wert DIV 2^Bits). Das links freiwerdende Bit wird mit 0 gefüllt. 
Bei Komplementwerten bleibt also das Vorzeichen nicht erhalten. 
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i 1 i 0 i 1 i 1 i 0 i 1 i 0 i 0 i 

I...I_I_I_I_I_I_I_I 

\\\\\\\\ Niedrigstes 
Null |0| \\\\\\\ •--> Bit 

wird \ \ \ \ \ \ \ fällt raus 

nach- \ 

geschoben '---> |0|lj0|1|1|0|1|0| 


Bei Angabe von & hinter SHR werden nur die ersten 16 Bit (LO- 
Word) von Wert geshiftet, bei | nur die ersten 8 Bit (LO-Byte). Ist 
Wert bei SHR|() größer als 8 Bit, so werden als Ergebnis trotzdem nur 
die untersten 8 Bit der Operation geliefert. Dasselbe gilt für SHR&() 
(16 Bit), wobei dann jedoch das Bit IS des Ergebnisses in die Bits 16- 
31 kopiert wird (vorzeichenbehaftet). 


Version 3.0 


Bits links rotieren 


Var=ROL(Wert,Bits) Long-Rotate-Left 

Var=ROL&(Wert,Bit8) Word-Rotate-Left 

Var=ROL|(Wert,Bits) Byte-Rotate-Left 

Rotiert den Inhalt von Wert um die Anzahl Bits nach links. Das je¬ 
weils rechts freiwerdende Bit wird dabei mit dem jeweils links her¬ 
ausgeschobenen Bit gefüllt. 


jljo|l|l|o|l|ojl| 

_I_I_t 

//////// 

■/////// 

/////// 

i 0 i 1 i 1 i 0 i 1 i 0 i 1 i 1 i <-- 

I I I I I i I I I 


Das 

höchste Bit 
des Wertes 
wird als 
niedrigstes 
Bit nach¬ 
geschoben 


Bei Angabe von & hinter ROL werden nur die ersten 16 Bit (LO- 
Word) von Wert rotiert, bei | nur die ersten 8 Bit (LO-Byte). Ist Wert 
bei ROL|() größer als 8 Bit, so werden als Ergebnis trotzdem nur die 
untersten 8 Bit der Operation geliefert. Dasselbe gilt für ROL&() (16 
Bit), wobei dann jedoch das Bit 15 des Ergebnisses in die Bits 16-31 
kopiert wird (vorzeichenbehaftet). 
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Version 3.0 

RORO Bits rechts rotieren 

Var=ROR(Wert,Bits) Long-Rotate-Right 

Var=ROR&(Wert,Bit8) Word-Rotate-Right 

Var=ROR | (Wert,Bits) Byte-Rotate-Rlght 

Rotiert den Inhalt von Wert um die Anzahl Bits nach rechts. Das je¬ 
weils links freiwerdende Bit wird dabei mit dem jeweils rechts her¬ 
ausgeschobenen Bit gefüllt. 


Das 

niedrigste 
Bit des 
Wertes 
wird als 
höchstes 
Bit nach¬ 
geschoben 


I 1 I 0 I 1 I 1 j 0 I 1 1 0 I 1 I 

I_I__I...I_I_I 

\\\\\\\\ 

\ \ \ \ \ \ \ '-■ 

\ \ \ \ \ \ \ 


'—> i 1 i1i0i1i1i0i 1 i 0 i 

I_I_I_I_I_I—I_I_I 


Bei Angabe von & hinter ROR werden nur die ersten 16 Bit (LO- 
Word) von Wert rotiert, bei | nur die ersten 8 Bit (LO-Byte). Ist Wert 
bei ROR|() größer als 8 Bit, so werden als Ergebnis trotzdem nur die 
untersten 8 Bit der Operation geliefert. Dasselbe gilt für ROR&() (16 
Bit), wobei dann jedoch das Bit 15 des Ergebnisses in die Bits 16-31 
kopiert wird (vorzeichenbehaftet). 


Version 3.0 

SWAPO HI- und LO-Word vertauschen 

Var=SWAP(Wert) 

- Funktion - (siehe SWAP als Befehl) 

Vertauscht das LO-Word (Bits 0-15) von Wert mit dessen Hl-Word 
(Bits 16-31). Wert wird dabei grundsätzlich als 32-Bit-Integerwert in¬ 
terpretiert. Wird Wert als Realwert übergeben, werden evtl, vorhan¬ 
dene Nachkommastellen vor Ausführung der Operation integriert 
(siehe INT()). Kleinere Wert-Formate als 32 Bit werden auf Long er¬ 
weitert. 

SWAPO als V2.xx-Funktion; 

Print Bin$(aswap(&X10011110100010011101011001)) 

Deffn Suap(WertX)=(UertX And &HFFFF)»2‘16+<UertX/Z‘16) 
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Version 3.0 

WORDO Wert auf 32 Bit erweitern 

Var=WORD(Wert) 

Erweitert Wert arithmetisch (vorzeichenbehaftet) auf 32 Bit. Das Bit 
15 von Wert wird dabei in die obersten 16 Bits des Ergebnisses ko¬ 
piert. Ist also Bit 15 (16. von links) von Wert gesetzt, so ist das Ergeb¬ 
nis von WORD(Wert) negativ. 

WOREK) als V2.xx-Funktion: 

Print Bin$(aUord(&X1111110111011001)) 

Deffn Uord{UertX)=({UertX And 2*15)/2‘15)*2‘16»(2‘15-1)-2‘31+UertX 

Version 3.0 

XORO eXclusivOR-Funktion 

Var=XOR(Wert1,Wert2) 

Verknüpft logisch die beiden angegebenen Werte im XOR-Modus und 
liefert das Integer-Ergebnis. Weiteres siehe unter AND(). 

XOR() als V2.xx-Funktion: 

Print aXor(4X11010001,4X10011100) 

Deffn Xor(Uert1X,Uert2X)°Wert1X Xor Wert2X 


8.7 Zufallswert-Erzeugung 


Hando 


Version 3.0 


i6-Bit-Integer-Zufallszahl 


Var=RAND(n) 

Übergibt eine vorzeichenlose 16-Bit-Integer-Zufallszahl aus dem 
Zahlenbereich 0 (inkl.) und n (exkl.). Größere Werte für n als 65535 
werden durch n MOD 65535 auf den zulässigen Bereich umgerechnet. 
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RANDOMQ 32-Bit-Integer- Zufallszahl 

Var=:RANDOM(n) 

Übergibt eine 32-Bit-lnteger-ZufaUszahl aus dem Integer-Zahlenbe- 
reich 0 (inkl.) und n (exkl.), wobei n auch negativ sein kann. 

Version 3.0 

RANDOMIZE { RA } Zufallszahlengenerator initialisieren 

RANDOMIZE [(Start)] 

Inistialisiert den ST-Zufallszahlengenerator. Bei Verwendung des op¬ 
tionalen Parameters Start wird der Generator mit diesem Wert gestar¬ 
tet. Bei mehrfacher Verwendung desselben Startwertes beginnt immer 
dieselbe Zufallszahlenfolge mit Start als erstem Wert. Möchten Sie 
denselben Startwert intialisieren, der bei Systemstart gültig war, so 
kann die optionale Start-Klammer weggelassen oder RANDOMIZE 0 
verwendet werden. 


RNDO Dezimalstellen-Zufallszahl 

Var=RND [(Arg)] 

Es wird ein llstelliger (V2.xx) bzw. 13stelliger (V3.0) Zufallswert im 
Bereich zwischen 0 (inkl.) und 1 (exkl.) geliefert. Die gesamte Klam¬ 
mer ist optional und kann vernachlässigt werden. Wenn sie verwendet 
wird, so gilt Arg als Scheinargument ohne Bedeutung. 

Beispiel: 

Print Rnd(0)*10+3 ! Liefert zufällige Realzahl 

I im Bereich von 3 bis 10 
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9. Grafik 


9.1 Grafikdefinitionen 


BOUNDAFW{BOU}iii| 


Version 3.0 

P-Grafikumrandung an/aus 


BOUNDARY Flag 

Schaltet die Umrandung von P-Grafikobjekten (PBOX, PCIRCLE, 
POLYFILL etc.) an (Flag « 1) oder aus (Flag = 0). 


Beispiel: Diese Prozedur eignet sich zur Erzeugung der unterschied¬ 
lichsten geometrischen Figuren. Spielen Sie ein wenig mit den Ein¬ 
stellungsparametern und den Punktangaben der POLYxxx-Befehle. Das 
Koordinatenfeld wurde vorsorglich auf maximal 60 Punkte dimensio¬ 
niert, um Veränderungen der Schrittweite zulassen zu können. Ein 
rechtwinkliges Dreieck läßt sich z.B. dadurch erzeugen, indem Sie die 
Schrittweite STEP von 120 auf 90 ändern. Ein exzentrisches Dreieck 
entsteht, wenn Sie STEP kleiner 90 werden lassen. Ein gleichmäßiges 
Sechseck entsteht, indem Sie STEP 60 e^mstellen und gleichzeitig die 
Punktangaben bei POLYLINE auf 7 sowie bei POLYFILL und PO¬ 
LYMARK auf 6 Punkte ändern. 



Defmark ,4 
Deffill ,2,4 
For 1X=0 To 360 Step 20 
Boundary 0 

actri{1,120,110,100,IX) 
actri(2,120,110,60,IX) 
actri(3,120,110,64,IX) 
Boundary 1 

actri(2,120,280,60,IX) 
Next IX 


I Harker einstellen 
I DEFILL grau 

i Einmal rundherun in 20-Grad-Steps 
I Rahmen aus 


I Rahmen an 
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Procedure Ctr1(ModX,XpX,YpX,RdX,WiX> ! Für Hi res und Midres 
' Produziert ein Dreieck, das in einem beliebigen Uinkel 
' und mit beliebiger Größe dargestellt werden kann. 

' HodX = Darstellungsmodus 

' 1 = Nur Linie 

■ Z = Gefüllte Dreiecksfläche 

' 3 = Marker 

' Möchten Sie nur die Eck-Koordinaten ermitteln, ohne daß 

' die Figur gezeichnet wird, so übergeben Sie ModX = 0. 

■ Die Eck-Koordinaten können Sie dann nach Rückkehr aus 

■ PxX(0)/PyX(0) bis PxX(2)/PyX(2) auslesen. 

I 

' XpX/YpX = Koordinaten des Mittelpunktes (Drehpunktes) 

' RdX = Umkreisradius 

■ UiX = Neigungswinkel 


Local JX,IX,YtX 1 
YtX=Min{2,3-Xbios(4)) I 
Erase PxXO I 
Erase PyX() I 
Dirn PxX(4),PyX{4) I 
For IX=-UiX To -WiX+360 Step 


Lokale Variablen 
Y-Auflösungsteiler 
POLY-X-Feld löschen 
POLY-Y-Feld löschen 
POLY-Felder dimensionieren 
120 I Einmal rundum 


PxX(JX)=XpX+(Sin(IX*Pi/180)*RdX+0.5) I Koordinaten... 
PyX(JX)»YpX+(Cos{IX*Pi/180)»RdX/YtX+0.5) I ...berechnen 


Inc JX 


I Ecken-Zähler +1 


Next IX 
If ModX=1 
Polyline 
Endif 
If ModX=2 
Polyfill 
Endif 
If ModX=3 


4,PxX{),PyX() 


3,PxX(),PyX() 


I Nächste Ecke 
I Nur Linie? 

I Dann POLYLINE 

I Gefüllte Figur? 
I Dann POLYFILL 

I Als Marker? 


Polymark 3,PxX(),PyX() I Dann POLYMARK 
Endi f 


Return 


COLOR { CO } Linfenfarbe bestimmen 

lnV3.0:{C} 

COLOR Farbe 

Bestimmt das Farb-Register aus dem linien- und punktezeichnende 
Grafikobjekte (LINE, PLOT, DRAW, CIRCLE, BOX etc.) ihre Farben 
beziehen. 

Hi res (640/400) => Farbe = 0 oder 1 
weiß, schwarz 

Midres (640/200) => Farbe = 0 _ 3 

weiß, schwarz, rot, grün 
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Loures (320/200) => Farbe =0 ... 15 

weis, schwarz, rot, grün, blau 
türkis, gelb, violett, hellgrau 
dunkelgrau, hellrot, hellgrün 
hellblau, helltürkis, hellgelb 
hellviolett 

Die unter den Auflösungen aufgeführten Farben sind jene, die bei 
Systemstart standardmäßig voreingestellt sind. Der Inhalt der Register 
kann mit dem Befehl SETCOLOR bestimmt werden. 

Anmerkung: Wundern Sie sich bitte nicht, wenn der bei SETCOLOR 
verwendete Registerindex nicht mit dem COLOR-Registerindex über¬ 
einstimmt. Haben Sie mit SETCOLOR z.B. das Register 4 auf blau 
eingestellt und versuchen nun eine blaue Linie zu ziehen, indem Sie 
vor dem LINE-Befehl COLOR 4 einstellen, kann es sein, daß die Li¬ 
nie nicht blau, sondern orange (oder so) wird. Das liegt daran, daß mit 
SETCOLOR der TOS-Index angesprochen wird, während der CO- 
LOR-Befehl über das VDI realisiert wird. 

Decodierungstabelle (Lowres): 


j SETCOLOR: j Oj 1j 2j 3j 4j 5j 6j 7j Sj 9j10j11 j12j13jUj15 

j COLOR : j o| zj 3j 6j «j zj sj sj 9j10[11j14j12j15j13[ 1 
I_I_I_I_I_I_I_I_I_I_I_I_I_I_I_I—I_ 

COLOR : j Oj 1j 2j 3j 4j 5j 6' Zj 8j 9j10j11j12j13j14j15 

SETCOLOR: j ojisj lj 2j 4j öj 3 sj zj sj 9j10j12[14j11j13 

I_I_I_I_I_I_I_I_I_I_I_I_I_ I —I—I_ 

Decodierungstabelle (Midres): 


j COLOR : I 0| 1j 2| 3| 
j SETCOLOR: j oj 3j lj 2j 


Haben Sie z.B. mit SETCOLOR das Register 3 eingestellt, müssen Sie 
COLOR 6 einsetzen, um die Farbe aus dem SETCOLOR-Register 3 als 
Linienfarbe verwenden zu können. Anders herum: Haben Sie COLOR 
14 verfügt, werden anschließend linienzeichnende Befehle mit der im 
SETCOLOR-Register 11 eingestellten Farbe ausgeführt. 

Ein Beispiel finden Sie unter SETCOLOR. 


SETCOLOR: I oj lj 2j 3 
COLOR : I oj 2| 3| 1 
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DEFFILL { DEFF } Ffillmuster bestimmen 

DEFFILL [Farbe],[Stil],[Muster] 

DEFFILL [Farbe],Musters 

Legt Füllfarbe, Füllstil und Füllmuster für P-Grafikbefehle und FILL 
fest, bzw. ermöglicht eigene Muster-Definitionen. 

Parameter Farbe siehe unter COLOR. 

Stil Muster 

0 = Hintergrufxifarbe => Entfällt 

1 = Objektfarbe => Entfällt 

2 = Punktiert => 2 bis 24 

3 = Schraffiert => 1 bis 12 

4 = Selbstdefiniert => Atari- bzw. Benutzer-Muster 

Parameter, die unverändert bleiben sollen, können ausgelassen werden 
(jedoch nicht die dazugehörigen Trennkommas). 

Mit der Variante DEFFILL Farbe,MusterS läßt sich ein eigenes Füll¬ 
muster einrichten. Dazu ist in MusterS ein 16 (bzw. 32/64 siehe unten) 
Words langer String zu übergeben. Dieser beinhaltet 16 Words (bzw. 
32/64 siehe unten) im MKI$-Format, die der Reihe nach die Bit-Mu¬ 
ster der 16 Musterzeilen enthalten. 
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Beispiel: 

F.muster$=Mki$(8Xl111111111111111) 

F. mus terS=F. muster$+Mk i $(&X 1000000000000000) 
F .muster$=F .mus ter$+Mk i$(&X1000000110000000) 
F.muster$=F.muster$+Mki$(&X1000001001000000} 
F.tnuster$=F.muster$+Mki$(&X1000010000100000) 
F.musterS=F.muster$+MkiS(&X1000100000010000) 
F.musterS=F.muster$+Mki$(&X1001000110001000) 
F.niuster$=F.musterS+Mki$(&X1010001111000100} 
F.nuster$=F.nuster$+Hki$(iX1001000110001000) 
F.nusterS^F.musterS-fMkiSC&XI 000100000010000) 
F.nustert=F.mustert+Hki$(&X1000010000100000) 
F.muster$=F.muster$+Mki$(&X1000001001000000) 
F.inuster$=F.muster$+Mki$(&X1000000110000000) 
F.inuster»=F.tnuster$+Mki$(&X1011111111111110) 
F.musterS=F.imjster$+Mki»(&X1001111111111000) 
F.muster$=F.muster$+Hki»(&X1000000000000000) 
DeffiU 1,F.muster$ 

Pbox 100,100,200,200 



In Version V3.0 kann für jede mögliche Bit-Plane Jeweils ein 16 
Word-Block in MusterS übergeben werden. D.h., in den Words 1 bis 
16 steht dann das Bit-Muster für die Plane 1 (Hires), in den Words 17 
bis 32 das zusätzliche Bit-Muster für Plane 2 (Midres) und in den 
Words 33 bis 64 das zusätzliche Bit-Muster für Plane 3 und 4 (Low- 
res). 
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Beispiel 2: 


Graphmode 2 
For IX=0 To 7 
Deffill IX,3,IX 
Pcircle 16,16,16 
Deffill IX+2,3,IX+2 
Pcircle 48,16,16 
Next IX 

aofill3(7,7,Df$) 

• aofill2(7,7,*Df$) 
Deffill 1,Df$ 

Pbox 15,64,192,192 
Graphmo^ 3 
ÜDfi113(42,7,DfS) 

• aofil12(42, 7,*Df») 
Deffill 1,Df$ 

Pbox 105,14,192,112 

I 


I.. 

I Irgendein 
I Bit-Muster 
I erzeugen 
!.• 

I V3.0-Aufruf 

I V2.xx-Aufruf nur in Hires 
I Neues Füllmuster.. 

I ...zeigen 
I XOR-Hodus 
I V3.0-Aufruf 

I V2.xx-Aufruf nur in Hires 
I Neues Füllmuster.. 

I Zeigen (mit Überlappung) 


Procedure Dfill3(D.xX,D.^,Var D.ffS) I nur für V3.0 
' Kopiert einen beliebigen 16*16-BiIdschirmausschnitt im 
' DEFFILL-Format in eine String-Variable (Hires/Midres/Lowres) 
' D.xX = Linke Quell-X-Koordinate 
' D.yX = Obere Quell-Y-Koordinate 
' D.ffS = VAR-String-Variable, welche nach AbschluB 
■ die Füllmusterdaten enthält 

Local D.frS,Dc1X,Dc2X,D.f$,XbX I Lokale Variablen 

Get D.xX.D.yX.D.xX+IS.D.yX+IS.D.frS I Ausschnitt speichern 
XbX=Xbios(4) I Auflösung holen 

If XbX=2 I Hires? 

D.f$=Right$(D.fr$,32) I Muster übertragen 

Else ! Midres oder Loures I 

For Dc1X=0 To 3-XbX*2 I 

For Dc2X=0 To 15 I 

D.f$=D.f$+Mid$(D.fr$,7+Dc1X*2+Dc2X*(8-XbX»4),2) 

' ...isolieren und in String einbinden 
Next Dc2X I Nächste Zeile 

Next DclX I Nächste Bit-Plane 

Endif 

D.ff$=D.f$ I Muster-Rückgabe 

Return 


2x bzu. 4x 
16 Musterzeilen... 


Procedure Dfill2(D.xX,D.yX,D.fX) I V2.xx (nur in Hires) 
' D.xX, D.yX siehe oben 

■ D.fX = Pointer auf Rückgabe-String-Variable, welche 
' nach AbschluB die Füllmusterdaten enthält 

Local D.frS 

Get D.xX,D.yX,D.xX+15,D.yX+15,D.fr* 
•D.fX=Right$(D.fr$,32) 

Return 
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DEFLINE {DE} Linien-Modi bestimmen 

DEFLINE [Stil],[Dicke],[Forin.a],[Form.e] 

Mit diesem Befehl kann das bei linienzeichnenden Befehlen (BOX, 
LINE, CIRCLE, DRAW etc.) zu verwendende Linienmuster festgelegt 
werden. 

Stil: 

0 = Linie in Hintergrundfarbe 

1 = Ourchgezogene Linie _ 

2 = Gestrichelte Linie 1 _ _ _ 

3 = Gepunktete Linie _ _ _ _ _ _ 

4 = Punkt-Strich-Linie _ _ _ _ _ _ 

5 = Gestrichelte Linie 2 _ _ _ _ 

6 = Strich-Punkt-Punkt-Linie _ _ 


-1 

bis = Benutzerstil 
-32767 

Der selbstdefinierte Linienstil setzt sich aus einem 15-Bit-Wert zu¬ 
sammen, wobei jedes gesetzte Bit einem Punkt in der Linie entspricht. 
Diese Zahl muß als Minuswert übergeben werden. Die Linie setzt sich 
dann aus dem Vielfachen dieser 15 Bits zusammen. Die Stil-Verände¬ 
rungen wirken sich nur bei Liniendicke 1 aus. Alle anderen Linien¬ 
dicken werden als Voll-Linie gezeichnet. 

Dicke legt die Liniendicke fest, wobei diese nur in 2er-Schritten bis 
zum Maximalwert 39 (1, 3 .... 37, 39) verändert werden kann. Form.a 
und Form.e bestimmen die Linienanfangs- und -end-Form: 

0 = Eckig 

1 = Pfeilförmig 

2 = Rund 

Beispiel: 

For IX=1 To 6 
Defline IX,1,0,0 
Line 200,55+IX*16,300,55+IX*16 
Print At(38,4+lX);IX 
Next IX 

Defline -18149,1,0,0 I -18149 = -&X100011011100101 

For IX=1 To 90 Step 4 
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Box 10+IX,10+IX,190-IX,190-1* 
Next IX 


Über das VDI läßt sich auch das Linienmuster innerhalb von AES- 
Formularen (FILESELECT-, ALERT-Box etc.) variieren (siehe Bei¬ 
spiel 2 unter DEFTEXT). 


DEFMARK { DEFM } Markierungs-Symbol bestimmen 

In V3.0: { DEFMA } 

DEFMARK [Farbe],[Typ],[Größe] 

Festlegung von Farbe, Typ und Größe der Markierungssymbole. 

Markertyp: 

1 = Ein-Pixel-Punkt 

2 = Plus-Zeichen 

3 = Sechszackiger Stern 
A = Liegendes Rechteck 

5 = Diagonalkreuz bzu. X 

6 = Liegende Raute 

12 3 4 5 6 


4- « □ K O 



Alle Marker besitzen unveränderlich eine Liniendicke von einem Pi¬ 
xel. Die Markergröße (in Pixeln) ist nur in Iler-Schritten ab dem 
Wert 6 bis zum Maximalwert 83 veränderbar. Markerfarbe siehe unter 
COLOR. 


Beispiel: 


Dim XX(1),YX(1) 

For IX=1 To 6 

For JX=6 To 83 Step 11 
XX(0)=16+IX*50-JX/1.5 
YX(0)=20+JX*1.7 
Defmark ,IX,JX 
Polymark 1,XXO,YXO 
Next JX 


! DIM POLYxxxx-Felder 
! 6 Typen 
! Alle Größen 
! X-Koordinate 
! Y-Koordinate 
! Marker einstellen.. 
! ...und zeichnen 
! Nächste Größe 
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Print At(4+IX*6,1);IX ! Typen-Index ausgeben 

Next IX ! Nächster Typ 


DEFMOUSE { DEFMO } Mausform bestimmen 

lnV3.0:{DEFM} 

DEFMOUSE Form 
DEFMOUSE MausS 

Aufruf von selbstdefinierten oder systemeigenen Mausformen. 


D 

I 




+ 

B 

HH 

H 

1 

1 

3 

4 

5 

H 

7 


Form (vordefiniert); 

0 = Pfeil 
2 > Biene 
4 = Offene Hand 
6 = Fadenkreuz grob 


1 = X-Klammer (Text-Cursor) 
3 = Zeigende Hand 
5 = Fadenkreuz fein 
7 = Fadenkreuz umrandet 


Statt Form kann durch MausS eine String-Variable angegeben werden, 
deren Inhalt im MKI$-Format die Mausform definiert. 


Word I 

X-Koordinate des Aktionspunktes. 


Word 2 

Y-Koordinate des Aktionspunktes. Auf den Aktionspunkt werden an¬ 
schließend alle Mausaktionen (z.B. Mousex, Mousey) bezogen. 


Word 3 

Immer MKI$(1). 


Word 4 

Maskenfarbe (Hintergrund des Mausbildes): 


ueiB = MKI$(0)/schuarz = MKI$(1} 
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Word 5 

Cursor-Farbe (Mausbild). 

Word 6 bis 21 

16-Bit-MusterzeiIen der Mausmaske. 

Word 22 bis 37 

16-Bit-Musterzeilen des Mausbildes. 

Die Definition einer Mausform ist nur zweifarbig möglich. 
Beispiel: 

Deffill ,2,2 I DEFFILL hellgrau 

Pbox 11,11,23,23 I Erstes Mausbild zeichnen 

aOmouse<10,10,0,0,Ms1$,Ms2$) I V3.0-Aufruf 

' a0mouse{10,10,0,0,*Hs1$,*Ms2$) I V2.xx-Aufruf 

Line 17,12,17,22 ! Mausbild verändern 

a0mouse(10,10,0,0,Ms3$,Ms4$) ! V3.0-Aufruf 

• a0mouse{10,10,0,0,*Ms3t,*Ms«) I V2.xx-Aufruf 

Line 12,17,22,17 I Mausbild verändern 

aOnK>use(10,10,0,0,MsS$,Ms6S) I V3.0-Aufruf 

' a0inouse(i0,10,0,0,*Ms5$,*Ms6S) ! V2.xx-Aufruf 

Circle 17,17,6 I Mausbild nochmals verändern 

a0mouse(10,10,0,0,Ms7$,Ns8$) I V3.0-Aufruf 

' aOinouse{10,10,0,0,*Ms7$,»Ms8$) I V2.xx-Aufruf 

Cls I Bildschirm löschen 

Deffill ,2,S I DEFFILL schwarz 

Pbox 100,100,200,200 I Schwarze Box zeichnen 

Print "Ende = Maustaste gedrückt halten" 

Repeat 
Pause 10 

Defmouse Ms1$ I Maus 1 (positiv) 

Pause 10 

Defmouse Ms2S I Maus 1 (negativ) 

Pause 10 

Defmouse Ms3S ! Maus 2 (positiv) 

Pause 10 

Defmouse Ms4$ I Maus 2 (negativ) 

Pause 10 

Defmouse MsSS I Haus 3 (positiv) 

Pause 10 

Defmouse Ms6S I Maus 3 (negativ) 

Pause 10 

Defmouse MsTS I Haus 4 (positiv) 

Pause 10 

Defmouse Hs8$ I Haus 4 (negativ) 

Until Housek 

I 

Procedura Dmouse(HxX,HyX,HxaX,HyaX,Var Msp1$,Msp2$) ! V3.0-Kopf 
' Procedura Dmouse(MxX,HyX,MxaX,HyaX,Msp1X,Msp2X) I V2.xx-Kopf 

I 
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Liest einen 16*16-Pixe'l-Block als Hausform ein und 
liefert die Maus als Positiv und als Negativ. 

Für Hires/Midres/Loures. 


' HxX « Linke Quell-X-Koordinate 

' MyX « Obere Quell-Y-Koordinate 

' HxaX • Aktionspunkt-X-Koordinate im Hausbild (0-15) 

' HyaX > Aktionspunkt-Y-Koordinate im Mausbild (0-15) 

' ' Hsp1X= in V2.XX = Pointer ... . welche nach 

' ... auf Rückgabe-String-Variable, j AbschluB die 

' Msp1S= in V3.0 Rückgabe-String-Variable, --' pos. Hausdaten 
' enthält. 

' ' Msp2X= in V2.XX = Pointer ... . welche nach 

' ... auf Rückgabe-String-Variable, | AbschluB die 

' Hsp2$= in V3.0 Rückgabe-String-Variable, --' neg. Mausdaten 
' enthält. 

Local Mspr$,HcntX,NinsS,Hspr1$,Mspr2X,XbX I Lokale Variablen 
XbX^XbioslA) I Auflösung holen 

Boundary 0 I P-Rahtnen aus (V3.0) 

' Dpoke Vdibase+34,0 I P-Rahmen aus (V2.xx) 

Mms$=Mki$(MxaX)+Mki$(HyaX)+Mki$(1)+Hki$(1)-rHki$(0) 

' I Maus-String-Header 

Get MxX,HyX,MxX+15,MyX+15,Mspr$ I Bit-Muster speichern 

Get MxX-2,MyX-2,MxX+17,MyX+17,Mspr1$ I Hintergrund sichern 
Deffill ,0,0 I Arbeitsbereich... 

Pbox MxX-1,MyX-1,MxX+16,MyX+16 I ...löschen 
For IX=0 To 360 Step 45 I einmal rundum 

PxX=HxX+(Sin(IX*Pi/180)+0.5) ! X-Koordinate -. Bild in allen 

' ! [ Richtungen je 

' ! j um ein Pixel 

PyX=MyX+(Cos(lX*Pi/180)+0.5) I Y-Koordinate -' versetzt, 

Put PxX,PyX,MsprS,7 ! im Transparentmodus zeichnen 

Next IX 

Get MxX,MyX,MxX+15,MyX+15,Mspr2$ I Maske speichern 

Put MxX-2,MyX-2,Mspr1$ I Hintergru^ restaurieren 

Put MxX,MyX,Mspr$ I Mausbild restaurieren 


For HcntX=0 To 15 ! 16 Maskenzeilen in... | 

Mms$=Mms$+Mki$(Dpeek(Varptr(Hspr2$)+6+McntX*2*2‘(2-XbX)))! 

' P ...Haus-String einbinden ! M 

Next HcntX I nächste Maskenzeile A 

For McntX=0 To 15 I 16 Mausbildzeilen in... { U 

Mms$=Mms$+Mki$(Dpeek(Varptr(Hspr$)+6+HcntX*2)) I S 

' I ...Maus-String einbinden j 

Next McntX I nächste Bildzeile 


•* Zu diesem Block beachten Sie das Beispiel zu SPRITE •• [ S 

For McntX=0 To 15 ! P 

MmsS=Mms$+Hki$(Dpeek(Varptr(Mspr2$)+6+McntX*2*2'(2-XbX)))l R 
Mms$=Mms$+Hki$(Dpeek(Varptr(Hspr$)+6+McntX*2*2‘(2-XbX))) I I 

Next McntX I T 

.■ E 


Boundary 1 

' Dpoke Vdibase+34,1 
Hsp2$=Mms$ 

■ *Msp2X=Hms$ 

Mid$(MmsS,7,4)=HklS(1) 

MsplS'HmsS 


I P-Rahmen ein (V3.0) 

I P-Rahmen ein (V2.xx) 

I Negativ-Maus-Rückgabe (V3.0) 

I Negativ-Maus-Rückgabe (V2.xx) 

I Positiv-Flag im Maus-Header an 
I Positiv-Maus-Rückgabe (V3.0) 
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• *Hsp1X=M(ns$ I Positiv-Maus-Rückgabe {V2.xx) 

Return 

Unter ALERT finden Sie ein etwas ungewöhnliches Verfahren be¬ 
schrieben, eigene Maus-Images zu installieren, die dann über DEF- 
MOUSE 0-7 einsetzbar sind und resident im Speicher bleiben - auch 
wenn Sie das GFA-BASIC verlassen. 


DEFTEXT { DEFt > Grafik-Text-Modi bestimmen 

DEFTEXT [Farbe],[Art],[Winkel],[Größe],[Face] 

Festlegung der Darstellung von Grafiktext. Außerhalb von GEM-Fen- 
stern hat dieser Befehl nur Auswirkung auf die mit TEXT ausgegebe¬ 
nen Zeichen. Innerhalb von GEM-Fenstern können auch mit PRINT 
ausgegebene Zeichen beeinflußt werden. 

Der innerhalb von ALERT- und FILESELECT-Boxen, sowie GEM- 
Fenstern verwendete Text kann zudem über VDI-Funktionen beein¬ 
flußt werden. Ebenso die darin verwendeten Linienarten. Diese lassen 
sich also bis zu einem gewissen Grad individuell verändern (siehe 
Beispiel 2). 

Parameter Textfarbe siehe unter COLOR. 

Art gibt die Textart an (5-Bit-Vektor); 

Bit 0 gesetzt = bold (fett) 

Bit 1 gesetzt = lightend (grau) 

Bit 2 gesetzt = italic (schräg/kursiv) 

Bit 3 gesetzt = underlined (unterstrichen) 

Bit 4 gesetzt = outlined (umrandet) 
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TEXTSTIL 0 TEXTSTIL B »'Ö’Slj’SIL äß 

1 THTSTIL 9 lÜiS'DSüaL ! 

TEXTSTIL 2 lEXTSIXL lö triStiliSiL m SÜSIiSSlL. M. 

lEXTSTiL I textste,.. 11 m 

TEXTSTR 4 TEXTSTR 12 SO) f/fSSfiSimL m 

wnsm 5 lEHSTR ij msBsmiL ss imfmm ^ 

^Esrji 6 m Mmmm. . m 

rExrsrR . m 

Aus den 32 möglichen Kombinationen dieser S Bits ergeben sich also 
32 (0 - 31) verschiedene Textarten. 


Winkel stellt den Textrotationswinkel ein: 


0 > Normale Lage. 

900 < Senkrecht von unten nach oben 
1800 • Waagerecht von rechts nach links 
2700 • Senkrecht von oben nach unten 


Größe gibt die Höhe der Textzeichen (0 - 26) an, z.B.; 

4 = Icon-Schrift 6 = Farbschrift (8*8) 

13 • Normalschrift (8*16) 26 = Manrnut-Schrift 


Face steht für den Index des gewünschten GDOS/VDI-Fonts. Siehe 
dazu GDOS?, VDIBASE-f 52, VDIBASE+68, VST_L0AD_F0NTS() 
und VQT_NAME(). 

Beispiel 1 (nur Hires): 

Graphmode 2 
For JX=0 To 1 
For I5t=0 To 15 

Deftext 1,IX+JX*16,,13 I Textart einstellen 

Text 10+JX*80,20+IX*22,"TEXT ••♦Str$(IX+JX*16) 

Next IX 
Next JX 

For JX=0 To 2700 Step 900 

Deftext 1,0,JX,13 ! Textwinkel einstellen 

Text 300,120," TEXT "+Str$(JX) 

Next JX 

For JX=4 To 26 

Deftext 1,0,0,JX ! Texthöhe einstellen 

Text 380,JX*17-60,"TEST-TEXT "+Str$(JX) 

Next JX 
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Beispiel 2 (VDI-Text): 


Pbox 0,0,639,399 
Ltype(l,2) 

Ttype(1,4) 

Tsize(1,6) 

Fileselect '"•,A$ 

Ttype(1,1) 

Tsize{1,9) 


I Gestrichelte Linie 
I Text-Typ ''normal-kursiv" 
I Text-Höhe 6 
I AES-FILESELECT 
I Text-Typ fett 
I Text-Höhe 9 


Alert 2,''ALERT-Text'',1,"BUTTON",AX 1 AES-ALERT 
Ttype(1,0) I Text-Typ normal -. Standard 

Tsize(1,13) I Text-Höhe 13 -' Einstellung 


Ltype(1,1) 


I Standard-Voll-Linie 


Procedure Ttype(HandleX,TypeX) I VDI-Textart 
Dpoke Contrl+2,0 I CONTROL-Feld.. 

Dpoke Contrl+6,1 I ...vorbereiten 

Dpoke ContrU12,HandleX I VDI-Handle (siehe VDIBASE+AO) 

Dpoke Intin,TypeX I Textart (s.o.) 

Vdisys 106 I Opcode 

Return 

Procedure Tsize(HandleX,SizeX) I VDI-Texthöhe 
Dpoke Contrl+2,0 I CONTROL-Feld.. 

Dpoke Contrl+6,1 I ...vorbereiten 

Dpoke Contrl+12,HandleX I VDI-Handle (siehe VDIBASE+40) 

Dpoke Intin,SizeX I Texthöhe (s.o.) 

Vdisys 107 I Opcode 

Return 

Procedure Ltype(HandleX,LndefX) I VDI-Liniemuster 
Dpoke Contrl+2,0 ! CONTROL-Feld.. 

Dpoke Contrl+6,1 I ...vorbereiten 

Dpoke Contrl+12,HandleX I VDI-Handle (siehe VDIBASE+40) 

Dpoke Intin,7 I Selbstdefiniertes Flag 

If LndefX=>0 And LndefX<7 I Standard-Linien? 

Dpoke Intin,LndefX I Dann Standard-Einstellung 

Vdisys 15 I Defline-Opcode 

Else I Frei definiertes Muster? 

Vdisys 15 I Defline-Opcode 

Dpoke Intin,LndefX I Eigenes Muster installieren 

Vdisys 113 I User-Style-Opcode 

Endif 
Return 


ÖRAPHMODE { G } Grafikmodus bestimmen 

In V3.0: { GR } 

GRAPHMODE Modus 

Modus bestimmt den Operationsmodus, mit welchem Grafikausgaben 
in den bestehenden Hintergrund eingesetzt werden. 
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0, 1 = REPLACE 

Das verwendete Grafik-Element (Pbox, Line etc.) wird vollflächig 
dargestellt. Alles, was sich darunter befindet, wird davon überdeckt 
und ersetzt. 

Neuer Punkt = Farbmaske d. neuen Punktes AND neuer Punkt 


2 = TRANSPARENT 

Es werden nur dort Bildpunkte gesetzt, wo dem neuen Grafik-Element 
Farben zugeordnet wurden. Wo keine Farben darzustellen sind, bleibt 
der alte Hintergrund erhalten. Die neue Fläche erscheint also durch¬ 
sichtig. 

Neuer Punkt = (Farbmaske d. neuen Punktes AND neuer Punkt) 

OR (Farbe d. alten Punktes AND NOT neuer Punkt) 


3 = XOR (EXCLUSIV ODER) 

Ist in dem zu zeichnenden Grafik-Objekt ein Punkt gesetzt und dieser 
trifft auf einen Bildschirmpunkt gleicher Farbe, so wird der Punkt 
"gelöscht", d.h. er erscheint in der Hintergrundfarbe (Farbregister 0). 
Bei Aufeinandertreffen unterschiedlicher Farben ergibt sich die Farbe 
des neuen Punktes aus der XOR-Verknüpfung der beiden Punktfar¬ 
ben. Der bereits gezeichnete Hintergrundpunkt bezieht seine Farbe 
z.B. aus dem Farbregister 6 und der neu zu zeichnende Punkt aus dem 
Register 12: 

0110 (dezimal 6) 

XOR 1100 (dezimal 12) 

= 1010 (dezimal 10) 


Der neue Punkt erhält seine Farbe aus Register 10. Setzt man zwei 
gleiche Grafik-Elemente in diesem Modus auf exakt dieselbe Stelle, 
wird das erste vom zweiten wieder gelöscht, ohne den vorherigen 
Hintergrund zu zerstören. Neuer Punkt = neuer Punkt XOR Farbe d. 
alten Punktes 


4 = REVERS TRANSPARENT 

Dieser Modus ist identisch mit Modus 2, nur daß die Farben revers 
(umgekehrt) dargestellt werden. Alles was im neuen Grafik-Element 
z.B. als weiß definiert wurde, wird schwarz dargestellt und alles was 
als schwarz definiert wurde, weiß. Wenn also zwei gleiche Grafik- 
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Elemente einmal im Modus 2 und einmal im Modus 4 dargestellt wür¬ 
den, so wäre das zweite das exakte Negativ des ersten. 

Neuer Punkt = (Farbe d. alten Punktes AND neuer Punkt) OR 

(Farbmaske d. neuen Punktes AND NOT neuer Punkt) 



Beispiel: 


DeffiU ,2,5 
Pbox 10,10,200,90 
Box 8,8,202,124 
Text 30,118,160,"GRAPHMOOE" 
DeffiU ,2,4 
For IX=1 To 4 
Graphmode IX 

Pbox IX*50-35,22,IX»50-20,160 
Text IX»50-20,80,IX 
Next IX 


SETCOLOR { SE } Hardware-Farbregister einstellen 

lnVl^0:{SET} 


SETCOLOR Reg,Rot,Grün,Blau 
SETCOLOR Reg,Mischwert 

Es kann die Farbe des mit Reg angegebenen Farbregisters (Hardware) 
entweder durch die Farbanteile Rot, Grün und Blau (jeweils 0 bis 7) 
oder durch einen Mischwert (1 bis 1911) definiert werden. 

Misch wert = (Rotanteil*256)+(Grünanteil*16)+Blauanteil 

Der Hardware-Registerindex ist nicht identisch mit dem Index der 
VDI-Register (vgl. COLOR). 
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Decodierungstabelle (Lowres): 


SETCOLOR: j Oj 1j 2| 3 

.ti.ü.fi.ri.® 

9j10j11j12j13jUj15j 

COLOR : 1 oj zj sj 6 

‘1 '1 ’l •! ’ 

10|ll|u|l2|l5|l3| l| 


COLOR : 



11 

T2p3 

UjlSj 

SETCOLOR: 

0 

15 ' ll 2 I 4 I 6 ' 3 I 5 ' 7 I s' 9 
15| 1| 2| 4, 6| 3| 5| 7| 8| 9 

10 

izju 

I1I13I 


Decodierungstabelle (Midres): 

j SETCOLOR: | Oj 1j 2j 3j j COLOR : j Oj 1| 2j 3j 

j COLOR : I oj 2j sj lj I SETCOLOR: j oj sj l| 2| 

Der Versuch, im Hires-Modus die Register zu verändern, wird nicht 
mit verschiedenen Grautönen belohnt. Schwarz (Register 1) bleibt 
schwarz und weiß (Register 0) bleibt weiß. 

Bei verschiedenen Gelegenheiten ist es von Nutzen, die Registerein¬ 
träge nicht mit drei unabhängigen Parametern vorzunehmen, sondern 
einen Gesamt-Mischungswert zu übergeben. GFA-BASIC unterschei¬ 
det, ob ein oder mehrere Farbparameter übergeben wurden. Wird nur 
der Parameter Mischwert übergeben, setzt sich die Farbmischung nach 
folgendem Muster zusammen: 

Soll z.B. ein Blauanteil von 3, ein Rotanteil von 2 und ein Grünanteil 
von 5 übergeben werden, errechnet sich der Wert, indem man den 
Rotanteil mit 256 (2^8) multipliziert, den Grünanteil mit 16 (2"^4) und 
den Blauanteil mit 1 (2^0). In diesem Beispiel müßte der Wert 595 
übergeben werden, um die gewünschte Farbmischung zu erhalten. 

Durch die Möglichkeit, mit Hexadezimalzahlen zu arbeiten, kann man 
diese Berechnung folgendermaßen vereinfachen: 



Setcolor 1,&H2S3 



oder 

A=iH2S3 

1 

1 

1 

entspricht 


Setcolor 1,A 


Setcolor 1,2,5,3 

oder 

A$="&H"+''2''+"5"+''3'’ 

A=VaUA$) 

Setcolor 1,A 

1 

1 

1 

1 
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So lassen sich 512 verschiedene Farben (3 Farben mit je 8 Abstufun¬ 
gen = 8*8*8 = 512 Farben) erzeugen. 

Die Bits 0-3 von Mischwert bestimmen dabei den Rotanteil, die Bits 
4-7 den Grünanteil und die Bits 8-11 den Blauanteil der Farbe. 

Drei Register haben eine besondere Bedeutung; 

Register 0 = Hintergrundfarbe 
Register 1 = PRINT-Ausgabetextfarbe 

Register 3 • Textfarbe des BASIC-Editors 

Leider ist der Goethesche Farbkreis hier nicht anwendbar, da hier 
nicht die drei Elementarfarben Rot, Blau und Gelb gemischt werden. 
Um sich bei der Farbwahl zu orientieren, müßte aus Grün die Farbe 
Blau subtrahiert werden, um Gelb zu erhalten Trotzdem kann man 
sich seiner als allgemeine Richtlinie bedienen: 

ROT 

VIOLETT ORANGE 

UEISS 

BLAU GELB 

GRÜN 

Zur Farbphysik: 

Es existieren drei Elementarfarben : ROT, BLAU, GELB. 

Die 1:1-Mischung zweier dieser Farben ergibt die Komplementärfarbe 
(Gegenfarbe) der nicht beteiligten dritten Farbe. 

1:1 Mischung von ROT und BLAU ergibt VIOLETT 

(= Komplement zu GELB) 

1:1 Mischung von ROT und GELB ergibt ORANGE 

(= Komplement zu BLAU) 

1:1 Mischung von BLAU und GELB ergibt GRÜN 

(= Komplement zu ROT ) 

1:1:1 Mischung von ROT, BLAU und GELB ergibt WEISS. 

Ist keine der Elementarfarben beteiligt, ergibt sich die "Nichtfarbe" 
SCHWARZ. 


Beispiel (nur für Lowres): 
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Oim CX(15} ! DIN Farb-Speicher 

Setcolor 0,0 I Hintergrund schwarz 

For IX=1 To 15 I 15 Register (auBer 0) >. 

If IX<8 I 7 Werte von ueiB zu grün 

CX(IX):IX*16 I Grünanteil erhöhen 

Else I 8 Werte von gelb zu rot 

CX(IX)=7*256+(15-IX)*16 I Grünanteil vermindern 
Endif 

I Farbe setzen 

I Nächstes Register <. 

I 5 mal >. 

I Data-Zeiger setzen 

I 15 Farben >. 

I COLOR-Register holen 
I BOX- und CIRCLE-Farbe setzen 
Box 60+JX*20+IX,JX*20+IX,260-JX*20-IX,199-JX*20-IX 
Circle 160,100,JX*15+IX»10 
Circle 160,100,JX»15+IX*10+5 


Setcolor IX.CXdX) 
Next IX 
For JX=0 To 4 
Restore 
For IX=1 To 15 
Read AX 
Color AX 


Next IX 
Next JX 
Do 

BX=CX(15) 

For IX«U Downto 1 
CX(IX+1)=CX(IX) 
Next IX 
CX(1)=BX 
For IX=1 To 15 
- For JX=1 To 100 
Next JX 

Setcolor IX.CXdX) 
Next IX 
Loop 


I Nächste Farbe <- 
I Nächster Offset 
I Endlos-Schleife 
I--. 


I 

I- 

I 


Farben rotieren 


!--■ 


15 Register >. 

Kleine... 

...Pause 

Neue Farbe setzen 
Nächstes Register < 
<- 


Data 2,3,6,4,7,5,8,9,10,11,14,12,15,13,1, Umrechnungstabelle 


Dieses Beispiel produziert eine Farbspielerei, die für Interessierte 
leicht zur Meditationshilfe (für gestreßte Programmierer) oder zur 
Bio-Feedback-Methode "zweckentfremdet" werden kann. Die Farben 
pulsieren mit einer Frequenz von ca. 58 Zyklen pro Minute (ca. opti¬ 
male Pulsfrequenz bei Entspannung). Die Frequenz läßt sich leicht mit 
der Pausen-Schleife im letzten Block verändern. 


Wenn Sie übrigens das Flimmern Ihres Farbmonitors stört, können Sie 
dies unterdrücken, indem Sie SPOKE &HFF820A,0 eingeben (60 Hz). 
Durch SPOKE &HFF82 wird die Normaleinstellung restauriert. 
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Version 3.0 

VSETCOLOR{vse} VDI-Farbregister einstellen 

VSETCOLOR Reg,Rot,Grün,Blau 
VSETCOLOR Reg,Mischwert 

Dieser Befehl ist in seiner Syntax absolut identisch mit SETCOLOR. 
Der einzige Unterschied ist, daß hiermit in Version V3.0 die Farb- 
Register direkt mit dem VDI-Index angesprochen werden können. 

Wenn Sie mit VSETCOLOR z.B. das Farbregister 7 verändert haben 
und anschließend durch COLOR, DEFTEXT, DEFFILL etc. eine 
Farbe bestimmen, können Sie davon ausgehen, daß Sie auch die Farbe 
verwenden, die Sie vorher durch VSETCOLOR angegeben haben. 

Für VSETCOLOR gelten dieselben Decodierungs-Tabellen, die unter 
SETCOLOR und COLOR angegeben wurden. Für COLOR in den Ta¬ 
bellen können Sie also ebensogut VSETCOLOR einsetzen. 

Wie üblich folgt nun eine kleine Routine für die V2.xx-Versionen. 
Der Aufruf ist fast mit dem VSETCOLOR-/SETCOLOR-Befehl iden¬ 
tisch. Es werden allerdings generell 4 Parameter erwartet. Der erste ist 
das gewünschte Register als VDI-Index. Wollen Sie - wie bei 
(V)SETCOLOR - einen Mischwert angeben, so müssen Sie die beiden 
Parameter G% und B% als Minuswert (-1) angeben. In diesem Fall 
wird der Parameter R% als Mischwert interpretiert.Ist G% oder B% 
gleich oder größer Null, so werden die drei letzten Parameter als die 
RGB-Farbanteile gewertet. 

aVsetcolor(5,«,1,7) ! RGB-Anteile übergeben 

avsetcolorCS,1047,-1,-1) I Mischwert übergeben 

I 

Procedure \/setcolor(RegX,RX,GX,BX) 

Local TabelleS 

Tabelle$=Chr$(0)+Chr$(15)+Chr*(1)+Chr$(2)+Chr$(4)+Chr»{6) 

Tabelle$=TabelIe$+Chr$(3)+Chr${5)+Chr$(7)+Chr$(8)+Chr*{9) 
TabeUe$=TabeUe$+Chr$(10)+Chr$(12)+Chr$(14)+Chr$(11)+Chr*{13) 

If GX=>0 And BX=>0 

Setcolor Asc(Mid$(TabcUe$,RegX+1,1 )),RX 
Else 

Setcolor Asc(MidS(Tabelle$,RegX+1,1)),RX,GX,BX 
Endif 
Return 
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9.2 Objektgrafikbefehle 


BOX, PBOX { B, PB }- Rechteck zeichnen 

lnV3.0:{BO,PB} 

[P] BOX X_link8,Y_oben,X_recht8,Y_unten 

X_links/Y_oben und X_rechts/Y_unten bezeichnen die diagonal ge¬ 
genüber liegenden Ecken eines Rechtecks, das entweder als Linienzug 
(BOX) oder mit dem aktuellen DEFFILL-Füllmuster (PBOX) gezeich¬ 
net wird. 

Beispiel: Wenn es darum geht, ein größeres Raster mit PBOX zu füllen 
(z.B. in einer Lupe), sollte man - wenn irgend möglich - versuchen, 
die PBOX durch eine PUT-Fläche zu ersetzen. Das geht erheblich 
schneller. Bei kleinen Rastern fällt der Geschwindigkeitsunterschied 
nicht besonders auf, bei größeren Rastern ist es dagegen schon ein 
merklicher Unterschied, ob das Raster in 2 oder in 4 Sekunden gefüllt 
wird. Um das zu demonstrieren, folgt eine "kleine" Routine, die es 
ermöglicht, einen beliebigen Bildausschnitt zu vergrößern und/oder 
ihn für eine spätere Verwendung (raster-indiziert) in einem Feld zwi¬ 
schenzuspeichern. 

Hier ist eine kleine Bedienungsanleitung nötig. Sie können den Bild¬ 
bereich, in dem der vergrößerte Ausschnitt dargestellt werden soll, 
beliebig bestimmen. Außerdem kann die Rastergröße und die Breite 
und Höhe eines vergrößerten Rasterpunktes angegeben werden. Es ist 
ungünstig, wenn sich der Wiedergabe-Ausschnitt mit dem zu ver¬ 
größernden Ausschnitt überschneidet. Der Wiedergabe-Ausschnitt wird 
- sollten seine Eck-Koordinaten außerhalb des Bildschirms liegen - 
von der Routine auf den sichtbaren Bildschirm begrenzt. 

Ist die Routine aufgerufen, so wird ggfs, der vergrößerte Ausschnitt 
gezeichnet und die Routine wartet dann darauf, daß mit der rechten 
Maustaste der Lupeninhalt verändert wird. Verlassen wird die Lupe zu 
jedem beliebigen Zeitpunkt mit Druck auf die rechte Maustaste. 
Daran anschließend wird der Lupenhintergrund selbstständig restau¬ 
riert. 

Der Lupeninhalt wird verändert, indem mit der linken Maustaste der 
gewünschte Lupenpunkt angeklickt wird. Der Punkt verändert seine 
Farbe. Diese Farbe behält er auch bei Mausbewegungen solange bei, 
bis die Maustaste wieder losgelassen wird. In Midres und Lowres wird 
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bei jedem Mausklick auf einen Lupenpunkt sein Farbindex um 1 ver¬ 
mindert. Klicken Sie also z.B. in Lowres 16 mal auf denselben Punkt, 
nimmt er nacheinander alle 16 möglichen Farben an. In Farbe ist es 
ratsam, bei einem Punkt-Klick die Maustaste gedrückt zu halten, um 
zu sehen, welche Farbe sich ergibt. Solange Sie die Taste gedrückt 
halten, können Sie mit dieser Farbe innerhalb der Lupe zeichnen. Wird 
die Taste losgelassen, wird der Farbindex um 1 vermindert, auf dem 
sich die Maus zum Zeitpunkt des Klicks befindet. Haben Sie als Flag 
1 angegeben, so wird gleichzeitig auch der originale Bildschirmbereich 
entsprechend der Lupenänderung verändert. Nach Rückkehr aus der 
Prozedur ist der aktuelle Lupeninhalt in dem Feld 
Larr%(Rasterbreite,Rasterhöhe) gespeichert und kann damit auch 
außerhalb der Prozedur verwendet werden. 

Soll die Lupe nicht dargestellt werden, geben Sie als Flag 2 an. In 
diesem Fall wird nur das Feld Larr%() mit dem angegebenen Bildaus¬ 
schnitt gefüllt. Der Feldindex entspricht der Lage der Punkte im Ra¬ 
ster. Die Indizierung beginnt mit Null. Z.B. Larr%(0,0) enthält den 
Farbwert des 1. Punktes links oben in der Ausschnittecke und z.B. 
Larr%(12,6) den Farbwert des Rasterpunktes mit den Rasterkoordina¬ 
ten 13. Punkt von links/7. Punkt von oben. Grundsätzlich ist zu be¬ 
denken, daß das Feld - abhängig von der Rastergröße - eine ganze 
Menge Speicherplatz verbrauchen kann. Ein Raster von z.B. 50*50 
Punkten benötigt (50*50*4) 10000 Bytes. 

Weitere Informationen finden Sie unten in der Beschreibung der Pro¬ 
zedur. Die Prozedur ist - wie aus der Beschreibung erkennbar - in 
Hires, Midres und Lowres lauffähig, sowie in allen GFA-BASIC-Ver- 
sionen ab V2.0. 
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' Vorbereitung für beide Anuendungsbeispiele 


XtX=2-Sgn(Xbios(4)) ! X-Auflösungsteiler 

YtX=Hin(2,3-Xbios(A)) ! Y-Auflösungsteiler 

For IX=0 To 100 ! 100 mal 

Deffill Random(Max(1,(2'(2-Xbios(4)))'2-1))+1,2,Random(22) 
XX=Randoiii(590/XtX) I PBOX mit zufälliger... 

YX=Random(350/YtX) I ...Farbe, Muster und... 

Pbox XX,YX,X*+50/Xt*,YX+50/YtX ! ...Position zeichnen 
Next IX 

I 

■ Anwendungsbeispiel 1: 


Print "Lupe mit rechter Maustaste aufrufen" 

Do ! Endlos-Schleife 

Graphmode 3 I XOR-Modus für Flimmerbox 

Mouse XxX,YyX,KX I Maus-Status holen 

XxX=Max(130,XxX) ! Box-X-Position begrenzen 

YyX=Max(130,YyX) I Box-Y-Position begrenzen 

Box XxX-1,YyX-1,XxX+20,YyX+20 ! Flimmerbox... 

Box XxX-1,YyX-1,XxX+20,YyX+20 ! ...zeichnen 
If Mousek=2 I Rechte Maustaste gedrückt? 

Graphmode 1 I REPLACE-Modus an 

Lupe(XxX-20*6,YyX-20»6,20,20,6,6,1) I Aufruf 
Hi dem I Maus aus 

Endif 
Loop 


' Anwendungsbeispiel 2 (vorher Beispiel 1 löschen): 


Print "Maushintergrund (20*20) in Feld LarrXO einiesen. 
Print "beliebige Maustaste drücken" 

Repeat ! Auf... 

Until Mousek ! Mausklick warten 

8Lupe(Mousex-20*6,Mousey-20*6,20,20,6,6,2) ! Lupe aufrufen 
Cls ! Bildschirm löschen 

For IX=0 To 20-1 ! 20 Zeilen 

For JX=0 To 20-1 ! 20 Spalten 

Color LarrX(IX,JX) ! Punktfarbe setzen 
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Plot 100+IX,100+J* I Punkt zeichnen 

Next JX 
Next IX 

I 

Procedure Lupe(XpX,YpX,BrX,HoX,SxX,SyX,FIgX) 

' Für Hires/Hidres/Lowres 
' XpX = X-Xoordinate der Lupenbox 
' YpX = Y-Koordinate der Lupenbox 

■ BrX = Breite des zu vergröBernden Rasters 
' HoX > Höhe des zu vergröBernden Rasters 

■ SxX < Breite eines Lupen-Rasterpunktes 
' SyX = Höhe eines Lupen-Rasterpunktes 

• FlgX= Flag 

' 0 3 Lupe wird gezeichnet und kann verändert 

■ werden. Der Original-Ausschnitt bleibt 

' dabei unverändert. 

' 1 » Lupe wird gezeichnet und kann verändert 

' werden. Der Original-Ausschnitt wird 

' entsprechend der Lupenänderungen ebenfalls 

' verändert. 

' 2 3 Es wird nur das Rasterfcld mit den Punktfarben 

' des Original-Rasters gefüllt. Die Lupe wird 

' nicht gezeichnet. 

' Das Rasterfeld LarrXO wird auch bei Modus 0 und 1 gefüllt 
' und kann nach Rückkehr aus der Routine ausgewertet werden. 


Local IX,JX,Lb$,HxX,MyX,MkX,Xp2X,Yp2X,PktX 
Local XtX,YtX,PntX,HxxX,MyyX,PxrX,PyrX 
XtX=2-Sgn(Xbios(4)) I X-Auflösungsteiler 

YtX=Min(2,3-Xbios(4)) I Y-Auflösungsteiler 

SxX=Min(SxX,16) I Max. Punktbreite = 16 

XpX=Min(639/XtX,Max(XpX-10,0)) I Koordinaten der... 

YpX=Min(399/YtX,Max(YpX-10,0)) I ...Wiedergabe-Box... 

Xp2X=Min<639/XtX,Max(XpX+BrX»SxX+9,0)) I ...auf Bildschirm... 
Yp2X=Min(399/YtX,Max(YpX+HoX*SyX+9,0)) ! ...begrenzen 
Cet XpX,YpX,Xp2X,Yp2X,Lb$ I Hintergrund sichern 

Erase LarrXO I Rasterfeld löschen 

Dirn Bl$((2'(2-Xbios(4)))‘2),LarrX(BrX,HoX) ! DIM PUT- 


■ I und Rasterfeld 

If FlgX<>2 I Lupe zeichnen? 

For IX=0 To (2'(2-Xbios(4)))‘2 I Alle möglichen Farben 

' (2‘(2-Xbios(4)))'2 ergibt: 

' in Hi res = 1 

' in Midres = 4 

• in Lowres = 16 

Deffill IX,2,8 ! Füllmusterfarbe setzen 

PxrX=XpX+4+Min(BrX*SxX,18) ! Breite u. Höhe der... 

PyrX=YpX+4+Min(HoX*SyX,18) ! ...PBOX ermitteln 

Pbox XpX+4,YpX+4,pxrX,pyrX ! PBOX vollfarbig zeichnen 

Get XpX+5,YpX+5,XpX+5+15,YpX+5+15,Bl$(IX) I PUT-Box... 

' ! ..speichern (PBOX-Ersatz) 

Mid$(Bl$(IX),1,4)=Mki$(Max(1,SxX-1))+Mki$(Max(1,SyX-1)) 

' PUT-Header an gewünschte PunktgröBe anpassen 
Next IX 


Deffill 0,0,0 
Color 1 

Pbox XpX,YpX,Xp2X,Yp2X 

Box XpX,YpX,XföX,Yp^X 

Box XpX+4,YpX+4,Xp2X-4,Yp2X-4 


I DEFFILL weis 
I COLOR für Rahmenbox 
I Lupenhintergrund löschen 
I Lupenrahmen zeichnen 
I Lupenrahmen zeichnen 
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Endif 

Nouse HxX,HyX,HkX 
For IX=0 To BrX-1 
For J*=0 To HoX-1 
PntX=Point(MxX+1X,MyX+JX) 
If PntX 

L8rrX{IX,JX)=PntX 
If FlgX<>2 


I Aktuelle Nsuskoordinate 
! Raster-X-Index 
! Raster-Y-Index 
I Punktfarbe ermitteln 
I Punkt gesetzt? 

I Punktfarbe in Feld schreiben 
I Lupe soll gezeichnet werden? 


I Lupe ist gezeichnet? 
I Lupen-Schleife 
I Maus-Status holen 
I Maus an 
I warten... 


Put XpX+5+IX*SxX,YpX+5+JX*SyX,Bl$(PntX) I Lupenpunkt. 
Endif ( ...zeichnen 

Endif 
Next JX 
Next IX 
If FlgX<>2 
Repeat 

Mouse MxxX,MyyX,MkX 
ShowRi 
Repeat 

Until MousexoMxxX Or MouseyoMyyX Or Mousek 
' I ...auf Mausaktion 

If MxxX>XpX+5 And MxxX<XpX'*'4+BrX*SxX I X-Maus in der Lupe? 
If MyyX>YpX+5 And MyyX<YpX+4+HoX*SyX I Y-Maus in der Lupe? 
MxxX=Int((MxxX-(XpX+5))/SxX) I Koordinaten auf... 
MyyX=Int((MyyX-{YpX+5))/SyX) I ...Rasterindex umrechnen 
If MkX=1 I Linke Maustaste gedrückt? 

If FlgX=1 I Originalpunkt ändern? 

Plot MxX+MxxX.MyX+MyyX I Dann Punkt setzen 
Endif 

LarrX(MxxX,MyyX)=PktX I Rasterfeld aktualisieren 
Put XpX+5+MxxX*SxX,YpX+5+MyyX»SyX,Bl$(PktX) 

■ I Lupenpunkt setzen 

Else I linke Maustaste ist aus! 

PktX=Point(XpX+5+MxxX»SxX,YpX+5+MyyX*SyX)-1 
' I Punktfarbe un 1 vermindern 

If PktX<0 I Farbindex < 0? 

PktX=Max(1,(2'{2-Xbios(4)))‘2-1) I Index auf Maximum 
Endif 


Color PktX 
Endif 
Endif 
Endif 

Until MkX=2 
Pause 5 
Endif 

Erase BIS() 

Put XpX,YpX,Lb* 
Return 


I Originalpunktfarbe setzen 


I Rechte Maustaste gedrückt? 
I Kleine Klick-Pause 

! PUT-Box-Feld löschen 
! Hintergrund restaurieren 


CIRCLE, PCIRCLE { C, PC } Krei$(bogen) zeichnen 

In V3.0: { CI, PC } 

[P]CIRCLE X_cent,Y_cent,Radius [,Alpha,Beta] 

"X_cent/Y_cent" bestimmen den Kreismittelpunkt. "Radius" ist der 
halbe Kreisdurchmesser. Wird die Option "Alpha/Beta" (in lOtel Grad 
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-> 0 bis 3600) genutzt, so wird ein Kreisbogen mit dem Startwinkel 
Alpha und dem Endwinkel Beta gezeichnet. 


Alpha/Beta: 

900 

I 

j 

1800 .X,Y --- 0 / 3600 

I 

I 

2700 


ELLIPSE, PELLIPSE { ELL, PE } Einpse(nbogen) zeichnen 
[P]ELLIPSE Xcent,Ycent,Xrad,Yrad [.Alpha,Beta] 

"Xrad" ist der Ellipsenradius in X-Richtung und "Yrad" der in Y- 
Richtung. "Xcent/Ycent" legt den Ellipsenmittelpunkt fest. Zur Option 
"Alpha/Beta" siehe Ausführungen bei CIRCLE. 


FILL { Fl } Flächen mit Muster füllen 

FILLXpos.Ypos 

FILL Xpos.Ypos [.Farbe] (nur V3.0) 

"Xpos/Ypos" gibt die Lage des Bildschirmpunktes an, von dem aus 
sich der Füllvorgang ausbreitet, bis er an geschlossene Grenzen stößt. 

FILL ist - nur in V2.xx - ggfs, mit Vorsicht zu genießen. Dies hat 
zwei Gründe. Der eine ist, daß das ausbreitende Füllmuster die klein¬ 
sten (1 Pixel) Schlupfwinkel entdeckt, durch die es sich weiter aus¬ 
breiten kann. Das führt ggfs, dazu, daß Bereiche, die nicht gefüllt 
werden sollen, durch den FILL-Befehl zunichte gemacht werden und 
es dann oft unmöglich ist, diesen Bereich wieder vom unerwünschten 
Füllmuster zu säubern. 

Die zweite recht unangenehme Eigenschaft in V2.xx ist, daß bei 
größeren Füllflächen, die schon mit einem nicht geschlossenen Füll¬ 
muster ausgefüllt sind, je nach Größe der Füllfläche sehr, sehr viel 
Zeit vergehen kann, bis die Arbeit vollendet ist. In dieser Zeit ge¬ 
schieht außer dem Füllen nichts. FILL wird ausschließlich vom GEM 
gesteuert und ist dann auch nicht mehr durch irgendwelche Abbruch- 
Funktionen zu unterbrechen. 

Sollte Ihnen in V2.xx das Malheur passieren, ein offenes Füllmuster 
mit sich selbst auf großen Flächen zu füllen, kann der Eindruck ent- 
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stehen, daß Ihnen der Computer Adieu gesagt hat. Lassen Sie ihm 
Zeit, er wird sich dann schon wieder melden. Also, nicht gleich zum 
Reset-Knopf greifen! Der Grund für dieses Schneckentempo ist darin 
zu suchen, daß im Farb-Betrieb der Computer aufgrund der 16 ver¬ 
schiedenen Farben, die dann gleichzeitig darstellbar sind, eine gewal¬ 
tige Rechenleistung zu vollbringen hat. Im Monochrom-Modus macht 
er da keine Ausnahme. Obwohl dann nur zwei Farben vorhanden sein 
können, werden trotzdem alle 16 möglichen Farbregister in die Kon¬ 
trolle einbezogen. 

In Version V3.0 kann der Füllvorgang durch die GFA-Break-Funktion 
abgebrochen werden. Die oben beschriebenen V2.xx-Probleme lassen 
sich also - Ostrowski macht es möglich - durch die Tastenkombination 
<Control><Shift><Alternate> weitestgehend unterbinden. Die Ab¬ 
bruch-Tasten müssen dabei gedrückt gehalten werden, da intern erst 
die aktuelle Füll-Sequenz beendet wird. 

Außerdem kann in Version V3.0 optional mit dem Parameter "Farbe" 
ein Farbwert angegeben werden. Es werden dann ausschließlich Bild¬ 
schirmpunkte mit der angegebenen Farbe als Füllbegrenzung gewertet. 
Alle anderen Punkte (und Farben) werden gefüllt. Hat z.B. der Bild¬ 
punkt Xpos/Ypos die angegebene Farbe, wird der Füllvorgang sofort 
abgebrochen. 

Bei eingeschaltetem Clipping (siehe CLIP) wird generell nur bis an die 
Grenzen des CLIP-Ausschnitts gefüllt. 

Beispiel (nur Lowres): 

Deffill 7,2,6 
Pbox 10,10,310,190 
Deffill 11,2,8 
Pbox 90,40,180,90 
For IX=1 To 15 
Deffill IX,2,8 

Pcircle Randoml80)+85,RandomC 50)+45,10 
Next IX 
Deffill 4,2,8 

Fill 176,44,7 ! V3.0-Aufruf 

' Fill 176,44 ! V2.xx-Aufruf 
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POLYFILL { POLYF } Polygon zeichnen, gefüllt 

POLYFILL Pkte,XpO,YpO [OFFSET Xdlff.Ydlff] 

Es gelten die gleichen Ausführungen wie zu POLYLINE. Nur daß 
zusätzlich die zwischen den einzelnen Linien liegenden Flächen mit 
dem eingestellten Füllmuster ausgeffillt werden. 

Ein Beispiel finden Sie unter POLYLINE. 


POLYMARK { POLYM } Polygon -Eckpunkte markieren 

POLYMARK Pkte,XpO,YpO [OFFSET Xdiff.Ydiff] 

Es gelten die gleichen Ausführungen wie zu POLYLINE. Nur daß an¬ 
statt eines Linienzuges das eingestellte Markierungssymbol auf die de¬ 
finierten Eckpunkte gezeichnet wird. 

Ein Beispiel finden Sie unter POLYLINE. 


RBOX, PRBOX { RB, PRB } Rechteck abgerundet zeichnen 
[P]RBOXX_links,Y_oben,X_recht8,Y_unten 

Es gelten die gleichen Ausführungen wie zu BOX/PBOX. Das 
Rechteck wird jedoch mit abgerundeten Ecken gezeichnet. 


TEXT {T} Text im Grafikmodus ausgeben 

TEXTXt.Yt [,[-]Länge],*Text" 

"Text" kann sowohl direkt als Text, als String-Variable, oder als zu¬ 
sammengesetzter Textausdruck (A$+Str$("r)) angegeben werden. 
"Xt,Yt" steht für den Bildschirmpunkt, an den der Text linksbündig 
angelegt wird. 

Die Ausgaben beschränken sich auf den Bildschirm, bzw. auf ein mit 
OPNVWKO geöffnetes Ausgabegerät (siehe dort). 

Der zur Ausrichtung des Textes ausschlaggebende Punkt ist immer 
der, der bei normaler Lage des Textes (waagerecht von links nach 
rechts) in der Zeichenbox des ersten Zeichens (auch bei Leerzeichen) 
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links unten liegt. Mit diesem Punkt wird der Text generell an die an¬ 
gegebene X/Y-Position angelegt. 


Die Option Länge bewirkt, daß der Text in seiner optischen Länge der 
Vorgabe angepaßt wird. Dies geschieht durch Streckung oder Stau¬ 
chung der Buchstabenabstände (wenn Länge positiv) oder der Wort¬ 
abstände (wenn Länge negativ). 


Beispiel: 


DeffiU ,2,1 
Pbox 0,0,639,399 
Deftext 1,16,0,16 
For IX=1 To 4 
Graphmode IX 

Tx$="TEXT (normal) GRAPHHOOE "+Str$(IX) 

Text 10,20+IX*30,0,Tx$ 

Tx$="TEXT (Zeichendehng.) GRAPHHOOE "+Str$(IX) 
Text 10,U0+IX*30,600,Tx$ 

Tx$="TEXT (Uortdehnung) GRAPHHOOE "+Str$(IX) 
Text 10,260+IX*30,-600,Tx* 

Hext IX 


9.3 Strich-/Punktgrafik 


DRAW { DR } Punkte zeichnen und verbinden 

DRAWTOXpos.Ypos 

DRAW X1,Y1 [TO X2,Y2 [TO X3,Y3...]] 

Die erste Syntax-Variante verbindet den durch Xpos/Ypos bezeichne- 
ten Punkt mit dem zuletzt durch DRAW, PLOT oder LINE gezeich¬ 
neten Grafik-Punkt. Die zweite Variante zeichnet einen beliebig lan¬ 
gen Linienzug durch die angegebene Punkte-Kette. Wird die optionale 
Punkte-Kette weggelassen (DRAW X1,Y1) wird an der angegebenen 
Position ein einzelner Punkt gesetzt (vgl. PLOT). 

Beispiel: Damit Sie sich nicht soviel Arbeit machen müssen, die ein¬ 
zelnen Punktkoordinaten einer Kette einzutippen, folgt nun ein kleines 
Hilfsprogramm. Wenn Sie es gestartet haben, können Sie mit einem 
Druck auf die linke Maustaste einzelne Punkte zeichnen. Es sind zwei 
Arrays dimensioniert, die die jeweilige X- und Y-Koordinate des ge¬ 
rade gezeichneten Punktes festhalten. Jedes dieser beiden Arrays hat 
1000 Elemente, d.h., daß Sie maximal 1000 Punkte zeichnen können. 
Wenn Sie diese Punkteanzahl erreicht haben oder die rechte Maustaste 
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drücken, werden die beiden Arrays in Form von DATA-Zeilen unter 
dem Namen DRAW.LST auf Diskette abgespeichert. 


Anschließend wird das erste Programm beendet. Laden Sie nun mit 
Merge die geschriebene DATA-Datei in den Arbeitsspeicher und 
starten Sie das zweite Programm. Sie werden sehen, daß Ihre Zeich¬ 
nung nun anhand der DATA-Zeilen und des DRAW-Befehls neu auf 
den Bildschirm gebracht wird. 


Programm 1: 


Dirn Px{1000),Py(1000) ! 

Do ! 

House X,Y,K ! 

If K=1 I 

Pause 1 ! 

Draw X,Y ! 

Inc Count ! 

Px(Count)=X I 

Py{Count)=Y ! 


DIM Punkte-Spetcher 
Eingabe-Schleife 
Haus-Status holen 
Linke Maustaste gedrückt? 
Kleine Klickpause 
Punkt zeichnen 
Punktezähler +1 
X-Koordinate speichern 
Y-Koordinate speichern 


Endif 

Exit If K=2 Or Count=1000 • 1000 Punkte erreicht oder... 
Loop I ...rechte Maustaste gedrückt? 

Open "0",#1,"DRAW.LST" I Datei öffnen 

Print #1;"D.raukoos:";Chr$(13) ! OATA-Label schreiben 


For J=1 To 100 I 

Print #1;"D "; I 

For 1=1 To 10 I 

Inc Ci ! 

Print #1;Str$(Px(Ci));"," 
Exit If Ci=> Count I 

If I<10 ! 

Print #1;","; ! 

Endif 

Next I I 

Print #1;ChrS(13) I 

Exit If Ci=> Count ! 

Next J I 

Print #1;"D ";Str$(1111) ! 

Close #1 ! 

Edit I 


100 DATA-Zeilen 
DATA schreiben 
10 Koordinatenpaare je Zeile 
Indexzähler +1 

Str$(Py(Ci)); I X/Y schreiben 
Abbruch, wenn Anzahl < 1000 
Zeilenende noch nicht erreicht? 
Dann Konma schreiben 

Nächstes Koordinatenpaar 
CR-Zeilenende schreiben 
Abbruch, wenn Anzahl < 1000 
Nächste DATA-Zeile 
DATA-Endmarke schreiben 
Datei schließen 
Programnende 


Programm 2: 


Dirn Px(1000),Py(1000) 
Restore D.rawkoos 
Read Px(1),Py(1) 

Plot Px(1),Py(1) 

For 1=2 To 1000 
Read Px(I),Py(I) 


Pbox Px(I),Py(I),Px(I)+10,Py(I)+10 


! DIM Punkte-Speicher 
! DATA-Zeiger setzen 
! 1. Koordinatenpaar lesen 
! und zeichnen 
! Restliche Koordinaten 
! Lesen 


• Ersetzen Sie die Zeile mit dem Draw-Befehl durch diese 
' Pbox-Zeile und schon haben Sie einen neuen Effekt. 

Draw To Px(I),Py(I) ! Und zeichnen 
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Exit If Px(I)=1111 
Next I 


I Abbruch, wenn Ende erreicht 
! Nächstes Paar 


Version 3.0 

DRAW$ { DR } Plotter-(Turtle-)Graflk 

DRAWDef$I,Con8tI,"Der[,Varl,...]]]] 

Erlaubt eine Plotter-Simulation auf dem Bildschirm (LOGO-Turtle- 
Grafik). In Def$/"Der’ können wahlweise als alphanumerischer Aus¬ 
druck, als String-Variable oder Textkonstante Turtle-Kommandos an¬ 
gegeben werden. Als Kommandos sind folgende Kürzel vorgesehen: 

(n enthält den jeweils anzugebenden Wert, x,y die betreffenden Koor¬ 
dinaten) 

fd n (forward) Bewege Stift n Pixel vorwärts, 

bk n (backward) Bewege Stift n Pixel rückwärts. 

8X n Skalierung aller bei fd und bk angegeben Werte in X*Richtung mit dem 

Wert n. 

sy n Skalierung aller bei fd und bk angegeben Werte in Y-Richtung mit dem 

Wert n. 

■X 0 " X'Skalierung ausschalten. 

sy 0 Y-Skalierung ausschalten. 

It n (left tum) drehe Stift um n Grad nach links, 

rt n (right tum] drehe Stift um n Grad nach rechts. 

tt n (turn to) setse Stift absolut in Richtung n Grad (Gradeinteilung siehe 

SETDRAW). 

ma x,y (move absolute) Bewege Stift (pu) auf absolute Position x/y (siehe 
auch SETDRAW). 

da x,y (draw absolute) Bewege Stift (pd) auf absolute Position x/y und 
seichne dabei eine Linie. 

mr x,y (move relative) Bewege Stift (pu) auf Position x/y, relativ Eur aktuelle 
Turtle-Position. 

dr x,y (draw relative) Bewege Stift (pd) auf Position x/y, relativ eur aktuellen 

Turtle-Position und eeichne dabei eine Linie. 

CO n (color) Linienfarbe n einstellen (siehe COLOR). 

pu (pen up) Stift anheben (Stift schwebt), 

pd (p^n down) Stift aufsetsen. 


Eine DRAW-Zeile könnte folgendermaßen zusammengesetzt sein: 

Draw "ma",X%,YX,"tt",Int(10.52),"pd",A$,Len{B$),"U60 fd3.4" 

Die Angabe der Entfernungen, Winkel und Koordinaten etc. kann 
ebenfalls wahlweise als Ausdruck, als Konstante, als Variable oder in¬ 
nerhalb von Def$/"Der'’ erfolgen. Dabei ist die Anzahl der durch 
Komma getrennten Einzelanweisungen beliebig (max. Eingabezeilen- 
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länge = 255 Zeichen). Das Komma kann in den meisten Fällen auch 
vernachlässigt werden. 


Beispiel: 

Graphmode 3 ! XOR-Modus 

YtX=Min(2,3-Xbios<4)) I Y-Auflösungsteiler 

For IX=0 To 640 Step 5 I Einmal von links nach rechts 

For J%=0 To 1 ( Zweimal hintereinander 

Setdraw 50+IX,200/Y«+Cos(I**Pi/180)»50,IX+90 ! Turtle setzen 
Draw "pd rt90 fd20 rt90 fd30 lt45 fd14.1 lt45 fd40" 

Draw "lt45 fdU.1 lt45 fdIO lt90 fd20 lt90 fdIO rt90" 

Draw •■fd20 rt90 fd30 rt90 fd60 rt90 fd40 rt45 fd28.3" 

Draw "rt45 fd60 rt45 fd28.3 rt45 fd40" 

Draw "pu fcßO pd fd40 rt90 fd20 rt90 fd30 lt45 fd14.1" 

Draw "lt45 fdIO lt90 fd20 rt90 fd20 rt90 fd20 lt90 fd40" 

Draw "rt90 fd20 rt90 fd80 rt45 fd28.3 rt45 fd40» 

Draw "pu fd30 pd fd30 rt45 fd28.3 rt45 fd80 rt90 fd20" 

Draw "rt90 fd40 lt90 fd30 lt90 fd40 rt90 fd20 rt90 fd80" 

Draw "rt45 fd28.3 pu rt135 fd30 pd fdIO lt90 fd30 lt90" 

Draw "fd10 lt45 fd14.1 lt45 fdIO lt45 fdU.I pu" 

Next JX 
Next IX 


Version 3.0 

DRAWQ Plotter-(Turtle-)Attribute liefern 

Var=DRAW(lndex) 

Liefert Informationen über die aktuellen DRAW-Turtle-Attribute. 
Index: 


0 = Aktuelle X-Position 

1 = Aktuelle Y-Position 

2 = Aktuell eingestellter Winkel (in Grad) 

3 = Aktuelle X-Skalierung 

4 = Aktuelle Y-Skalierung 

5 = Pen-Flag (-1 = pd/0 = pu) 

Mit Index 0 bis 4 werden Fließkommawerte geliefert. 

Beispiel (Hires/Midres/Lowres): 

Aus der Sprache LOGO kennen Sie vielleicht die Turtle (Schildkröte), 
die in den meisten Fällen als Pfeil dargestellt wird. Mit den folgenden 
beiden Prozeduren können Sie diese optische Turtle simulieren. Die 
Prozedur Showt speichert den aktuellen Hintergrund unter der Turtle 
und zeichnet einen Pfeil auf die aktuelle Position. Mit Hidet wird der 
Hintergrund wieder restauriert und die Turtle damit gelöscht. 
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XtX=2-Sgn(Xbios(4)} ! X-Auflösung 

YtX=Min(2,3-Xbios{A)) I Y-Auflösung 

Setdraw 20,20,90 I Turtle setzen 

Print "TURTLE-Steuerung per Maustasten" 

Showt ! Turtle zeigen 

Do 

Dxmax=Max(15,Hin(624/XtX,Draw(0)}} I Inner schön.. 
Dymax=Max(15,Min(384/YtX,Draw(1))) I ...im Bild... 
Setdraw Dxmax,Dymax,Drau(2) I ...bleiben 


Hidet 
Draw "fd2" 

Showt 

If Mousek=1 
Draw "lt2" 

Else if Mousek=2 
Draw "rt2" 
Endif 
Loop 


I Turtle verstecken 
I 2 Pixel zeichnen 
I Turtle zeigen 
I Linke Maustaste? 

I Dann 2 Grad linksrum 
I Rechte Maustaste? 

I Dann 2 Grad rechtsrun 


Procedura Showt I TURTLE-Proc 

Local XtX,YtX,Xtrtl,Ytrtl,Xtrtl2,Ytrtl2,Wtrtl,Ptrtl 
XtX=2-Sgn(Xbios(4)) I X-Auflösung 

YtX=Min{2,3-Xbios(4)) I Y-Auflösung 

Xtrtl=Draw(0) I Aktuelle X-Position? 

Ytrtl=Draw(1) I Aktuelle Y-Position? 

Xtrtl1=Max(0,Min(639/XtX,Xtrtl-15)) I---. GET- 
Ytrtl1=Max(0,Min<399/YtX,Ytrtl-15)) I Bereich.. 
Xtrtl2=Max<0,Min(639/XtX,Xtrtl1+30)) I eingrenzen 
Ytrtl2=Max(0,Min(399/YtX,Ytrt11+30))I---' 

Utrtl=Draw(2) ! Aktueller Winkel? 

PtrtlX=Draw(5) ( Aktueller Pen-Status 

Get Xtrtl1,Ytrtl1,Xtrtl2,Ytrtl2,Trtlbckgrnd$ 

' I Hintergrund speichern 

Draw "pd lt120 fdll rt150 fd20 rt120 fd20 rt150 fdll" 

' I Turtle malen 

Setdraw Xtrtl,Ytrtl,Utrtl I Alten Turtle-Status setzen 

If PtrtlX=0 I Stift war vorher oben? 

Draw "pu" I Dann wieder hochsetzen 

Endif 
Return 

I 

Procedura Hidet I Turtle löschen 

Put Xtrtl1,Ytrtl1,Trtlbckgrnd$ 

Return 


LINE { LI } Linie zeichnen 

LINEX1,Y1,X2,X2 

Die Bildschirm-Koordinaten X1,Y1 und X2,Y2 werden durch eine 
gerade Linie im aktuellen - zuletzt mit DEFLINE - eingestellten Li¬ 
nienstatus gezeichnet. 


Beispiel: 
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For J%=1 To 20 
Line 10,JX*10,100,JX*10 
Line JX»10,10,JX*10,100 
Next JX 


PLOT { PL } Punkt zeichnen 

PLOT Xpos,Ypos 

Xpos/Ypos bestimmt die Lage eines Bildschirm-Punktes, der gesetzt 
werden soll. PLOT wird von der Linienbreite-Definition durch 
DEFLINE nur beeinflußt, wenn Linien-Anfangs und -Endform als 
rund definiert wurden. 


POINTO Bildschirmpunkt-Farbwert ermitteln 

Var=POINT p(pos,Ypos) 

Liefert die Nummer des Farbregisters, aus dem der durch Xpos/Ypos 
bezeichnete Bildschirm-Punkt seine Farbe bezieht (siehe COLOR). 


Beispiel (Hires): 


TX=Timer 


Deffill ,2,2 ! DEFFILL hellgrau 

Pbox 10,10,100,100 ! Kleine PBOX 


For XX=10 To 100 ! Alle Punkte in X-Richtung 

For YX=10 To 100 ! Alle Punkte in Y-Richtung 

If Point(XX,YX)=0 ! Testen, ob nicht gesetzt 
■ If Ptst(XX,YX)=0 I Line-A-Test 
Plot 110+XX,YX I Ja, dann setzen 
Endif 


Next YX I Nächste Spalte 
Next XX I Nächste Zeile 
Print (Tiiner-TX)/200"'Sek." 


Anhand dieses Beispiels können Sie die POINT()- mit der PTST()- 
Funktion vergleichen. Lassen Sie es in der obigen Form laufen und 
aktivieren zum zweiten Durchlauf die If Ptst(..-Schleife. 

Das Ergebnis des Programms ist das Negativ der zuerst gezeichneten 
PBOX, da statt jedes Punktes, der in der PBOX weiß ist, in der neuen 
Box ein Punkt gesetzt wird. 
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1>0LYLtNE{P0Lj Polygon zeichnen 

POLYUNE Pkte,XpO,YpO [OFFSET Xdifl.YdifI] 

Die POLY-Befehle (POLYFILL, POLYLINE, POLYMARK) verwen¬ 
den jeweils die Füll-, Linien- oder Marker-Attribute, die vorher mit 
DEFLINE, DEFFILL oder DEFMARK vorgenommen wurden. 

In den Integer-Feldern Xp() und Yp() sind der Reihe nach so viele 
Koordinatenpaare anzugeben, wie Polygon-Ecken vorgesehen sind. Der 
erste zu definierende Punkt des Vielecks ist im Element 0 (OPTION 
BASE 0) bzw. im Element I (OPTION BASE l) der Felder abzulegen, 
da die Inhalte der ersten beiden Feldelemente als Koordinatenwerte 
des ersten Punktes verwendet werden. 


Die Anzahl der zu berücksichtigenden Polygon-Eckpunkte wird in 
Pkte übergeben. Maximal dürfen 128 Punkte angegeben werden. Soll 
mit POLYLINE ein geschlossener Linienzug gezeichnet werden, muß 
der letzte Punkt mit dem ersten identisch sein 
(Xp(n)=Xp(0)/Yp(n)=Yp(0)). 

Um sich nicht jedesmal die Arbeit machen zu müssen, die Koordina¬ 
tenpaare neu zu bestimmen, sobald dieselbe Figur an einer anderen 
Stelle gezeichnet werden soll, kann mit dem Zusatzbefehl OFFSET, 
der ggfs, den POLY-Befehlen angehängt wird, in X- und in Y-Rich- 
tung ein Versatz der Figur um einen bestimmten Betrag (negativ oder 
positiv) bewirkt werden. 


Beispiel: 


Dirn X(10),Y(10) 

YtX=Hin(2,3-Xbios(A)) 

Graphtnode 3 
Oo 

For 1=0 To 9 

X(I)=Randoni(100)+56*I I Zufällige X-Koordinate 

Y(I)=Randoin(280/YtX)+40/Yt* ! Zufällige Y-Koordinate 
Next I 


I DIM Punkt-Felder 
I Y-Auflösung 
I XOR-Modus 
I Endlos-Schleife 
I 10 Punkte 


X{I)=X(0) 

Y(I)=Y(0) 
Aa=Int(Rnd*5)+1 
Bb=Int(Rnd*2A) 
Cc=Rando(n(5)+1 
Defmark ,Aa,80 
Deffill 1,2,Bb 
Oefline Cc,1,2,2 
Polymark 9,XO,YO 
Polyfill 9,X(),Y() 
For JX=1 To 2 


I Letztes X = 1. X 
! Letztes Y = 1. Y 
I Zufälliger Markertyp 
I Zufälliges Füllmuster 
! Zufälliger Linientyp 
! Marker-DEF 
! Muster-DEF 
! Linien-DEF 
! Marker setzen 
! Fläche zeichnen 
! 2 mal 
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For I*=3 To 99 Step 6 ! 16 Offsets 

Polyline 11,X(),Y() Offset IX.IX I Vieleck zeichnen 
Next IX I Nächstes Offset 

Next JX 

Polymark 9,X(),Y{) I Marker löschen 

Polyfill 9,X{),Y() ! Fläche löschen 

Loop 


Version 3.0 

fifbRAW { SETD} DRAW-Turtle positionieren 

SETDRAW Xpos,Ypos,Grad 

Setzt den Stift für Plotter-(Turtle-)Grafik auf die absolute Position 
Xpos,Ypos in die Zeichenrichtung Grad (siehe auch DRAW $). 

Grad: 


0 / 360 

I 

I 

270 — Xpos/Ypos — 90 

j 

180 

Ein Beispiel hierzu finden Sie unter DRAW(). 


9.4 Line-A-Grafikbefehle 


Version 3.0 

ACHAR { AC} Line-A-Einzel-Textzeichen ausgeben 

ACHAR Ascii,Xpos,Ypos,Font,Art,Winkel 

Gibt ein einzelnes Zeichen mit dem ASCII-Wert Ascii an der durch 
Xpos,Ypos bestimmten Position aus. Die Koordinatenangabe bezieht 
sich - im Gegensatz zu TEXT - dabei (in Normallage, d.h. Winkel = 
0) auf die linke, obere Ecke der Zeichenbox, relativ zum absoluten 
Bildschirmnullpunkt. 

Font bestimmt den zu verwendenden System-Font: 


0 = 6x6 1 = 8x8 2 = 8x16 
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Wird ein größerer Wert für Font eingesetzt, wird dieser als 
Startadresse eines Font-Headers im GDOS-Format interpretiert (siehe 
VST_LOAD_FONTS()). 

Art gibt die zu verwendende Textart an (siehe DEFTEXT). 


Winkel enthält den gewünschten Textwinkel (siehe DEFTEXT). 


Beispiel (Hires/Midres); 

Aclip 1,0,0,639,199 I Uichtigl Line-A-Clipping 

For JX=0 To 31 I 32 Textarten 

For IX=0 To 2 13 Fonts 

For LX=0 To 2700 Step 900 I 4 Winkel 
Cls I Bildschirm löschen 

For KX=:65 To 90 I Zeichen A bis Z 

Achar KX,{l«-64)*23,20+J**10+I*»16,IX,J*,L* 

Next KX 
Next LX 
Next IX 
Next JX 


Version 3.0 

ACLIP {ACL} LIne-A-Clip-Box setzen 

ACUP Flag,XJi,Y_ob,X_re,Y_un 

Begrenzt Line-A-Grafikausgaben (außer ALINE, HEINE, PSET und 
BITBLT) auf den hiermit beschriebenen Bildschirmausschnitt (vgl. 
CLIP). ACLIP ist - sofern die Gefahr besteht, daß Grafikausgaben 
über den Bildschirmrand hinausragen - bei Line-A Grafik grundsätz¬ 
lich einzusetzen, da - anders als bei VDI-Ausgaben - die Grafik ohne 
Clipping bei Überschreitung des Bildschirmrandes direkt in die Nach¬ 
barbereiche des Bildschirmspeichers gezeichnet wird (evtl, fataler 
Fehler). 

Flag gibt an, ob die gesetzte Clip-Box aktiv (Flag = 1) oder inaktiv 
(Flag = 0) sein soll. 

X_li, Y_ob, X_re und Y_un sind die auf den absoluten Nullpunkt 
bezogenen Koordinaten der Clipping-Box. 

Nach bisherigen Erfahrungen mit diesem Befehl bleibt er nach Aufruf 
nicht uneingeschränkt gültig. D.h., daß er evtl, durch Aufruf eines 
nachfolgenden Line-A-Befehls wieder aufgehoben wird. ACLIP sollte 
also immer unmittelbar vor einem Line-A-Grafikbefehl eingesetzt 
werden. 
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Version 3.0 

ALINE{au} Line-A-Linie zeichnen 

AUNE XI,Y1^,Y2,Farbe,Maske,Modus 

ALINE ist prinzipiell identisch mit LINE, jedoch schneller. Die Koor¬ 
dinaten X1,Y1 und X2,Y2 werden mit einer geraden Linie in der an¬ 
gegebenen Farbe (siehe COLOR) verbunden. 

Es muß zusätzlich in Maske ein 16-Bit-Wert übergeben werden, der 
das Linienmuster bestimmt (gesetztes Bit = Punkt) und in Modus der 
gewünschte Grafikmodus (0-3 entspricht GRAPHMODE 1 - 4). 

GRAPHMODE hat auf Line-A-Befehle keine Wirkung. Alle Line-A- 
Koordinaten beziehen sich generell auf den absoluten Bilschirmnull- 
punkt. 


Beispiel: 


For IX=0 To 6000 Step 50 
Xp1X=320+lX/20 
Xp2X=320-IX/20 
Xp3X=320+Sinq(IX)*310 
YpX=100-Cosq(lX)*90 
AUne Xp1X,100,Xp3X,YpX, 
Atine Xp2X,100,Xp3X,YpX, 
Next IX 


I Umlauf-Schleife 
I X-Mittelpunkt 1 
! X-Mittelpunkt 2 
I X-Ellipsen-Punkt 
I Y-Ellipsen-Punkt 
,43690,1 ! Linie zeichnen 
,43690,1 ! " ■' 

I Nächster Grad-Schritt 


Version 3.0 

APOLY {AP} Line-A-Vieleck zeichnen 

APOLY P_adr,P_anz,Ymin TO Ymax,Farbe,Modus,M_adr,M_anz 

Es kann ein Vieleck bestimmt werden, dessen Figur (ohne Umran¬ 
dung) anschließend in einem bestimmbaren Bereich mit einem vorge¬ 
gebenen Muster gefüllt wird. 

P_adr ist die Startadresse eines beliebig langen Word-Vektors, der 
abwechselnd die X- und die Y-Koordinaten (je zwei Byte = ein Word) 
der Vieleck-Punkte enthält. Durch P_anz wird angegeben, wieviele 
Punktkoordinaten (X/Y = 2 Words) aus diesem Vektor gelesen werden 
sollen. 

Der Befehlsteil Ymin TO Ymax definiert eine oberste und eine unter¬ 
ste Bildschirmzeile, in deren Zwischenraum die Figur ausgefüllt wer- 
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den soll. Der Ausdruck TO kann auch durch ein Komma ersetzt wer¬ 
den. 


Die Bedeutungen der Parameter Farbe, Modus, M_adr und M_anz 
sind mit denen der gleichnamigen Parameter bei HLINE identisch. 


Dieser Befehl ist mit äußerster Vorsicht zu geniessen! Bei der über¬ 
wiegenden Zahl von Testläufen war das Ergebnis ein Totalabsturz. Zu 
vermeiden sind diese Fehler nur durch peinlichst exakte Angaben der 
Koordinaten und des Füllbereichs. 


APOLY ist bedingt mit POLYFILE vergleichbar und ca. um 10-15 
Prozent schneller. Dieser Geschwindigkeitsvorteil schwindet allerdings 
dann, wenn keine häufigen Änderungen des Grafikmodus oder der 
Farbeinstellung notwendig sind. Wenn es darum geht, mehrere Poly¬ 
gone mit immer derselben Farbe (z.B. in Hires) und immer demselben 
Grafikmodus zu zeichnen, ist POLYFILE meiner Meinung nach ge¬ 
genüber APOLY aufgrund des Komforts und der größeren Vielseitig¬ 
keit vorzuziehen. 


Beispiel (Hires/Midres): 


Dirn 

Deffill ,0 
PadrX=V:P&(0) 

MX=65535 
MadrX=V:MX 
Do 

For IX=0 To 9 
P&(IX)=Rand(200) 

Next IX 
P&(10)=P&(0) 

P&(11)=P&(1) 

Pbox 19,19,241,171 
Aclip 1,20,0,240,199 I Uichtigl Line-A-Clipping setzen 
Apoly PadrX,5,20 To 170,1,0,MadrX,1 I APOLY-Aufruf 
Loop 


I 6 X- und 6 Y-Koordinaten 
I DEFFILL weiB 

I Startadresse der Punktwords 
! Liniermuster = VoU-Linie 
I Startadresse des Linienmusters 
! Endlosschleife 
> 10 Koordinaten.. 

I ..(abwechselnd X, Y) setzen 
I Nächste Koordinate 
I Letzte = erste X-Koordinate 
! Letzte = erste Y-Koordinate 
I Bereich löschen 


Version 3.0 

ARECT {AR} Line-A gefülltes Rechteck zeichnen 

ARECTXl,Y1,X2,Y2,Farbe,Modus,M_adr,M_anz 

Es wird ein - mit Muster gefülltes - Rechteck mit den absoluten Ko¬ 
ordinaten XI/Y1 und X2,Y2 (= diagonal gegenüberliegende Ecken) 
gezeichnet. 
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Die Bedeutungen der Parameter Farbe, Modus, M_adr und M_anz 
sind mit denen der gleichnamigen Parameter bei HLINE identisch. 

ARECT ist prinzipiell identisch mit PBOX ohne Rahmen. Auch hier 
ist - wie bei APOLY - der Geschwindigkeitsvorteil nur dann aus¬ 
schlaggebend, wenn Färb- oder Grafikmodus-Änderungen notwendig 
werden. Wenn man dann durch BOUNDARY 0 den PBOX-Rahmen 
ausschaltet, liegt der Unterschied bei nur noch ca. einem Prozent. 

Es kann übrigens fatale Folgen haben, wenn die Koordinatenwerte der 
linken, oberen Ecke (Xl/Yl) größer als die der rechten, unteren Ecke 
(X1/Y2) werden. 

Beispiel: 

Aclip 1,0,0,319,199 I Uichtigl Line-A-Clipping setzen 
For IX=0 To 100 

M&=IX I FüUmuster = Lauf Index 

MadrX=V:H& I Startadresse des Füllmusters 

Arect 10,20+IX,500,80+I*,1,2,MadrX,1 
Next IX 


Version 3.0 

ATEXT{at} Line-A Grafiktext ausgeben 

ATEXT Xpos,Ypos,Font,Text$ 

Gibt den String TextS an der durch Xpos,Ypos bestimmten Position 
aus. Die Koordinatenangabe bezieht sich dabei auf die linke obere 
Ecke der Zeichenbox des ersten Zeichens, relativ zum absoluten Bild¬ 
schirmnullpunkt. 

Font bestimmt den zu verwendenden System-Font: 

0 = 6x6 1 = 8x8 2 = 8x16 

Auch hier wird - wie bei ACHAR - ein größerer Wert für Font als 
Startadresse eines Font-Headers im GDOS-Format interpretiert (siehe 
VST_LOAD_FONTS()). 

Bei ATEXT kann im Gegensatz zu TEXT kein beliebiger Schriftstil 
oder Textwinkel angegeben werden. Beschränkt man den Vergleich 
zwischen beiden Textausgaben jedoch nur auf die Schriftgrößen DEF- 
TEXT ,„4, DEFTEXT ,„6 und DEFTEXT ,„13 - welche den hier 
anzugebenden Fonts 0, 1 und 2 entsprechen - so ist ATEXT um ca. 6 
- 10 Prozent schneller. 
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Beispiel (Hires/Midres/Lowres): 

Aclip 1,0,0,319,199 I Wichtig! Line-A-Clipping setzen 
For IX=0 To 2 13 Fonts 

Atext 10+1**20,60+IX*12+IX»20,IX,"Font "+Str$(IX) 

Hext IX 


Version 3.0 

HÜNE {HL y Line- A horizontale Linie zeichnen 

HÜNE XI,Y,X2,Farbe,Modus,Madr.Manz 

HLINE ist prinzipiell identisch mit LINE, jedoch nur für waagerechte 
Linien. Außerdem ist HLINE erheblich schneller (ca. 35 - 45 Prozent). 
Die X-Koordinaten XI und X2 in der Zeile Y werden mit einer Linie 
in der angegebenen Farbe (Hardware-Register siehe SETCOLOR) ver¬ 
bunden. 


In Modus wird der gewünschte Grafikmodus (0-3 entspricht GRAPH¬ 
MODE 1 - 4) übergeben. Zusätzlich muß in M_adr die Startadresse 
eines Speicherblocks angegeben werden. Durch M_anz kann bestimmt 
werden, wieviele 16-Bit-Werte ab dieser Adresse als Linienmuster ge¬ 
wertet werden sollen (Anzahl der Muster minus 1 = M_anz). 

Für die erste gezeichnete Linie wird das erste Word als Muster ge¬ 
nommen (gesetztes Bit = Punkt), für die nächste Linie das nächste 
Word usw. Wurden ’Anz’ Muster gelesen, beginnt die Zählung wieder 
beim ersten Word usw. Auch wenn bei mehreren HLINE-Aufrufen 
dieselbe Adresse angegeben wird, wird der in ’M_anz’ verfügte Off- 
set-Rythmus beibehalten. 


Beispiel; Dieses Beispiel zeigt, daß durch HLINE auch PBOX-Simula- 
tionen mit frei definierbarem Füllmuster möglich sind. Das gleiche gilt 
übrigens auch für ARECT. Dabei ist das Raster des Füllmusters zwar 
in der Breite auf 16 Punkte beschränkt, jedoch nicht in der Höhe. 


Deffill ,2,1 
Pbox 0,0,15,34 
Deftext ,1,900,6 
Text 10,32,''FILL" 
Get 0,0,15,34,M$ 
MadrX=V:H$+6 
Aclip 1,0,0,319,199 


I.. Füllmuster 

! 

I- Füllmuster vorbereiten 
I 

I-1 

! Startadresse des Füllmusters 
I Wichtig! Line-A-Clipping setzen 


For IX=20 To 180 
Hline 20,IX,300,1,0,MadrX,31 


Next IX 


Box 20,20,300,180 
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Version 3.0 

PSET { PS } Line-A-Punkt zeichnen 

PSET Xpos.Ypos,Farbe 

PSET ist identisch mit PLOT (siehe dort), jedoch erheblich schneller 
(mehr als dreimal so schnell!). Anders als bei PLOT muß hier zusätz¬ 
lich zu den Koordinaten in Farbe die Punktfarbe angegeben werden 
(siehe COLOR). GRAPHMODE hat auf Line-A-Befehle keine Wir¬ 
kung. 

Beispiel (Hires/Midres/Lowres): Weil mir als Beispiel für diesen Befehl 
kein "berauschender" Effekt einfallen wollte, finden Sie hier - um das 
gezeichnete Punktraster sinnvoll werden zu lassen - eine Raster-Ab¬ 
frageroutine. 


Diese Erweiterung habe ich speziell für grafische Menüs entwickelt. 
So können Grafik-Icons, die in einem derartigen Raster angeordnet 
sind, leicht angewählt werden. Durch die Begrenzungsmöglichkeiten 
mit Xmin%, Ymin%, Xmax% und Ymax% kann der Auswahlbereich je 
nach Bedarf eingeschränkt werden. 


For JX=10 To 300 Step 8 
For 1X=10 To 170 Step 8 
Pset JX,IX,1 
Next IX 
Next JX 

SettiKXJse 150,100,0 


!. . 

! 

!- Raster zeichnen 
I 

1 .■ 

I Maus in das Raster setzen 


Die folgende kleine Routine simuliert für 
die V2.xx-Versionen den SETHOUSE-Befehl. 


aSetmouset150,100,0) I Aufruf 

I 

Procedure Setinouse(XposX,YposX,MbutX) 
XtX=2-Sgn(Xbios(4)) I X-Auflösungsteiler 
YtX=Min(2,3-Xbios{Ä)) ! Y-Auflösungsteiler 
XposX=Max(0,Min(639/XtX,XposX)) ! X begrenzen 
YposX=Max(0,Min(399/YtX,YposX)) I Y begrenzen 
MbutX=Max(0,Min(3,HbutX)) I Status begrenzen 
Dpoke 9952,XposX I Maus-X-Position setzen 

Dpoke 9954,YposX ! Maus-Y-Position setzen 

Dpoke 9958,HbutX ! Maustasten-Status setzen 

Return 


Text 30,185,“Gesamtes Feld ist wählbar" 
aRaster(3,10,10,8,8,1,1,36,20,36,20,*Ind€xX,*DunnyX) 

If IndexX=0 

Text 30,195,"Raster ohne (Click verlassen " 

Else 

Text 30,195,"gewählt: Feld "+Str$(IndexX)+"/"+Str$(DumniyX) 
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Endif 

Text 10,185,"Nur Reihe 3 ist wählbar " 
8Raster(0,10,10,8,8,3,1,3,20,36,20,«IndexX,*Diinny*) 

Text 10,195,"Bewählt: Feld “+Str$(IndexX)+" " 

Pause 20 

Text 10,185,"Nur Zeile 14 ist wählbar " 
aRaster(0,10,10,8,8,1,14,36,14,36,20,»IndexX,*DuniiiyX) 

Text 10,195,"gewählt: Feld "♦Str$(In*xX)+" " 

Pause 20 

Text 10,185,"Nur Teilfeld 3/3 - 16/16 ist wählbar" 

WasterlO, 10,10,8,8,3,3,16,16,36,20,»IndexX,*DunnyX) 

Text 10,195,"gewählt: Feld "♦Str$(IndexX)+" " 

Pause 20 

Text 10,185,"Nur Einzelpunkt 36/20 ist wählbar " 

SRasterfO,10,10,8,8,36,20,36,20,36,20,•IndexX,*DunriyX) 

Text 10,195,"gewählt: Ende " 

Procedure RasterCRflgX,RxlX,RylX,RxbX,RybX,XminX,YminX,... 

... XtnaxX, YmaxX, Xf IdX, Yf IdX, R. i nxX, R. i nyX) 

I 

' Mausraster-Index-Ermittlung (alle Auflösungen) 

I 

■ RflgX: Flag 

' 0 = Die Routine wird nur durch Hausklick auf 

' eines der Rasterfelder verlassen. Es wird 

' ein Kettenindex nur in R.inxX zurückgegeben 

■ (siehe unten bei R.inxX). 

' 1 = Wie 0, jedoch wird die Routine auch verlassen, 

' wenn der Mauszeiger außerhalb des angegebenen 

' Rasterbereichs (XtninX, YminX, XmaxX, YmaxX) 

• gebracht wird. In diesem Fall wird in R.inxX 

' eine Null zurückgegeben. Bei Aufruf dieses Modus 

' sollte allerdings sichergestellt werden, daB 

• sich der Mauszeiger innerhalb des Rasters befindet. 

■ Bei Mausklick wird ein Kettenindex nur in 

' R.inxX zurückgegeben (siehe unten bei R.inxX). 

■ 2 = Uie 0, jedoch wird in R.inxX kein Kettenindex 

' geliefert, sondern in R.inxX der X-Index und in 

' R.inyX der Y-Index des gewählten Rasterpunktes 

• geliefert. 

' 3 = Uie 1, jedoch wird in R.inxX kein Kettenindex 

' geliefert, sondern in R.inxX der X-lndex und in 

' R.inyX der Y-Index des gewählten Rasterpunktes 

' geliefert. 

' RxlX: X-Koordinate des gesamten Rasterfeldes 
' RylX: Y-Koordinate des gesamten Rasterfeldes 
' RxbX: Breite eines Rasterpunktes in Pixel 
' RybX: Höhe eines Rasterpunktes in Pixel 
' XminX: Kleinste wählbare Rasterreihe (min. 1=1. Reihe) 

' YminX: Kleinste wählbare Rasterzeile (min. 1=1. Zeile) 

' XmaxX: Größte wählbare Rasterreihe (max. XfldX) 

' YmaxX: Größte wählbare Rasterzeile (max. YfldX) 

■ XfldX: Anzahl der waagerechten Rasterpunkte des Gesamtfeldes 
' YfldX: Anzahl der senkrechten Rasterpunkte des Gesamtfeldes 

' R.inxX: 

' - Bei RflgX 0 oder 1 = gewählter Rasterindex (verkettet) 

I 

' Wird z.B. ein Gesamtraster von z.B. 5*3 Punkten angegeben, 

' so ergibt sich der Index der Punkte nach folgendem 
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Schema (Kettenindex): 


1 

2 3 

A 


6 

7 < 8 

9 


11 

1 .. .. 

12 ! 13 

14 



Wird der gewählte Punkt mit der linken Maustaste 
angeklickt, erhält man den positiven Index. Bei Klick 
mit der rechten Maustaste erhält man eine Null 
(> Abbruch) und bei Klick mit beiden Maustasten 
gleichzeitig erhält man den negativen Index. 

- Bei RflgX 2 oder 3 = X-Index des Punktes. 

R.inyX: Nur bei RflgX 2 oder 3 ■ Y-Index des Punktes 

Im obigen Beispielraster ergäbe sich bei RflgX 2 
oder 3 folgende Indizierung (X/Y): 


1/1 



j 4/1 

5/1 

1/2 

j 2/2 


|4/2 

5/2 

1/3 

12/3 

',3/3 

!4/3 

1 . .. . 

5/3 


Die Routine verändert COLOR (1) und GRAPHM(X)E (1). 

Nach Rückkehr müssen diese Einstellungen ggfs, restauriert 
werden. 


Local MsxX,MsyX,KX,AypX,AxpX 
XminX=Max(1,XminX) 
YminX=Max(1,YminX) 

XmaxX=Min(XfIdX,XmaxX) 
YmaxX=Min(YfldX,YmaxX) 
RflgX=Max(0,Min(3,RflgX)) 

I 

Color 1 

■ Farbbetrieb auch anders se 
Graphmode 1 
Hidem 
Repeat 

Mouse MsxX,MsyX,KX 


,Axp2X,Ayp2X,MsxxX,MsyyX,R.backS 
I XminX = mind. 1 
I YminX = mind. 1 
I XmaxX = max. XfldX 
! YmaxX = max. YfldX 
! RflgX auf den Bereich 
! 0 bis 3 eingrenzen 
! Zeigerbox-Farbe (kann im 
in, jedoch <> Hintergrundfarbe) 

I XOR-Modus 
I Maus ausschalten 
I Zeiger-Schleife 
I Maus-Status holen 


AxpX=Max(XminX-1,Min(XmaxX-1,Int((MsxX-RxlX)/RxbX))) 
' Mausposition in Raster-Index umrechnen 
AypX=Max(YminX-1,Min(YmaxX-1,Int((MsyX-RylX)/RybX))) 


HsxX=RxlX+AxpX*RxbX 

' Raster-Index in skalierte Mausposition umrechnen 
MsyX=RylX+AypX*RybX 

I 


Get MsxX-1,MsyX-1,MsxX+RxbX+1,MsyX+RybX+1,R.backS 
‘ Zeigerbox-Hintergrund sichern 
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Box MsxX-1,MsyX-1,Msx*+RxbX+1,MsyX+RybX+1 I Zeiger... 

Box NsxX,HsyX,HsxX+RxbX,HsyX+RybX ! ...zeichnen 

Repeat I Auf Mausbewegung warten >.. 

Mouse HsxxX,HsyyX,KX I Haus-Status holen 

If RflgX=0 Or RflgX=2 ! Mausklick-Exit? 

I 

Axp2X=Max(XniinX-1,Min(XmaxX-1,Int((MsxxX-RxlX)/RxbX))) 

' neuen Index berechnen (nur innerhalb des Rasters) 
AypZX=Max(YminX-1,Min(YmaxX-1,Int((MsyyX-RylX)/RybX))) 
Else I auch ■'auBerhalb"-Exitl 

Axp2X=Int((MsxxX-RxlX)/RxbX) 

' neuen Index berechnen (auch auBerhalb des Rasters) 
Ayp2X=Int((MsyyX-RylX)/RybX) 

I 

Endif 

aooing I Irgend etwas tun?l (s.u.) 

Until AxpXoAxpZX Or AypX<>Ayp2X Or KX I Maustaste <.' 

' I gedrückt oder Index verändert? 

Put MsxX-1,MsyX-1,R.back$ I Hintergrund restaurieren 

Until KX Or ((RflgX=1 Or RflgX=3) And (Axp2X<0... 

...Or Axp2X>XniaxX-1 Or Ayp2X<0 Or Ayp2X>YniaxX-1)) 

' Diese UNTIL-Zeile ist aus drucktechnischen Gründen getrennt 
' (siehe auch Prozedurkopf). Die drei Trennpunkte gehören nicht 
' zur Zeilensyntax, sondern sollen nur die Zeilentrennung 
' verdeutlichen. 

Showm I Haus wieder zeigen 

If RflgX=0 Or RflgX=1 I Kettenindex gefragt? 

If KX I Maustaste gedrückt? 

*R.inxX=(Ayp2X»(XfldX)+Axp2X+1)»Sgn(2-KX) 

I 

Else 

*R.inxX=0 
Endi f 
Else 
If KX 

*R.inxX=Axp2X+1 
*R.inyX=Ayp2X+1 
Else 

*R.inxX=0 
*R.inyX=0 
Endif 
Endif 
Return 

I 

Procedure Döing 

' Diese Prozedur muB vorhanden sein, wenn Raster aufgerufen 
' wird und der dortige Ooing-Aufruf ausgeführt werden soll. 

‘ Wie hier gezeigt, kann in dieser Prozedur beliebiger Text 
■ ausgegeben, auf bestiinnte Rasterpunkte reagiert und/oder z.B. 
' die Tastatur bzw. Ereignisse überwacht werden. 

I 

' On tnenu I Evtl. Ereignis-Überwachung 

PtX=(Ayp2X»(XfldX)+Axp2X+1)*Sgn(2-KX) I Kettenindex.. 

Text 230,195,“Punkt: "+Str$(PtX)+“ “ I ...ausgeben 
Return 


I Kettenindex zurückgeben 
I Zeiger auBerhalb des Rasters! 
I IndexX=0 

! X/Y-Index gefragt! 

I Maustaste gedrückt? 

! X-Index zurückgeben 
I Y-Index zurückgeben 
! Zeiger auBerhalb des Rasters! 
! X-Index = 0 
! Y-Index = 0 
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Version 3.0 

PTST Liae-A-Bildschirmpunkt testen 

Var=PTST p(pos,Ypos) 

PTST ist identisch mit POINT(), jedoch unter günstigen Umständen 
ca. doppelt so schnell. Im Durchschnitt ist POINT() um umgefähr 50 
Prozent langsamer. Beachten Sie dazu bitte den POINT()/PTST()-Ver- 
gleich bei POINT(). 


9.5 Grafikoperationen 


Version 3.0 

CLIP { CU } Grafikausgabe begrenzen/Nullpunkt setzen 

CLIP Xpos.Ypos,Breite,Höhe [OFFSET X,Y] 

CLIP XI,Yo TO Xr,Yu [OFFSET X,Y] 

CLIP #Windownummer [OFFSET X,Y] 

CLIP OFFSET X,Y 
CLIP OFF 

Ermöglicht die Bestimmung eines Bildschirmrechtecks, auf welches 
dann sämtliche Grafikausgaben begrenzt werden (außer PUT, LINE- 
A-Grafik, BITBLT und AES-Grafik) bzw. die Festlegung des 
Koordinaten-Nullpunktes für Grafikausgaben. Alle Teile von VDI- 
Grafikausgaben (LINE, BOX, PBOX, DRAW etc.), die die Grenzen 
dieses Rechtecks überschreiten, werden an dessen Grenzen abge¬ 
schnitten. 

Syntax-Variante 1: Xpos und Ypos beschreiben die Position, sowie 
Breite und Höhe die Maße des CLIP-Rechtecks. 

Syntax-Variante 2: XI und Yo beschreiben die Position der linken, 
oberen Ecke des CLIP-Rechtecks. Xr und Yu (hinter TO) beschreiben 
die Position seiner rechten, unteren Ecke. 

Syntax-Variante 3: #Windownummer enthält die GFA-Fensternum- 
mer, dessen Arbeitsbereichs-Position und -Ausmaße für das CLIP- 
Rechteck gelten sollen. 

Syntax-Variante 4: X und Y legen den Koordinaten-Ursprung (in Re¬ 
lation zur linken, oberen Bildschirmecke) für künftige Grafikausgaben 
fest (außer PUT, LINE-A-Grafik, BITBLT und AES-Grafik). OFF- 
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SET X,Y kann auch optional an die vorangegangenen CLIP-Befehls- 
varianten angehängt werden, wodurch ebenfalls der Grafik-Nullpunkt 
bestimmt wird. 

Syntax-Variante 5: CLIPP OFF schaltet aktuelles Clipping wieder aus. 
Beispiel zu 1, 2, 4 und 5: 

Deffill ,2,4 I DEFFILL grau 

Pbox 2,2,218,118 I Hintergrund-Fläche zeichnen 

Deffill ,2,2 I DEFFILL hellgrau 

Clip 10,10,100,100 I Ab 10/10 100 Pixel in jeder 

' I Richtung als Clip-Box 

Pcircle 60,60,60 I Gefüllten Kreis zeichnen 

Clip 110,10 To 210,110 Offset 100,10 

' Bildschirtnbereich mit den Koordinaten 110/10 und 210/110 
' als Clip-Bereich anmelden und Nullpunkt auf 100/10 setzen. 

Pcircle 60,50,60 I Gefüllten Kreis zeichnen 

Clip Off I Clipping ausschalten 

Clip Offset 0,0 I Grafik-Nullpunkt wieder auf 0/0 setzen 

Box 10,10,210,110 I Box um die beiden Kreis-Ausschnitte ' 

Procedure Clip(ClxlX,ClyoX,ClxrX,ClyuX) 

I 

' 'CLIP XI,Yo TO Xr,Yu'-Simulation für V2.xx 

I ............................................. 

' Auch hier wieder eine V2.xx-Erweiterung mit dem Ziel, 

' V3.0-Befehle auch in V2.xx einsetzbar zu machen, wodurch 
' die spatere Anpassung der V2xx-Listings an die V3.0-Syntax 
' - spätestens bei Erscheinen des V3.0-Compilers - wesentlich 
' erleichtert wird. 

I 

' ClxlX = Linke X-Koordinate des Ausschnitts 
' ClyoX = Obere Y-Koordinate des Ausschnitts 
' ClxrX = Rechte X-Koordinate des Ausschnitts 
' ClyuX = Untere Y-Koordinate des Ausschnitts 

I 

Local Cl.buffS,HandleX 

HandleX=Dpeek(Vdibase+40) ! GFA-Handle holen 

Cl.buff*=Mkl$(2)+Mklt(1)+Mkl$(0)+Mki*(HandleX) I---. CONTROL-Feld 
Bmove VarptrfCl.bufft),Contrl,14 l---i (vdI) belegen 

Cl.buff$::Mki$(ClxlX)+Mki$(ClyoX)+Hki$(ClxrX)+Mki$(ClyuX) 

Bmove Varptr(Cl.buff$),Ptsin,8 ! PTSIN-Feld belegen 

Dpoke Intin,1 I Clip-Flag (1 = an) 

Vdisys 129 
Return 

I 

Procedure Clip_off 

I 

' 'CLIP OFF-Simulation für V2.XX 

I 

Local XtX,YtX,CxrX,CyuX 

XtX=2-Sgn(Xbios(4)) I X-Auflösungsteiler 

YtX=Min(2,3-Xbios(4)) ! Y-Auflösungsteiler 

CxrX=639/XtX I Haximale Bildschirmbreite 

CyuX=399/YtX I Haximale Bildschirmhöhe 

Clip(0,0,CxrX,CyuX) ! Prozedur Clip aufrufen 
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Return 

I 

Procedure CliptUindownuimerX) 

I 

' CLIP iVUindoununner-Simulation für V2.xx 

I 

Local CxlX,CyoX,CxrX,CyuX 

CxlX=0peek(Windtab«-4+12*(UinclownimiierX-1)) I.. 

CyoX=Dpeek{Windtab+6+12*(UindouniJimerX-1)) ! Uindow- 

CxrX=CxlX+Dpeek(Uindtab»8+12*(Uindo«niJiinerX-1)) I MaBe 
CyuX=CyoX+Dpeek(Windtab+10+12*(WindounijniterX-1)) I--' holen 
Clip(CxlX,CyoX,CxrX,CyuX) I Prozedur Clip aufrufen (s.o.) 

Return 

Die CLIP OFFSET X0,Y0-Variante läßt sich für die V2.xx-Versionen 
leider nicht innerhalb einer Prozedur realisieren. Vor öffnen eines 
Ausgabe-Fensters kann man dies durch OPENW 0,X0,Y0 erreichen 
(siehe unter OPENW). Allerdings ist dies nicht möglich, solange ir¬ 
gendwelche Fenster geöffnet sind, da sonst die Fensterbereiche 
durcheinander geraten. Bei Aufruf von OPENW 0 darf also kein Fen¬ 
ster geöffnet sein. 


GET Bildschirmbereich speichern 

GETXJinks,Y_oben,X_rechts,Y_unten,Var$ 

Durch GET (nicht zu verwechseln mit dem Diskettenbefehl GET#) 
wird mit den Koordinatenangaben X_links/Y_oben und 
X_rechts/Y_unten ein Bildschirmausschnitt definiert, welcher als 
Bitmuster in Var$ eingelesen wird. Die angegebenen Eck-Koordinaten 
müssen innerhalb des Bildschirmbereichs liegen, da sonst der Inter¬ 
preter den Befehl nicht ausführt. 

Diese sparsame Beschreibung läßt nicht ahnen, was mit diesem Befehl 
alles machbar ist. In Version V3.0 bietet dieser Befehl in Verbindung 
mit RC_COPY geradezu eine optimale Grundlage für die gepflegte 
und schnelle Animation von Bit-Images. Aber auch in V2.xx ist dies 
einer der wichtigsten Befehle überhaupt. 

Beispiel: Und wieder mal ein "kleines" Demo-Listing. Es produziert 
eines der so heiß begehrten Pop-Up-Menüs. Dies sind Menüs, die 
nicht - wie vom GEM her gewohnt - vom oberen Bildrand 
"herunterfallen" bzw. "heruntergezogen" werden (Drop-Down-, bzw. 
Pull-Down-Menü), sondern an der Bildschirmposition erscheinen, an 
welcher sie benötigt werden, nämlich unter dem Mauszeiger. 
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Dabei kann ein beliebiger Bildschirmbereich angegeben werden, in¬ 
nerhalb dessen das Menü dargestellt werden soll, bzw. der als Reakti¬ 
onsbereich fungiert. Ist der Mauszeiger zum Zeitpunkt des Aufrufs 
innerhalb dieses Bereichs, so bleibt das Menü unter dem Mauszeiger 
stehen. Wird ein Menüpunkt angewählt oder verläßt der Mauszeiger 
den Bereich wieder (auch ohne Auswahl), so wird das Menü wieder 
gelöscht. Unter welchen Bedingungen Sie den Menü-Aufruf zulassen, 
bleibt Ihnen überlassen. 

Bei der Einrichtung des Menüs habe ich versucht, weitestgehend den 
Konventionen der GFA-Pull-Down-Menü-Definition Rechnung zu 
tragen. So wird z.B. auch hier ein Menüzeilentext, der mit einem Bin¬ 
destrich beginnt, als unwählbar (grau) dargestellt. Der Punkt ist dann 
von der Auswahl ausgeschlossen. 

Ein wesentlicher Unterschied ist, daß hier aus einem DATA-Block, 
der die einzelnen Zeilentexte enthält, über einen wählbaren Startindex 
beliebige Menüteile ausgeschnitten und angezeigt werden können. 
Außerdem ist die Anzeige des Menüzeilentextes auf eine Pixel-Breite 
von 100 Pixel (Hires/Midres) bzw. 50 Pixel (Lowres) beschränkt. Der 
Text wird per TEXT auf diese Breite formatiert und in den Menü¬ 
punkt eingesetzt. 
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XtX=2-Sgn(Xbios(4)) ! X-Auflösungsteiler 

YtS=Min(2,3-Xbios(4)) ! Y-Auflösungsteiler 
StartX=1 I Erst ab 2. Menüpunkt darstellen 

AnzahlX=21 I Insgesamt 6 Menüpunkte darstellen 

Dirn FeldStStartX+AnzahlX) ! Textfeld einrichten. Nur so viele 
' Menüpunkt-Elemente, wie zur Demo nötig sind. 

Restore M.datas I Datazeiger setzen 

For IX=1 To StartX+AnzahlX ! Menütext-Datas 
Read FeldSdX) I Einlesen 

Next IX 
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H.datas; 

Data --'.Spefehern,Laden,Löschen,Kopieren,.,OUIT 

Data —, Spei ehern, Laden, Löschen, Kopi eren,..,OUIT 

Data —, Speichern, Laden, Löschen, Kopi eren,.,0LIIT 


Der Einfachheit halber habe ich hier dreimal dieselben Texte verwen¬ 
det, um den folgenden Block der IF..ENDIF-Abfragen in Grenzen zu 
halten. In V3.0 können diese Abfragen auch leicht durch IF..ELSE IF 
oder SELECT..CASE vereinfacht werden. 

Im folgenden Listing mußten wieder einige Programmzeilen aus 
drucktechnischen Gründen getrennt werden. Die drei Trennpunkte am 
Zeilenende und Zeilenbeginn gehören nicht zur Zeilensyntax. 

Box 50/XtX,50/YtX,300/XtX,300/YtX 
Do 

Repeat 

If Mou8ex>50/XtX And Mousex<300/XtX And Mousey> ... 

... 50/YtX And Mousey<399/YtX 
SHenuet StartX,AnzahIX,50/XtX,SO/YtX,300/XtX, ... 

... 399/YtX,*FeldS(),*IndexX) 

Endif 

' Weitere Aufruf-Variante: 

' If Mousek=2 

' aHenue(StartX,An2ahlX,0,0,639/XtX,399/YtX, ... 

• ... •Feld$(),*lndexX) 

‘ Endif 

Until IndexX>0 I Or Housek 

1f FeldStIndexX+StartX)="Speichern” 

Fel dS( I ndexX+StartX)=''-Spei ehern” 

FeldS(IndexX+StartX+1)="L8den" 

Print At(1,1);"gewählt: Speichern ” 

Endif 

If FeldS(IndexX+StartX)’:"Laden” 

Feld$(IndexX+StartX-1)="Speichern” 

Feld$(IndexX+StartX)»"-Laden" 

Print At(1,1);"gewählt: Laden " 

Endif 

If Feld$(IndexX+StartX)="Löschen" 

Print At(1,1);"geuählt: Löschen " 

Endif 

If Feld$(IndexX+StartX)="Kopieren" 

FeldStIndexX+StartX)=ChrS{8)+” Kopieren" 

Print At{1,1);"geuöhlt: Kopieren " 

Goto Label 
Endif 

If FeldStIndexX+StartX)=Chr$(8)+" Kopieren" 

FeldStIndexX+StartX)="Kopieren" 

Print Att1,1);"gewählt: Kopieren " 

Endif 

If FeldStIndexX+StartX)="QUIT" 

Print Att1,1);"gewählt: Ouit " 

Endif 

Label: 

Print "Menüindex : ";IndexX 
Exit if FeldStlndexX+StartX)="OUIT” 
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Clr IndexX 
Loop 

I 

Procedure Henue(Pffl1X,MnixX,HxlX,MyoX,HxrX,HyuX,F.adrX,V.adrX) 

' Pop-Up-Henü (Hires/Hidres/Lowres) 

I 

■ PmlX = Index des Henüpunktes (Textfeldindex), der an 

' erster Stelle erscheinen soll. Oie Texte müssen 

■ ab Index 0 im Textfeld stehen. 

' MmxX < Anzahl der Henüpunkte, die ab PmlX dargestellt 
' werden sollen. Der Henü-Index liegt inner im 

' Bereich von 1 bis HmxX. 

■ HxIX, MyoX, MxrX, HyUX 

■ « Rahmenkoordinaten, innerhalb derer das Menü 

' dargestellt werden soll. PaBt das Henü nicht 

' in den Rahmen, liegt die rechte, untere Ecke 

' des Menüs immer auf der rechten, unteren Ecke 

' des Rahmens. 

' F.adrX = Pointer auf das Textfeld. 

' V.adrX * Pointer auf eine Rückgabevariable. 

' Die Rückgabevariable enthält nach Abschluß den 

' Index des gewählten Menüpunktes. Um den dazugehörigen 

' Textfeld-Index zu ermitteln, muB zum Menüindex 'PmlX' 

' addiert werden. 

Local Mmen$,MskX,H.key$,YiX,Yi2X,Mr8X,M.iX,LsrX 
Local Mxl2X,Mxr2X,Hyo2X,Myu2X,M.xtX,H.ytX 
M.xtX=2-Sgn(Xbios(4)} I X-Auflösungsteiler 

H.ytX=Min(2,3-Xbios(4)) ! Y-Auflösungsteiler 

Dirn Dum$(i) I Lokales Swap-Feld 

Swap *F.adrX,DumSO I Felder swappen 

Mxl2X=Min(Max{Mousex-(68/M.xtX),MxlX),MxrX-(136/M.xtX)) 

Mxr2X=Mxl2X+(136/M.xtX) 

Myo2X=Min(Max(Mousey-(6/M.ytX),MyoX),MyuX-(18+MinxX*18)/H.ytX) 
Myu2X=Myo2X+((18+MmxX*18)/M.ytX) 

MxlX°Hin(MxlX,Mxl2X) 

HyoX=Min(MyoX,Myo2X) 

I 

' Oie letzten 6 Zeilen haben die schwierige Aufgabe, den 
' gewünschten Darstellungsbereich des Menüs und die Position 
' der Maus so miteinander zu verkrüpfen, daB das Henü - 
' wervi möglich - unter dem Mauszeiger, aber nicht außerhalb 
• des gewählten Rahmens dargestellt wird. 

I 

Get Hax(0,Mxl2X),Max(0,Myo2X),Hin((639/H.xtX>, ... 

... Mxr2X),Min(Myu2X,399/H.ytX),Mmen$ 

' Menü-Hintergrund speichern 

Deftext 1,0,0,8-2*H.ytX I TextgröBe anpassen 

Deffill 1,0,0 I DEFFILL weiß 

Graphmode 1 I Replace-Modus 

Pbox Hxl2X,Myo2X,Mxr2X,Myu2X I.. 

Box Hxl2X+(1/M.xtX),Myo2X+(1/M.ytX),Hxr2X-(1/ ... I 

... M.xtX),Myu2X-(1/M.ytX) ! 

Deffill 1,2,4 ! DEFFILL grau | 

Pbox Mxl2X+(6/M.xtX),Myo2X+(6/M.ytX),Mxr2X-(6/ ... ! 

... H.xtX),Myu2X-(6/M.ytX) ! 

Deffill 1,0,0 I DEFFILL weiß | 

For M.iX=1 To MmxX ! Alle Menü-Zeilen ! 

Graphtnode 1 ! Replace-Modus } 

Pbox Mxl2X+(13/H.xtX),Myo2X-6/M.ytX+M.iX*18/ ... ! 
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... M.ytX,Mxr2X-(13/M.XtX),Myo2X+6/M.ytX+M.iX*18/M.ytX 
Graphmode 2 I Transparent-Modus j 

If LeftS(0unlS(M.iX+F>m1X))>. I 1.Zeichen m - ? ■ Menü 

Deftext ,2 I DEFTEXT grau j zeichnen 

Text Mxl2X+<20/M.xtX),Myo2X+3/M.ytX+M.iX*18/ ... I 
... M.ytX,100/M.xtX,RightS(Dunit(M.iX+Pin1X}, ... I 
... Len(DutR»(M.iX+F>ni1X))-1) I 

Else I Aktive Zeile I I 

Deftext ,0 I DEFTEXT normal | 

Text Mxl2X+(20/M.xtX),Myo2X+3/M.ytX'fM.iX*18/ ... I 
... M.ytX-UM.ytX,100/M.xtX,Duilt(M.iX+Pm1X) I 


Endif 
Next M.iX 
Deftnouse 3 
Oeffill 1,1,1 
Graphnxxie 3 
Bouixiary 0 
' Dpoke Vdibase+34,0 
Repeat 
On menu 

Mouse Xko.xX,Yko.yX,MskX 


I 

I Nüchste Zeile .' 

I DEFMOUSE Zeigefinger 
I OEFFILL schwarz 
I XOR-Modus 
I V3.0 : P-Rahmen aus 
I V2.XX: P-Rahmen aus 

I Auswahl-Schleife >. 

I Ereignis-Überwachung 
I Maus-Status holen 


YiX=Int((Yko.yX-(Myo2X-(8/M.ytX)))/(18/M.ytX)) 


I 


I Zeilen-Index berechnen 


If Xko.xX>Mxl2X+(12/M.xtX) And YiX>0 And Xko.xX< ... 

... Mxr2X-(13/M.xtX) And YiX<=(M(nxX) 

I Maus auf einem Menüpunkt? 

If LeftS(DumS(YiX+Pm1X))<>"-" I Menüpunkt aktiv? 

Pbox Mxl2X+(U/M.xtX),Myo2X-(5/M.ytX)+YiX*... I in- 
... {18/M.ytX)-1+M.ytX,Mxr2X-(H/M.xtX)+1-... I ver- 
... M.xtX,Myo2X+(5/M.ytX)+YiX*(18/M.ytX) I tie- 
Endif ! ren 


Repeat ! Hausbewegung abwarten >—. 

Yi2X=Int{(Mousey-(Myo2X-(8/M.ytX)))/(18/M.ytX)) 

' I Ggfs, neuen Index holen 

HskXüMousek I Maustasten-Status holen 


M.keyS^InkeyS I Tastatur abfragen 

On menu I Ereignis-Überwachung 

Until Mousex<Mxl2X'''(12/M.xtX) Or Housex>Mxr2X- ... { 

... <13/M.xtX) Or YiXoYiZX Or MskX>0 Or M.key$>'"' <-' 
If Left$(Dum$<YiX+Pm1X))<>''-'' I Menüpunkt aktiv? 

Pbox Mxl2X+(U/M.xtX),Myo2X-(5/M.ytX)+YiX*... I In- 
... (18/M.ytX)-1+M.ytX,Mxr2X-(U/M.xtX)+1-... I ver- 
... M.xtX,Myo2X+(5/M.ytX)+YiX*<18/M.ytX) I tie- 
Else I Menüpunkt ist inaktivi 

Clr MskX I Maustasten-Status löschen 

Endif 


Else I Maus nicht auf Henüpunktl 

Clr Yi2X I Punkt-Index löschen 

Endif 


Exit if (Mousex<MxlX Or Mousex>MxrX Or ... 

... Mousey<HyoX Or Housey>MyuX) And Yi2X<EMmxX 

■ Schleife verlassen, wenn sich der Mauszeiger auBerhalb 

■ des Darstellungsbereichs befindet. 

M.key$=Inkey$ I Tastatur abfragen 

Until (MskX>0 Or M.key$>"") And Yi2X<=MmxX 
' Schleife verlassen, wenn Tastatur betätigt oder ein 

' Mausknopf gedrückt wurde.I <.. 

Defmouse 0 I DEFMOUSE Pfeil 

Deffill 1,0,0 I DEFFILL weiB 
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Graphmcxie 1 I Replace-Hodus 

Put Max(0,Hxl2X),Max(0,Myo2X},Mnien$ I Hintergrund restaurieren 
Boundary 1 I V3.0 : P-Rahmen an 

' Dpoke Vdibase+34,1 I V2.xx: P-Rahmen an 

Swap *F.adrX,Duni$() I Menütextfeld wieder global 

Erase OuntO I Lokales Swap-Feld löschen 

*V.adrX=Yi2X I Gewählten Index zurückgeben 

Pause 5 I Kleine Klickpause 

Return 

Weitere Beispiele zu GET finden Sie hier im Buch in Hülle und Fülle. 


HIDEM { Hl } Mauszeiger ausschalten 

HIDEM 

Der Mauszeiger wird ausgeschaltet, die Koordinatenermittlung kann 
jedoch weiter durch MOUSE-Befehle durchgeführt werden. Bei FI- 
LESELECT- und ALERT-Aufrufen wird intern immer SHOWM aus¬ 
geführt. Nach Box-Bedienung wird intern automatisch wieder HIDEM 
ausgeführt, sofern vor Box-Aufruf HIDEM gültig war. 

Beispiele hierzu finden Sie unter anderem unter DATA in der Proze¬ 
dur Pcode unter CALL in der Prozedur Scroll, unter PSET in der 
Prozedur Raster und im Beispiel zu SHOWM. 


PUT { PU } Bildschirmbereich setzen 

PUT X_links,Y_oben,Var$ [,Modus] 

PUT (nicht zu verwechseln mit dem Diskettenbefehl PUT#) zeichnet 
einen durch GET (siehe dort) eingelesenen Bildausschnitt an die Ko¬ 
ordinaten X_links/Y_oben. Die bei GET definierte Größe bleibt da¬ 
bei unverändert. Die Koordinaten des unteren rechten Eckpunktes er¬ 
geben aus der Breite und Höhe des mit GET gespeicherten Aus¬ 
schnitts. Dabei kann die Position auch so gewählt werden, daß der 
Bildausschnitt teilweise oder auch völlig außerhalb des Bildschirmbe¬ 
reichs liegt. 

Durch die Option Modus kann ein Grafikmodus bestimmt werden, 
sonst wird im Replace-Modus gezeichnet. Negative Werte für Modus 
sollten tunlichst vermieden werden, da sonst mit Fehlfunktionen zu 
rechnen ist. 
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Modus: 


0 = Ziel = 0 

Der Zielbereich wird gelöscht. 


I = Ziel = Quelle AND Ziel 

Nur die Bildschirmpunkte werden im Zielbereich gezeichnet, die vor¬ 
her in Quelle UND Ziel gesetzt waren. 


2 = Ziel = Quelle AND (NOT Ziel) 

Im Zielbereich werden nur dort Punkte gezeichnet, wo vorher in 
Quelle Punkte gesetzt UND in Ziel NICHT gesetzt waren. 

5 = Ziel = Quelle Entspricht GRAPHMODE 1 

Quelle wird komplett in Ziel übertragen. 


4 = Ziel = (NOT Quelle) AND Ziel 

Im Ziel werden nur die Punkte gesetzt, die vorher in Quelle NICHT 
gesetzt UND in Ziel gesetzt waren. 


5 = Ziel = Ziel 

6 = Ziel = Quelle XOR Ziel Entspricht GRAPHMODE 3 

Es werden im Zielbereich nur dort Punkte gesetzt, wo vorher in 
Quelle ODER Ziel ABER NICHT in beiden zugleich Punkte gesetzt 
waren. 


7 = Ziel = Quelle OR Ziel Entspricht GRAPHMODE 2 

In Ziel werden Punkte gesetzt, wenn sie vorher in Quelle ODER in 
Ziel gesetzt waren. 


8 = Ziel = NOT (Quelle OR Ziel) 

Im Ziel werden nur die Punkte gesetzt, die vorher weder in Quelle 
noch in Ziel gesetzt waren. 
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9 = Ziel = NOT (Quelle XOR Ziel) 

Quelle und Ziel werden XOR-verknüpft (siehe Modus 6) und dann im 
Ziel nur die Punkte gesetzt, die in dem XOR-Ergebnis NICHT gesetzt 
sind. 


10 » Ziel = NOT Ziel 

Im Ziel werden die Punkte gesetzt, die vorher in Ziel NICHT gesetzt 
waren (Ziel wird invertiert). 


11 - Ziel = Quelle OR (NOT Ziel) 

Ziel wird vor Quell-Verknüpfung invertiert. Es werden dann nur die 
Zielpunkte gesetzt, die in (Quelle ODER im invertierten Ziel gesetzt 
sind. 


12 = Ziel = NOT Quelle 

Es werden im Ziel nur die Punkte gesetzt, die in Quelle NICHT ge¬ 
setzt waren. 


13 = Ziel = (NOT Quelle) OR Ziel Entspricht GRAPHMODE 4 
Quelle wird vor Ziel-Verknüpfung invertiert. Es werden dann nur die 
Zielpunkte gesetzt, die in der invertierten Quelle ODER in Ziel ge¬ 
setzt sind (revers transparent). 


14 - Ziel = NOT (Quelle AND Ziel) 

Nach einer AND-Verknüpfung von Quelle und Ziel werden an¬ 
schließend nur die Punkte im Ziel gesetzt, die im Verknüpfungsergeb¬ 
nis NICHT gesetzt sind. 


15 - Ziel - 1 

Im Ziel werden alle Punkte gesetzt. 

Das folgende Beispiel stellt die Verknüpfungsmodi im Monochrom- 
Modus dar. Im Farbbetrieb ist das Verknüpfungsergebnis von den 
Farbwerten der beteiligten Farbregister abhängig und nur sehr schwer 
voraussagbar. 
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Im Beispiel wird eine Routine verwendet (Size), die die Aufgabe hat, 
einen beliebigen Bildschirmausschnitt in beliebiger Richtung zu ver¬ 
größern oder zu verkleinern. Dabei wird vorübergehend die linke 
obere Bildschirmecke zur Produktion des neuen Bildes "mißbraucht”, 
jedoch nach Erledigung wieder restauriert. 

Beispiel (nur Hires): 


For IX=1 To 67 
Read AX 
A$=A*+Mki$(AX) 

Next IX 

Oeftext ,16,,12 
Text 100,25,'‘PUT-Verknüpfung" 
asi2e(100,2,400,30,540,28,»B$) 
Put 80,2,B$ 

Deftext ,0,,12 
Put 8,2,A$ 

Put 600,2,A$ 

asize(8,2,40,34,64,64,»A$) 
Print At(10,i0);"BiId mit Maus 
Repeat 

Mouse MxX,MyX,MkX 
Put MxX,MyX,A$,6 
Put MxX,MyX,A$,6 

I 

Untit MkX 
Deffill ,2,2 
Pbox 6,36,633,393 


I 3 Header-Uords + 64 Oaten-Uords 
( DATA lesen 
! PUT-String bilden 
! Nächstes Word 
! DEFTEXT outlined 

I Text verlängern 
I Text-Image zeichnen 
! DEFTEXT normal 
! Männchen steht... 

! ... Spalier 
I Männchen vergrößern 
bewegen! (Ende durch Mausklick)" 

! Männchen bewegen >--. 

! 

! Image im XOR-Modus ! 

■ Zweimal auf dieselbe I 

I Position. j 

! < . ' 

! DEFFILL hellgrau 
! Hintergrundbox zeichnen 
! Transparent-Modus 
! 4 mal _ 


Graphmode 2 
For IX=0 To 3 


For JX=0 To 3 I ... 4 

Put 36+IX*166,46+JX*88,A$,JX*4+1X I Männchen zeichnen 
Text 36+IX*166+18,46+JX*88+80,Str*(JX*4+lX) ! Modus anzeigen 
Next JX 
Next IX 

' Männchen-DATAs 


Data 31,31,1,0,0,7,49152,15,57344,24,12288,32,2048,230 
Data 52736,266,41216,324,17664,322,34048,292,18688,227 
Data 36352,40,10240,23,53248,8,8192,255,64512,373,22016 
Data683,43776,1365,21888,1771,43648,1365,23936,1771,44928 
Data 2525,30272,2223,60480,2775,54592,3756,44480,2004,55168 
Data 168,27648,248,31744,136,17408,132,33792,252,64512,0,0 


Procedure SizeCXlX,YoX,XrX,YuX,XdX,YdX,BufX) 

' Für Hires/Midres/Lowres ! 

' Streckt oder staucht einen beliebigen Bildschirmausschnitt 
' in X- urxl/oder Y-Richtung und liefert das Ergebnis in einem 
' PUT-Rückgabe-String. 


XIX = Linke Quell-X-Koordinate 
YoX = Obere Quell-Y-Koordinate 
XrX = Rechte Quell-X-Xoordinate 
YuX = Untere Quell-Y-Koordinate 
XdX = Breite des neuen Bildes in Pixel 
YdX = Höhe des neuen Bildes in Pixel 
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‘ BufX = Pointer auf eine Rückgabe-Stnng-Variable, die nach 
' Rückkehr den erzeugten Ausschnitt enthält. Dieser 

' kann anschließend durch PUT an eine beliebige 

■ Bildschimposition gesetzt werden. 

Local Bg$,X8Z,Ysz,IX,JX,XcntX,YcntX,MdX,XtX,YtX,Buf$ 


YtX=Min(2,3-Xbios(4)) f 

XtX=2-Sgn(Xbios(4)) I 

Graphmode 1 I 

Deffill ,0,0 I 

YuX=«ax(0,Min((399/YtX),YuX)) ! 
XrX=Max(0,Min((639/XtX),XrX)) I 
Ysz=YdX/{YuX-YoX) I 

If Y8Z<1 I 

MdX-7 I 

Else I 

HdX=3 ! 

Endif 


Y-Auflösungsteiler 
X-Auflösungstei ler 
Replace-Hodus 
DEFFILL weiB 

Y_unten innerhalb des 

X_rechts Bildschirms halten 

Höhenverhaltnis neu/alt 
Neue Höhe < alte Höhe? 

Dam Transparent-Modus 
Neue Höhe => alte Höhel 
Dam Replace-Modus 


' Dpoke Vdibase+34,0 I V2.xx: P-Rahmen ausschalten 

Boundary 0 I V3.0 : P-Rahmen ausschalten 

Dirn V.buf$(YuX-YoX) I BiIdzeilen-Pufferfeld 

Dirn H.buf$(XrX-XlX> I BiIdspalten-Pufferfeld 

Get 0,0,Min((639/XtX),Max{XrX-XlX,XdX+10)), ... 

... Hin{(399/YtX),Max{YuX-YoX,YdX+10)),Bg$ 

' Hintergrund des Arbeitsbereichs (links oben) speichern 

For IX=0 To (YuX-YoX) I Alle Bildzeilen >.. 

Get XlX,YoX+IX,XrX,YoX+IX,V.buf»(YcntX) I speichern j 
Inc YcntX I Zeitenzähler +1 j 

Hext IX I Nächste Zeile <.' 

Pbox 0,0,max(XdX,XrX-XlX),YdX I Arbeitsbereich löschen 

For IX=0 To YcntX-1 I Alle Zeilen >.. 

Put 0,IX»Ysz,V.buf$(IX),MdX I Mit Versatz zeichnen j 
If Ysz>1 And IX<YcntX-1 I Neue Höhe > alte Höhe? } 

For JX=0 To Ysz I Dam Ysz Zeilen... 

Put 0,IX*Ysz*JX,V.buf*(IX),MclX I ... auf füllen | 
Next JX I 

Endif I 

Next IX I Nächste Zeile <.‘ 

Xsz=XdX/(XrX-XlX) I Breitenverhältnis neu/alt 

If Xsz<1 I Neue Breite < alte Breite? 

MclX=7 ! Dam Transparent-Modus 

Else I Heue Höhe => alte Höhe! 

NdX=3 I Dam Replace-Modus 

Endi f 

For IX=0 To (XrX-XlX) I Alle Bildspalten >.. 

Get IX,0,IX,YdX,H.buf$(XcntX) I Speichern j 

Inc XcntX ! Spaltenzähler +1 i 

Next IX I Nächste Spalte <.' 

Pbox 0,0,XdX,YdX I Arbeitsbereich löschen 

For IX=0 To XcntX-1 I Alle Spalten >. 

Put IX*Xsz,0,H.buf$(IX),MdX I Mit Versatz zeichnen 
If Xsz>1 And IX<XcntX-1 I Neue Breite > alte Breite? 
For JX°0 To Xsz I Dam Xsz Zeilen... 

Put IX*Xsz+JX,0,H.buf$(IX),MdX I ... auffüllen 
Next JX 
Endif 

Next IX I Nächste Spalte <. 

Get 0,0,Min((639/XtX),XdX),Min<C399/YtX),YdX),Buf$ 

• I Neues Bild speichern 

Put 0,0,BgS I Arbeitsbereich wieder räumen 
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Erase V.buf$() ! Spalten-Puffer löschen 

Erase H.buf$() ! Zeilen-Puffer löschen 

' Dpoke Vdibase+34,1 ! VZ.xx: P-Rahmen einschalten 

Boundary 1 ! V3.0 : P-Rahmen einschalten 

•Buf*=BufS I Neuen PUT-String zurückgeben 

Return 



9.5.1 Organisation eines PUT-Strings 

In diesem Zusammenhang ist es vielleicht angebracht, ein paar Worte 
zur PUT-String-Organisation zu verlieren. 

Die ersten 3 Words (6 Bytes) des Strings enthalten der Reihe nach: 


Word I 

Die Breite des Ausschnitts minus 1 (= X rechts minus X_links). 


Word 2 

Die Höhe des Ausschnitts minus 1 (= Y_unten minus Y_oben). 


Word 3 

Anzahl der Bit-Planes (Hires = 1/Midres = 2/Lowres = 4). 
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In Hires entspricht ein gesetztes Bit im PUT-Raster einem gesetzten 
Punkt im gespeicherten Bild-Ausschnitt. 

An diesen sogenannten "Header" (Kopf) werden der Reihe nach die 
Bit-Informationen des gespeicherten Ausschnitts angehängt. 

Dies geschieht in Hires nach folgendem Schema: Angenommen, der 
Ausschnitt ist 26 Pixel breit und 15 Pixel hoch. Die Breite des 
Anschnitts wird durch 16 (Wordbreite) geteilt und - falls bei der Tei¬ 
lung ein Rest geblieben ist - zum integrierten Teilungsergebnis der 
Wert 1 hinzugezählt: 

Word 1 = Int(26/16)+Abs{(26 MOO 16)>0) 


Die Bit-Raster-Breite im PUT-String ist also immer glatt durch 16 
teilbar. Im obigen Beispiel belegen die Pixel-Bits 17-26 der ersten 
Ausschnittzeile die Bits 0 bis 9 des 5. String-Words, während die ver¬ 
bleibenden Bits 10 bis 15 des 5. Words mit "irgend etwas" gefüllt wer¬ 
den. Diese nicht benötigten Bits enthalten also unbrauchbaren Bit- 
Müll. 


. 32 Bit ( = 2 Words ) .>! 

j<. Ausschnittbreite = 27 Pixel .>j<- 'MüU'->j 
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(Hex-Bitnunnern) 


In diesem Rythmus werden nun alle Bildzeilen im Ziel-String abge¬ 
legt. Bit 0 - 15 des 6. Words und Bit 0 - 9 des 7. Words enthalten die 
Daten der 2. Pixel-Zeile, Bit 0-15 des 8. Words und Bit 0 - 9 des 9. 
Words enthalten die Daten der 3. Pixel-Zeile usw. 


In Midres oder Lowres wird das Verfahren wesentlich komplizierter. 
Ich habe fast einen ganzen Tag damit verbracht, mir zu überlegen, wie 
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ich dieses Verfahren transparent machen könnte. Und zwar so, daß es 
für jeden leicht verständlich ist. Nach vielen erfolglosen Ansätzen 
habe ich mich entschlossen, die vielen Seiten Text, die ich dabei ver¬ 
schwenden würde, durch eine möglichst aussagekräftige Grafik zu er¬ 
setzen und diese dann zu erklären. 



Prinzipiell ist es in Farbe das gleiche Schema, nur daß sich die Far¬ 
binformationen eines Bildschirmpunktes daraus ergeben, daß 2 
(Midres) bzw. - wie in der Grafik dargestellt - 4 (Lowres) Bitraster 
(Planes) im oben beschriebenen Format "übereinander" gelegt werden. 
Das für den jeweiligen Punkt zuständige Farbregister ergibt sich aus 
der Bit-Summe der jeweiligen Plane-Bits. Grundsätzlich ist ein Farb- 
GET/PUT-Image genauso organisiert wie der Farb-Bildschirm, wobei 
nur jeweils die nicht benötigten Rest-Bits (Bit-Müll) des letzten Words 
einer Zeile zu beachten sind. 

In der Grafik habe ich die Bits der Reihenfolge nach durchnumme¬ 
riert. Als Beispiel habe ich ein 14*6-Raster gewählt. Nehmen Sie an. 
Sie "schneiden" mittels GET aus dem Bildschirm ein Teil mit der 
Breite von 14 und der Höhe von 6 Pixel aus. Die ersten sechs Bytes 
des String-Headers habe ich ja oben schon erklärt. Daran schließen 
sich nun - im Beispiel - im 4-Word-Rhythmus die Bit-Informationen 
der einzelnen Zeilen an. 
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Legt man nun die vier Planes direkt übereinander, so ergibt die Bit- 
Stellung der vier zusammengehörigen Bits die Nummer des Farbregi- 
sters, aus dem dieser Bildschirmpunkt seine Farbe bezieht. In der 
Grafik habe ich das Ausschnitt-Pixel 4/3 besonders herausgestellt, um 
daran die Farbberechnung zu demonstrieren. 


ln Plane 1 ist dieses Bit gesetzt : 2*0 = 1 
In Plane 2 ist es ebenfalls gesetzt : 2*1 > 2 
In Plane 3 ist es nicht gesetzt : 0=0 
In Plane 4 ist es wiederum gesetzt : 2*3 = 8 


Die Surme dieser vier Bits ergibt : 11 


Das Pixel 4/3 des Ausschnitts bezieht seine Farbe also aus dem 
Farbregister 11. Zur Vertiefung nehme ich nun noch die vier Bits 205, 
221, 237 und 317 am rechten Rand. 

In Plane 1 ist das Bit nicht gesetzt : 0=0 

In Plane 2 ist es gesetzt : 2*1 = 2 

ln Plane 3 ist es ebenfalls gesetzt : 2*2 = A 

In Plane A ist es nicht gesetzt : 0=0 

Für Pixel 1A/A ist das Farbregister 6 zuständig. 


In der Grafik sehen Sie, daß die beiden letzten Bits jeder Zeile leer 
sind. An Speicherplatz wird jedoch für jedes "angebrochene" Word ein 
volles Word benötigt. Wäre also in diesem Fall der Ausschnitt 17 
Punkte breit, so würde dafür der doppelte Speicherplatz erforderlich, 
obwohl vom zweiten Word jeder Zeile nur das 1 Bit belegt wäre. 

Anhand der Word-Numerierung können Sie erkennen, in welcher 
Folge die Words im Speicher liegen. 

Als Beweis für die Richtigkeit dessen, was ich gesagt habe, folgt nun 
ein kleines Listing (gilt nur für Lowres). Dieses Listing ist hier durch 
die eingestreuten Kommentare und Erläuterungen etwas in die Länge 
gezogen. Gehen Sie davon aus, daß ab hier alle Listing-Zeilen bis zur 
abschließenden Prozedur Gplane zusammengehören. 

Dirn TosX(15),VdiX(15) I TOS- und VDI-Tabellen 

For IX=0 To 15 ! 15 Farbregister 

Read TosX(IX) ! TOS-Index lesen 

Next IX 

For IX=0 To 15 ! 15 Farbregister 

Read VdiX(IX) ! VDI-Index lesen 

Next IX 

' Umrechnungstabelle VDI -> TOS 

Data 0,15,1,2,4,6,3,5,7,8,9,10,12,14.11,13 
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• Umrechnungstabelle TOS -> VDI 

Data 0,2,3,6,4,7,5,8,9,10,11,14,12,15,13,1 

Zuerst brauchen wir dazu zwei Umrechnungstabellen, die uns die 
Möglichkeit geben, die verwendeten Farben auch nachprüfen zu kön¬ 
nen. Wenn man nämlich über einen VDI-Befehl (COLOR, DEFFILL, 
DEFTEXT etc.) eine Farbe bestimmt und dann eine Figur damit 
zeichnet, wird intern nicht der VDI-Index zur Farbbestimmung ver¬ 
wendet, sondern dieser wird intern vor Befehlsausführung in den 
TOS-(Hardware-)Index umgerechnet. Wird nun wiederum die Farbe 
eines Bildschirmpunktes über die VDl-Funktion POINT() gelesen, 
wird auch hier vor der Wertrückgabe der Farbwert vom TOS- in den 
VDI-Index zurückgewandelt. Die Line-A-Funktion PTST() liest dage¬ 
gen den Bildschirmpunkt im TOS-Index. Übrigens bedienen sich alle 
Line-A-Befehle des TOS-Index’. 

Ehrlich, Sie haben mein tiefes Mitgefühl bei dem verzweifelten Ver¬ 
such, dieses Mischmasch zu verstehen (was ist denn VDI?, warum 
TOS?, wieso überhaupt?), aber vor dem Erfolg steht nun einmal der 
Schweiß. 


Es kommt noch besser. Es bleibt nämlich nicht dabei, sich die näheren 
Zusammenhänge vor das "geistige Auge" zu halten, sondern diese auch 
aus den geistigen Tiefen in die Realität eines beweisbaren Algorithmus 
zu zerren. Aber zusammen schaffen wir das. 


Deffill 2,2,8 
Pbox 295,5,318,21 
For IX=0 To 5 
For JX=0 To 13 
Read A$ 

A%=Val("&H"+A$) 
Color VdiX(AX) 
Plot 300+JX,10+lX 
Next JX 


! VDI-Register 2 für Füllmustcr 
! Kleine Hintergrund-Box zeichnen 

I .. 

I Grafik vorbereiten 
t (die Oatas enthalten 
! TOS-Farbe !- im Hexa-Format die TOS- 
l-> VDI Index j Farbwerte für die 
I Punkt setzen I einzelnen Bildpunkte) 

! 


Next IX I 

Data 5,5.5,6,6,6,6,6,6,6,6,5.5,5 
Data 5,6,6,B,B,B,B,B,B,B,B,6,6,5 
Data 6,B,B,B,B,B,B,B,B,B,B,B,B,6 
Data 6,B,B,B,B,B,B,B,B,B,B,B,B,6 
Data 5,6,6,B,B,B,B,B,B,B,B,6,6,5 
Data 5,5,5,6,6,6,6,6,6,6,6,5,5,5 


Get 300,10,313,15,AS I Erzeugte Grafik speichern 

AdrX=Varptr(A$) ! Startadresse des GET/PUT-Strings 


Noch einmal: Gleich, wie eine Grafik entsteht - ob die Farben über 
den TOS- oder den VDI-Index - ob Line-A- oder VDI-Grafikbefehle 
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verwendet wurden - der durch GET gespeicherte Ausschnitt liegt im¬ 
mer im TOS-Format im Speicher!! 

Wenn Sie die Farben durch den VDI-Index bestimmt haben, erwarten 
Sie bitte nicht, daß die zusammengehörigen 4 Bits eines Bildpunktes 
im Speicher den VDI-Index wiedergeben. Nehmen wir als Beispiel den 
in den oben stehenden Datas verwendeten TOS-Farbwert B (11). Die 
Stellung der 4 zusammengehörigen Plane-Bits im Speicher für einen 
Punkt dieser Farbe wäre: 

1011 {2'3+2'1+2‘0 = 11) 

Der Index wurde oben durch COLOR in den VDI-Index umgerechnet: 

1110 (2'3+2'2+2'1 = U) 

Durch die folgenden 4 Programmzeilen werden nun die vier Bits er¬ 
mittelt, in den der Plane-Stellung entsprechenden Wert umgerechnet 
und addiert. Aus dieser Addition ergibt sich wieder der Wert 11 (Hex: 
B). 


Bit4.3X=2‘0*Abs((Opeek(AdrX+6+16) And 2‘12)>0) 

' Plane-1-Bit = Bit 12 (4.Bit v.links) des 9.Uords 

' hinter dem String-Header (= 12. Word des Strings) 

Bit4.3X=Bit4.3X+2‘1*Abs((Dpeek(AdrX+6+18) And 2'12)>0) 

' Plane-2-Bit = Bit 12 des lO.Uords hinter dem Header 
Bit4.3X=Bit4.3X+2‘2*Abs({Dpeek(AdrX+6+20) And 2‘12)>0) 

• Plane-3-Bit = Bit 12 des ll.Uords hinter dem Header 

Bit4.3X=Bit4.3X+2'3*Abs({Dpeek(AdrX+6+22) And 2‘12)>0) 

' Plane-4-Bit = Bit 12 des 12.Uords hinter dem Header 

I 

Print “Farbwert für Ausschnitt-Pixel 4/3 : “;Bit4.3X 

Die Berechnungszeilen für den Farbwert sind vielleicht etwas schwer 
zu durchschauen. Zuerst erzeuge ich in der Zeile den Bitwert, der der 
Stellung des Bits in der Plane-Hierarchie entsprechen würde (2^0, 2^1 
etc.). Dieser Wert wird dann mit 1 multipliziert, falls das Bit 12 (4. Bit 
von links) des betreffenden Words gesetzt ist, anderenfalls mit 0. So 
verfahre ich mit allen vier Plane-Bits und addiere die Werte. 

Die folgenden vier Zeilen ermitteln die Breite und Höhe des Aus¬ 
schnitts, die Anzahl der bei der GET-Speicherung vorhandenen Bit- 
Planes sowie daraus dann anschließend den Speicherbedarf des 
GET/PUT-Ausschnitts in Bytes. 


BrX=Dpeek(AdrX)+1 

HoX=Dpeek(AdrX+2)+1 

PlX=Dpeek(AdrX+4) 


I Breite des Auschnitts (hier: 14) 
I Höhe des Ausschnitts (hier: 6) 
I Anzahl der Bit-Planes (hier: 4) 
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BytesX=Int{(BrX)/16)+Abs{((Br*) Hod 16)>0)*Ho**Pl**2 

I I I I I 


I II I 

(Uords je Zeile) • Zeilen • Planes • (2 Bytes Je Word) 

BytesX=BytesX'«'6 I plus sechs Header-Bytes 

Print "Ausschnittbreite : ";BrX 

Print "Ausschnitthöhe : ";HoX 

Print "Anzahl Bit-Planes : ";PIX 

Print "Speicherbedarf des Ausschnitts : ";BytesX 

Print "Länge des Speicher-Strings : ";Len(A$) 

Print 

Ein weiterer Beweis für die Richtigkeit der Aussagen wird nun durch 
den nächsten kleinen Programmblock geliefert. Dabei wird das Bild¬ 
chen Punkt für Punkt mit der (VDI-)Funktion POINT() auf die ent¬ 
haltenen Farbwerte getestet. Als Ergebnis sehen Sie dieselben Hex- 
Farbwerte, die eingangs auch in den Datas verwendet wurden. 

Hier kommt übrigens die andere Umwandlungstabelle in’s Spiel. 
POINTO liefert die Farben der Bildpunkte im VDI-Index. Um einen 
Vergleich anstellen zu können, wird dieser Index in der PRINT-Zeile 
in den TOS-Index umgewandelt. 


For IX=0 To HoX-1 ! 6 Zeilen 

For JX=0 To BrX-1 ! 14 Spalten 

Vdi_farbeX=Point(300+JX,10+IX) ! VOl-Farbwerte der Bildpunkte 
Print Right$("0"+Hex$(TosX(Vdi_farbeX)))' ! als TOS-Index im 
Hext JX ! Hex-For. ausgeben 

Print 
Hext IX 

Soweit, so gut. Das haben Sie ja alles ganz tapfer durchgestanden. 
Aber was soll man mit diesem konfusen DPEEK-, POINT()-, CO- 
LOR-, GET-Wirrwarr anfangen? Als Belohnung und krönender Ab¬ 
schluß folgt nun eine Prozedur, die Sie aller Sorgen entledigt. 

Zuerst speichern wir die kleine Grafik ab; 

Bsave "BILD.DAT",Varptr(A$),Len(A$) 

Nachdem Sie das getan haben, wechseln Sie auf den Monochrom-Mo¬ 
nitor und starten das folgende Program (mitsamt der Prozedur Gplane 
natürlich). 

Sie haben vielleicht keinen Hires-Monitor? Das macht nichts. Die 
Routine funktioniert auch für Lowres->Midres-Konvertierungen. Die 
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hier gemachten Angaben beziehen sich jedoch hauptsächlich auf 
Lowres->Hires-Konvertierungen, was wohl auch das vorwiegende 
Einsatzgebiet der Prozedur ist. 

Dirn Feldld) I Duimy-Swap-Feld einrichten 

Open "i'',#1,"BILD.DAT" I Bilddatei öffnen... 

AS=Input$(Lof(#1),#1) I ...und einiesen... 

Close All I ...und wieder schließen 

9Gplane(A$,0} I Aufruf, wem das Bild komplett dargestellt 
' werden soll. Die Planes werden überlagert. 

Print At(1,5);"4 Planes übereinander {<Taste>=Ueiter)" 

Void Inp(2) 

Cls 

SGplane(AS,1} I Aufruf, wenn die Planes einzeln dargestellt 
' werden sollen. 

Print At(1,5);"4 Planes separat (<Taste>=Ueiter)" 

Void lnp(2) 

Cls 

aGplane(AS,*Feldl O) I Aufruf, wenn die Planes in einem 
' Bit-Feld zurückgegeben werden sollen. 

I 

For IX=1 To Dpeek(Varptr(A$)+4) I Alle Planes 

For JX=1 To Dpeek(Varptr(A$))+1 I Alle Spalten 
For KX=1 To Dpeek(Varptr(A$)+2)+1 I Alle Zeilen 
Color Abs(Feld!(IX,JX,ia)) I COLOR 0 oder 1 
Plot IX*BrX+2+JX,2+KX I Punkt setzen 

Next KX 
Next JX 
Next IX 

Print At(1,S);"4 Planes separat aus Bit-Feld gelesen" 

Wie unten in der Prozedur Gplane beschrieben, enthält das Bitfeld 
Feld!() die Bit-Informationen der einzelnen Planes. Dabei entspricht 
die Indizierung des Feldes der Lage der einzelnen Lowres- bzw. 
Midres-Pixel innerhalb des Bildes bzw. Ausschnitts; 

Feld!(2,87,113) 

Enthält das Bit des Pixel 87/113 aus der 2. Plane. Alle Dimensionen 
beginnen dabei mit dem Index 1: 

Feldld,1,1) 

Enthält das Bit des ersten Pixel (von links) der ersten Zeile (von oben) 
der ersten Plane. Was Sie nach Rückkehr aus der Prozedur mit diesem 
Feld machen, ist Ihrer Phantasie überlassen. Auf der beiliegenden Dis¬ 
kette finden Sie übrigens in GPLANE_X.LST noch einmal dieselbe 
Routine. Diese ist dann allerdings speziell auf V3.0 zugeschnitten und 
weitestmöglich geschwindigkeits-optimiert. 

Procedura Gplane(Pstr$,FldX) 

' Konvertiert Lowres- oder Hidres-Auschnitte oder 
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-FuUscreens nach Hires, bzw. Lowres-Ausschnitte 
oder -FuUscreens nach Midres. 

PstrS = String, der die Bilddaten enthält 

(entwert GET/PUT-String, Standard-FulIscreen 
oder Degas-FulIscreen). 

FldX = Entweder Pointer oder Flag. 

FldX = 0 

Flag, das besagt, daB das zu konvertierende Bild 
konplett dargestellt werden soll. Die einzelnen 
Bit-Planes werden dabei überlagert. Aus der Stellung 
der gesetzten Pixel kann abgelesen werden, welche 
Farbe das ursprüngliche Pixel hatte. 

Midres: 

Plane-Bit 

i 0 i 1 ! 

I_I_I 

Lowres: 

Plane-Bit 


' Ist ein Lowres-Pixel in Hires z.B. so aufgeteilt 

I 

• 1 0 

• 0 1 

I 

■ so hatte das entsprechende Pixel in Lowres die 

' Farbe 5 (2‘0+2‘2). 

I 

• FldX = 1 

' Flag, das besagt, daB von dem Bild alle Planes separat 

' dargestellt werden sollen. Dabei werden die einzelnen 

' Planes nach demselben Schema angezeigt wie bei FldX=0 

' die einzelnen Pixel. 

I 

• FldX > 1 

' Ist FldX gröBer als 1, so wird das als Pointer auf 

' ein Boole-Feld interpretiert, in welchem nach AbschluB 

' die Bit-Informationen der einzelnen Planes abgelegt sind. 

I 

Local IX,JX,ICX,LX,B$,AdrX,BrX,HoX,PlX,UordsX,OffsetX,OfsX 
Local Pl2X,I2X,I3X,I4X,I5X,J2X,J3X,B2$ 

AdrX°Varptr(Pstr$) I Startsdresse des Bildes 

If Len(Pstr$)=32000 Or Len(Pstr$)=32034 
' I Standard- oder Degas-Fullscreen? 

BrX=320 I Bzw. BrX=640 für Midres-BiIder (Breite) 

HoX=200 I Höhe ist inmer 200 Punkte 

PIX=4 I Bzw. PIX=2 für Hidres-BiIder (Planes) 

If Len(Pstr$)=32034 I Degas-Bild? 
BrX=640/(2-Dpeek(Varptr(PstrS))) I Darm Breite berechnen 
PlX=2*(2-Dpeek(Varptr(Pstr$))) I Planes des Degas-Bildes 
OfsX=34 I Offset zu den Bilddaten 

Endif 

Else I GET/PUT-Ausschnitt 

BrX=Dpeek(AdrX)+1 I Breite » 1. Word des Strir>gs 
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HoX=Dpeek(AdrX+2)+1 I Höhe = 2. Word des Strings 
PlX=0peek(AdrX+4) I Planes = 3. Word des Strings 
0fsX=6 I Offset zu den Bilddaten 

Endif 

P12X=PIX*2 I Bytes je Plane Je Word 

WordsX=(Int{(BrX)/16)+Abs(((BrX) Mod 16)>0)) 

' Anzahl der Uords Je Zeile und Plane 

B2S=String$(16,"0") I Binär-String-Puffer vorbereiten 

If FldX>1 I Feld-Pointer übergeben? 

Ditn Bitfeldl(PlX,BrX,HoX) I Bit-Feld dimensionieren 
Endif 

For IX=0 To PlX-1 I Alle Planes 

I2X=AdrX+OfsX+lX*2 I---. 

I3X=lnt(IX/(PlX/2))*HoX I Vorbereitung von Konstanten 

I4X»(IX Mod (PlX/2))*BrX-1 I zur Zeit-Optimierung 

I5X=<IX Mod (PlX/2))-1 I---' 

For JX=0 To HoX-1 

J2X=JX*(UordsX*Pl2X) I---. Vorbereitung von Konstanten 

J3X*JX*Xbios(4)+IX/(PlX/2)l---' zur Zeit-Optimierung 
Clr B$ I Binär-String löschen 

For KX=0 To WordsX-1 I Alle Uords der Zeile 

0ffsetX=I2X+J2X+KX*Pl2X I Uord-Offset zum String-Anfang 
B$=B$'*'Right$(B2S'^BinS(Dpeek(0ffsetX)),16) I Binär-String 
' Ich bin hier einen etwas ausgefallenen Ueg gegangen, um 
' die - manchmal - gewaltige Bit-Kette zusammenzufügen. Es 
' können immerhin bis zu 640 Bits in einer Zeile stehen - 
' und einen 640-Bit-Uert kann noch kein Personal-Computer 
■ verarbeiten. Das wäre eine Zahl mit immerhin 193 Stellen. 

Hext KX 

B$=Left$(BS,BrX) I Relevante Bit-Kette abschneiden 

For LX=1 To BrX I Alle Bits der Kette 

If FldX>1 I Feld-Pointer wurde übergeben 

Bitfeld!{IX+1,LX,JX+1)=(Mid$(B$,+LX,1)="1") I Dann 
■ Jedes Bit in das Feld einsortieren. 

Else I Es wurde kein Pointer übergeben! 

If Midt(B$,+LX,1)=''1" I LXtes Bit der Kette gesetzt 

If FldX=0 I Planes überlagern? 

Plot LX*(PlX/2)+I5X,J3X I Pixel zeichnen 
Else ! Planes separati 

Plot LX+I4X,JX+I3X I Pixel zeichnen 

Endif 
Endif 
Endif 

Next LX I Nächstes Bit 

Next JX I Nächstes Word 

Next IX I Nächste Plane 

If FldX>1 I Feld-Pointer wurde übergeben? 

Swap *FldX,Bitfeld!() I Gefülltes Bit-Feld zurückgeben 

Erase BitfeldIO I Dummy-Swap-Feld löschen 

Endif 
Return 

Nach allem, was ich (bzw. die ST-Erbauer) Ihnen zugemutet habe(n), 
bleibt nur noch die Frage, wie man Hires-Bilder nach Midres oder 
Lowres konvertiert. Ich glaube, daß die Menge an Informationen in 
diesem Abschnitt ausreichen sollten, um Sie mit der Entwicklung einer 
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entsprechenden Routine zu betrauen. Eigentlich braucht man ja "nur" 
den ganzen Algorithmus umzukehren - bloß wie? 

Ich wünsche Ihnen viel Spaß bei Ihren "Hausaufgaben". 


9.5.2 Organisation des Bildschirm-Speichers 

Die oben beschriebene Prozedur ist ja auch in der Lage, komplette 
Lowres- oder Midres-Fullscreens zu konvertieren. Damit wäre der 
Aufbau eines Bildschirmspeichers eigentlich auch schon erklärt. Trotz¬ 
dem will ich hier noch einmal gesondert auf die Organisation des 
Bildschirmspeichers eingehen. 

Der Monochrom-Bildschirm wird genaugenommen in ein Feld von 400 
Zeilen zu je 80 Byte (= 32000 Bytes) aufgeteilt. Diese Zeilen hängen 
wie eine lange Kette aneinander. Das erste Byte des Bildschirms (das 
ist die Adresse, die mit XBIOS(2) erfragt werden kann), enthält die 
ersten acht Pixel der obersten Bildschirmzeile. Das zweite Byte folgt 
rechts davon usw. Bis zum 80. Byte, das in der obersten Zeile ganz 
rechts außen liegt. Das 81. Byte liegt dann wieder auf der linken 
Bildschirmseite und zwar in der zweiten Zeile von oben. Das 82. Byte 
folgt dann wieder rechts davon usw. 


jBytel Byte2 

Byte81 Byte82 

Bytes .... 
Byte83 .... 

.. Byte78 
.. Byte158 

Byte79 Byte80 ! 

Byte159 Byte160 

I AOO Zeilen. 

V. 



[Bytes1841 Byte31842 Byte31843 . 
!Byte31921 Byte31922 Byte31923 . 

.. Byte31918 Byte31919 Byte31920| 
.. Byte31998 Byte31999 ByteSZOOOj 


Auf diese Art setzt sich der Bildschirm mit der Auflösung von 640 Pi¬ 
xel (80 Bytes zu je 8 Bit = 640) in der Breite und 400 Pixel (400 Zei¬ 
len) in der Höhe zusammen, bis die Byte-Kette in der rechten, unte¬ 
ren Bildschirmecke angekommen ist. 

Mit diesem Wissen ist es kein Problem, den Bildschirmspeicher in ei¬ 
nem Stück auf Diskette zu verfrachten. 


BSAVE "SCREEN.DAT",XBIOS(2),32000 
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Eine so gespeicherte Bild-Datei läßt sich auch ebenso einfach wieder 
in den Bildschirmspeicher zurückladen. 

BLOAD "SCREEN.DATO.XBIOSCZ) 

Bei Midres- und Lowres-Screens funktioniert das genauso, nur daß 
die so gespeicherten Screens auf dem Monochrom-Monitor nur sehr 
verschwommen und schemenhaft erkennbar sind. Das liegt - wie wei¬ 
ter oben schon beschrieben - an den zwei (Midres) bzw. vier (Lowres) 
untereinander "geklappten" Bit-Planes. Je zwei (Midres) bzw. vier 
(Lowres) aufeinanderfolgende Words im Speicher bilden die Bit-In¬ 
formationen für 16 aufeinanderfolgende Bildpunkte. Mit allen weite¬ 
ren Erläuterungen würde ich mich hier wiederholen. 

Ein Bild sagt mehr als tausend Worte. Deshalb folgt noch eine Grafik. 



Version 3.0 


RCCOPY { RC_ } Speicherinternes Rechteck-Copy 

RC COPY Quell,Xq,Yq,Breite,Höhe TO Ziel,Xz,Yz [Modus] 

Kopiert das Rechteck mit den Koordinaten Xq/Yq und den Maßen 
Breite und Höhe aus dem Bildschirm mit der beliebigen Startadresse 
Quell (Größe = 32000 Byte) an die Koordinaten-Position Xz/Yz des 
Bildschirms mit der beliebigen Startadresse Ziel (Größe ebenfalls 
32000 Byte). 
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In Modus kann optional ein Verknüpfungsmodus (siehe PUT) angege¬ 
ben werden. Ohne Angabe von Modus wird im Replace-Modus ver¬ 
knüpft. 

Unter "Bildschirm" ist hier nicht unbedingt der reale Bildschirm zu 
verstehen. Die beiden Speicherbereiche werden lediglich als Bild- 
schirm(-Rechteck) interpretiert. Wenn Sie sich näher mit dem Befehl 
BITBLT beschäftigt haben, so wird es Ihnen anfangs sicher schwer 
gefallen sein, diesen Befehl einzusetzen (vielleicht auch immer noch?). 
Jedenfalls bietet RC_COPY eine sehr wichtige Anwendungsvariante 
des BITBLTs als BASIC-Befehl. Die Befehle GET und PUT sind 
ebenfalls BITBLT-Varianten, nur daß diese in ihrem Einsatzbereich 
auf den logischen Bildschirm (XBIOS(3)) beschränkt sind. 

Durch RC_COPY haben Sie die Möglichkeit, beliebige Speicherbe¬ 
reiche im Rechteckmodus miteinander zu verknüpfen. Das heißt also, 
daß Sie damit auch Daten be- und verarbeiten können, die eigentlich 
nichts mit Grafik zu tun haben. 

Der vorwiegende Einsatzbereich für diesen Befehl bleibt jedoch die 
Grafik. Er eignet sich z.B. hervorragend dazu, in Verbindung mit dem 
INLINE-Befehl komplette Image-Bibliotheken zu verwalten. Will man 
innerhalb eines Programms immer wieder wechselnde Images einset- 
zen, hat man ohne RC_COPY nur die Möglichkeit, entweder die Ima¬ 
ges durch BLOAD einzeln in vorbereitete GET/PUT-Strings zu laden 
oder einen zweiten Bildschirm durch XBIOS(5) zu installieren und von 
dort aus durch GET/PUT die Images zu transferieren. Oder man lädt 
mit BLOAD eine Fullscreen in den sichtbaren Bildschirm um dann die 
einzelnen Images zur späteren Verwendung in ein String-Feld einzu¬ 
lesen. Diese Vorgehensweisen wirken nicht besonders professionell. 

Mit RC_COPY lassen sich dagegen beliebige Bildausschnitte aus einer 
Pseudo-Screen in den sichtbaren Bildschirm holen. Diese Pseudo- 
Screen kann entweder durch BLOAD in einen 32-KByte-String-Puffer 
geladen werden oder aber mit INLINE im Programm integriert sein. 
Von dort aus können Sie nun die Images transferieren, wobei Sie sich 
nur vorher die Lage und Größe der Images in einem Feld gemerkt ha¬ 
ben müssen. 

Die zweite wesentliche Anwendungsmöglichkeit ist beim Window-Re- 
draw. Da sich die Größe eines Fensters ständig ändern kann, ist man 
bei Grafikverwaltung darauf angewiesen, sich im Hintergrund den In¬ 
halt des größtmöglichen Fensters aufzubewahren, um daraus nach Be¬ 
darf die nötigen Ausschnitte in das geänderte Fenster zu kopieren. 
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Bei mehreren, sich überlagernden Windows müssen ggfs, bis zu 4 Tei¬ 
lausschnitte eines unten liegenden Fensters zusammengestellt werden. 
Dazu werden aus der Rechteckliste des Fensters die Lagen und Maße 
dieser Rechtecke ausgelesen. Mit RC_COPY ist es dann kein größeres 
Problem mehr, sich die entsprechenden Fensterteile auf den Bild¬ 
schirm zu kopieren. Ein Beispiel dazu finden Sie bei den AES- 
Wind xxxx-Befehlen. 


Beispiel; 



Print ” 32 KByte-BiIddatei wählen" 
Fileselect ! Datei-Auswahl 


Cls 
If Exist(FS) 

Open "i",#1,F$ 
Bild$=Input$(32000,#1) 
CIose #1 
SX=V:Bild$ 

DX=Xbios(2) 

For IX=-90 To 269 


clear Screen 
! Datei existiert? 

! Dann öffnen 
! Bild einiesen 
! Datei schließen 
! Startadresse des Bildes 
! Startadresse des Bildschirms 
! 360 Grad 


XX=150+Sinq<IX)*140 ! X-Ellipsenpunkt 

YX=100+Cosq<IX)*80 ! Y-Ellipsenpunkt 

Rc copy SX,IX+90,0,1,50 To DX,XX,YX ! Aufruf 
• äRc_copy(SX,IX+90,0,1,50,DX,XX,YX,3) ! V2.xx-Aufruf 
Next IX (siehe BITBLT) 

Pause 50 
Cls 

For JX=70 To 90 Step 10 ! Radius 

For IX=0 To 359 Step 10 !360 Grad 
XX=150+Sinq(IX)*JX ! X-Kreispunkt 

YX=100+Cosq(IX)*JX ! Y-Kreispunkt 
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Rc copy SX,XX,YX,18,18 To DX,XX,YX I Aufruf 

■ aRc_copy(SX,XX,YX,18,18,DX,XX,YX,3) ! VZ.xx-Aufruf 

Hext IX (siehe BITBLT) 

Next JX 
Pause 50 
Cls 

For IX=0 To 79 I Was dieses kleine Programn 

For JX°IX To 79-IX I produziert, läBt sich nicht 
J2X°JX*8 I in wenigen Worten erklären. 

I2X=IX*8 I Schauen Sie es sich anl 

J3X»JX*5 
13X=1X*5 

■ 4 mal VZ.xx-Aufrufe (siehe unter BITBLT) 

' afic copy(SX,J2X-I2X,J3X+I3X,8,5,DX,J2X-I2X,J3X+I3X,3) 

• SRC copy(SX,J2X+I2X,J3X-I3X,8,5.DX,J2X'M2X,J3X-I3X,3) 

• aRcIcopy(SX,J2X,J3X-I3X,8,5,DX,J2X,J3X-I3X,3) 

• SRC copy(SX,J2X,J3X+I3X,8,5,DX,J2X,J3X+I3X,3) 

Rc co^ SX,J2X-I2X,J3X+I3X,8,5 To DX,J2X-I2X,J3X+I3X 
Rcicopy SX,J2X+I2X,J3X-I3X,8,5 To DX,J2X+I2X,J3X-I3X 
Rc copy SX,J2X,J3X-I3X,8,5 To DX,J2X,J3X-I3X 
Rcicopy SX,J2X,J3X+I3X,8,5 To DX,J2X,J3X+I3X 
Next JX 
Next IX 
Cls 

Print "Haus bewegen und Buttons drücken" 

Do 

Mouse XX,YX,KX 

Vsync 

Vsync 

Rc_copy SX,XX,YX,50,50 To DX,XX,YX,3*Mousek 
' aRc_copy(SX,XX,YX,50,50,DX,XX,YX,3*Mousek) ! V2.xx-Aufruf 
Vsync 
Vsync 

Rc_copy SX,XX,YX,50,50 To DX,XX,YX,3*Mousek 
■ aRc_copy(SX,XX,YX,50,50,DX,XX,YX,3*Mousek) ! V2.xx-Aufruf 
Loop 
Endif 


Version 3.0 

RCJNTERSECTO Überlappung zweier Rechtecke 

Var = RCJNTERSECT(Xp1 ,Yp1 ,Br1 ,HÖ1 ,Xp2,Yp2,Br2,Hö2) 

Stellt fest, ob sich die beiden angegebenen Rechtecke überschneiden 
(z.B. für Window-Redraw wichtig). Die Koordinaten und Maße des 
zweiten Rechtecks müssen in 2-Byte- oder 4-Byte-Integervariablen 
übergeben werden, da diese als Rückgabevariable benötigt werden. 

Bei Überschneidung der Rechtecke enthält Var TRUE und in den 
Variablen Xp2, Yp2, Br2 und Hö2 werden die Koordinaten der linken 
oberen Ecke, sowie die Breite und Höhe der Schnittfläche zurückgege¬ 
ben. 
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Überschneiden sich die Rechtecke nicht, enthält Var den Wert 0 und 
in Xp2, Yp2, Br2 und Hö2 werden die Koordinate und Maße des 
dazwischen liegenden Rechtecks geliefert. In diesen Fällen hängt es 
allerdings von der Lage der beiden Flächen zueinander ab, ob in Br2 
und/oder Hö2 positive oder negative Maße geliefert werden. Auch die 
zurückgegebenen Koordinaten in Xp2/Yp2 beschreiben dann nicht die 
linke obere Ecke der Fläche, sondern - je nach Fall - eine der drei 
anderen Ecken. 


Beispiel: 


Graphmode 2 
Do 

Cls 

X1&=RBnd(300)4^20 

Y1&>Rand(60)+20 

Br1&=Rand(300)+20 

Ho1&°Rand(120)+20 

X2&=Rand(300)+100 

Y2&=Rand(60)+60 

Br2&-Rand(200)+20 

Ho2&<Rand(120)«^20 

DeffUl ,3,1 

Pbox XU,Y1&,X1&*Br1&,Y1i+Ho1& 
Deffill ,3,2 

Pbox X2&,Y2&,X2&'i^Br2&,Y2&+Ho2& 
VarX=Rc intersect(X1&,Y14,Br1&, 
Pcirclc”x2&,Y2&,5 
Deffill ,2,2 

Pbox X2&,Y2&,X2&+Br2&,Y2&'»Ho2& 

•Inp(2) 

Loop 


I Transparentmodus 
I Bildschirm löschen 


I---. 

Zufällige 
Koordinaten 
und HaBe 
der beiden 
Flächen 
holen 

I---' 

I DEFFILL diagonall 
I Box 1 zeichnen 
I DEFFILL diagonal2 
I Box 2 zeichnen 
Ho1&,X2&,Y2&,Br2&,Ho2&) 

I Eckpunkt zeichnen 
! DEFFILL hellgrau 
I Schnittfläche zeichnen 
! Auf Taste warten 


Da es nicht immer einfach ist, sämtliche Spielfälle von 
Flächenüberschneidungen im Kopf zu analysieren, habe ich diese 
Spielfälle für Sie auf dem Papier durchgespielt. 
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Version 3.0 

SGET { SG } Bildschirm puffern 

SGETVar$ 

Überträgt den aktuellen Bildschirmspeicher (32000 Byte) nach Var$. 
Als Bildschirmspeicher wird hier grundsätzlich der "logische" Bild¬ 
schirm angenommen (siehe XBIOS(3)/(XBIOS(5)). Die String-Variable 
Var$ braucht nicht vorbereitet zu werden. 

Im Gegensatz zu GET 0,0,639,399,Var$ muß hier nicht mit geschnit¬ 
tenen Words operiert zu werden. D.h. zum einen, daß dieser Befehl ca. 
15 mal schneller ist als GET, aber auch, daß der Variableninhalt ein 
anderes Format besitzt (kein Header!). Ein mit SGET gelesener Bild¬ 
schirm kann deshalb auch nicht durch PUT dirigiert werden. 

SGET ist grundsätzlich identisch mit: 

Var$=SpaceS(32000) 

Bmove Xbios(3),Varptr(Var$),32000 

Eignet sich in V3.0 auch zur Hintergrund-Screenverwaltung mit 
RC COPY. 
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||HOWM SH } Mauszeiger anschalten 


SHOWM 

Der ggfs, durch HIDEM unsichtbare Mauszeiger wird wieder einge¬ 
schaltet (auch durch VDISYS 122 möglich). Zum Programmende wird 
intern immer SHOWM ausgeführt. Auch bei Aufruf von GEM-For- 
mularen (FILESELECT, ALERT etc.) wird automatisch SHOWM aus¬ 
geführt, jedoch - im Falle, daß vorher HIDEM gültig war - nach er¬ 
folgter Box-Bedienung wieder zurückgenommen. 

Beispiel: 

Print "Maus am unteren FüUrand beuegen" 

For IX=0 To 31998 Step 2 I-. 

' Hidem I 

Dpoke XbiosCZI+lX.&HEEEE I BiIdschirm füllen 

' Showm I 

Next IX I-' 

Das Beispiel zeigt, wozu HIDEM intern hauptsächlich verwendet wird. 
Bei allen Grafikausgaben, bei BMOVE, BITBLT, BLOAD etc. wird 
für die Dauer des Befehls intern ebenfalls immer HIDEM ausgeführt, 
da sonst bei Mausbewegungen derselbe Zerstörungseffekt wie im Bei- 
piel eintreten würde. Das ist auch der Grund für das "Flackern" der 
Maus bei schnell aufeinanderfolgende Grafik-Ausgaben (z.B. bei PUT) 

Wenn Sie im obigen Beispiel die beiden REM-Zeilen Hidem und 
Showm aktivieren, wird der Hintergrund bei Mausbewegungen nicht 
mehr zerstört, jedoch tritt dann das besagte Mausflackern auf. 


SPRITE { SPR } Sprite setzen und löschen 

SPRITE Def.var$ [,Xpos,Ypos] 

Mit Def.varS wird eine String-Variable angegeben, deren Inhalt im 
MKI$-Format die Mausform definiert. 

Grundsätzlich sind Sprites nichts anderes als der Mauszeiger, der ja 
ebenfalls den Charakter eines Sprites besitzt. Der Maus-Sprite wird 
jedoch automatisch durch die Bewegungen der Maus gesteuert. Mit 
dem Befehl SPRITE können Sie einen - oder auch mehrere - Sprites 
definieren und nach Ihren Wünschen auf dem Bildschirm placieren 
und bewegen. 
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Der Aufbau eines solchen Sprites ist dem eines Mauszeigers (siehe 
DEFMOUSE) sehr ähnlich. Die Sprite-Form besteht ebenfalls aus ei¬ 
nem Raster mit 16*16 Pixel und es wird ebenfalls ein Format-String 
gebildet, indem man die Sprite-Daten als MKI$-Werte-Strings anein¬ 
anderfügt. 

Der Sprite-String hat folgendes Format: 


Word 1 

X-Koordinate des Aktionspunktes (0 - 15). 


Word 2 

Y-Koordinate des Aktionspunktes (0 - 15). Bei Sprite-Aktionen be¬ 
ziehen sich Xpos/Ypos auf diesen Aktionspunkt. 0/0 liegt dabei in der 
oberen linken Ecke und 15/15 in der rechten unteren Ecke des Sprites. 


Word 3 

Modus (normal = MKI$(0/XOR = MK.1$(1)). 


Word 4 

Maskenfarbe (Hintergrund des Sprites): 
weiB = MKI$(0)/schwarz = MKI$(1) 


Word 5 

Cursor-Farbe (Sprite-Bild): 

weiß = MKI$(0)/schwarz = MKISd) 


Word 6 bis 37 

Ab dem 6. Word folgen beginnend mit dem Bit-Muster der Sprite- 
Maske abwechselnd die Zeilen der Maske und die Zeilen der Form 
(ml-fl-m2-f2-m3-f3-m4-f4 etc.). 

Unter Angabe von Def.varS und der Position Xpos/Ypos wird der 
Sprite auf dem Bildschirm placiert. Bei jedem Aufruf desselben Spri¬ 
tes mit veränderten Koordinaten wird er an der vorherigen Position 
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automatisch gelöscht. Soll der Sprite vollständig vom Bildschirm ent¬ 
fernt werden, ist die Angabe der Koordinate zu unterlassen. 


Beispiel (Hires/Midres/Lowres): 


XtX=2-Sgn(Xbios(4)) I 

Yt*=Min(2,3-Xbios(«)) I 

Oeffill 1,2,8 I 

Pbox 0,0,290,106 I 

Color 7 I 

Circle 107,107,7 ! 

aoroousct100,100,8,8,»SplS,*Sp2$)! 
Hidem I 

For IX=0 To 2000 Step 4 I 

XX=108+Sin(IX*Pi/180)*(100/XtX) 
YX=108+Cos{IX»Pi/180)*(40/YtX) 
Vsync 

Sprite SpU,XX,YX 
Next IX 
Sprite Sp1$ 


X-Auflösung holen 
Y-Auflösung holen 
OEFFILL hellgrau 
Spritebild... 

...zeichnen 
Sprite definieren 
Haus aus 

I 

I- Sprite 
I darstellen 


I-- 


I Sprite ausschalten 


Procedure DmouseCMxX,MyX,MxaX,MyaX,SplX,Sp2X) 

' Diese Prozedur ist leer, da sie mit der unter DEFHOUSE 
' beschriebenen Prozedur Dmouse fast identisch ist. Der 
' Unterschied besteht in der Zeilen-Zählschleife. Unter DEFHOUSE 
' sind in Dmouse zwei Schleifenblöcke gesondert hervorgehoben. 

' Der mit SPRITE gekennzeichnete Block muB für Sprites aktiviert 
‘ werden, während der erste - mit HAUS gekennzeichnete - Block 
' deaktiviert werden muB. Haben Sie das getan, liefert Ihnen die 
' Prozedur Dmouse auch Sprites nach HaB. 

Return 


SPUT { SPU } Bildschirm setzen 

SPUTVar$ 

Überträgt die ab VARPTR(Var$) folgenden 32000 Byte in den Bild¬ 
schirmspeicher. Als Bildschirmspeicher wird hier grundsätzlich der 
"logische" Bildschirm angenommen (siehe XBIOS(3)/(XBIOS(5)). 

SPUT ist grundsätzlich identisch mit: 

Bmove Varptr(Var$),Xbios(3),32000 


VSYNC { VS } VBL-Synchronisation 

VSYNC 

Wartet mit der nächsten Grafik-Ausgabe auf den nächsten 
Strahlrücklauf (Vertikal-Blank). 
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Der Elekronenstrahl beginnt den Bildaufbau in der oberen linken 
Bildschirmecke und zeichnet dann nacheinander alle Zeilen, bis er in 
der rechten unteren Ecke angelangt ist. Danach beginnt er den näch¬ 
sten Aufbau wieder in der linken oberen Ecke. Diesen Weg legt er ca. 
70 mal in der Sekunde zurück 

Bei Grafikausgaben mit SPUT, SPRITE oder PUT (bzw. in V3.0 mit 
RC_COPY) kann es sinnvoll sein, den nächsten Bildneuaufbau abzu¬ 
warten. Durch die vertikale Synchronisation einer Grafikausgabe mit 
dem Bildaufbau kann so das Interferenz-Flimmern eingeschränkt wer¬ 
den. Bei Graphikausgaben, die mehr Zeit in Anspruch nehmen, als der 
Computer zu einem Bildaufbau benötigt, treten allerdings auch dann 
wieder Interferenzen auf. Ein Beispiel dazu finden Sie unter SPRITE. 
Die Auswirkung von VSYNC können Sie beobachten, wenn Sie in 
diesem Beispiel die VSYNC-Zeile löschen. 
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10. Datenumwandlung 


ÄSCO Textzeichen => ASCII-Wert 

Var=ASC CZeichen") 

Ermittelt den ASCII-Wert des Textzeichens Zeichen. 

Bei Strings wird nur der ASCII-Wert des ersten Zeichens zurückgege¬ 
ben. Ist der angegebene String leer wird der Wert 0 geliefert. 
ASC() bildet die Umkehrfunktion zu CHR$(). 

Eine Tabelle der möglichen Zeichen und ihrer ASCII-Werte finden Sie 
unter 24.11 "ASCII-Tabelle". ASCII: American Standard Code for In¬ 
formation Interchange (Deutsch: Amerikanischer Standard-Code für 
Informationsaustausch). 

Beispiel: 

SSysfontd) I 8*8-Font einschalten 

Print I Leerzeile 

For IX=0 To 255 I Alle 256 ASCII-Zeichen 

Out 5,32 I Leerzeichen ausgeben 

Out 5,IX I ASCII-Zeichen ausgeben 

Print " = ";Asc{Chr$(IX));Spc(5-Len(Str${IX))); 

■ Diese PRINT-Zeile demonstriert die Konvertierung 

■ eines Wertes in ein Zeichen und anschlieBend dieses 
' Zeichen wieder in den ASCII-Wert (ASC(CHR$(IX))). 

' Ebenso gut könnte die folgende PRINT-Zeile verwendet 
' werden: 

• PRINT ••=";IX;SPC(5-LEN(STRt(IX))); 

Next IX 

SSysfont(2) ! Standard-Font (8*16) einschalten 

I 

Procedure Sysfont(FontX) 

' Auswahl eines System-Fonts für TOS-Text (PRINT, (XJT etc.) 

' FontX = Gewünschter Font 

■ 0 = 6*6 

■ 1 = 8*8 

• 2 = 8*16 

Local Codes,AdrX I Lokale Variablen 

Code$=Hkl$(&HA0002009)+Mki$(&HAE75) I Maschinen-Code 
' line_a 0000 ; Line-A 0000 aufrufen 

' moveTl a1,d0 ; Register AI nach DO (long) 

AdrX=Varptr(CodeS) I Code-Adresse holen 

Dpoke Contrl+2,0 I CONTRL- 

Dpoke Contrl+6,2 I Feld... 

Dpoke Contrl+10,102 I ...belegen 

Lpoke Intin,Lpeek(C:AdrX()+FontX*A) ! Font-Adresse übergeben 
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Vdisys 5 
Return 

Bei der hier übergebenen Adresse handelt es sich um die Startadresse 
des Font-Headers (!). Es ist dadurch also jederzeit möglich, jeden be¬ 
liebigen Font als System-Font zu installieren, vorausgesetzt, er hat 
einen brauchbaren Font-Header, dessen Adresse Sie dann hiermit in¬ 
itialisieren (siehe Kapitel 17.1 "Verwendung eigener Fonts"). 


BIN$0 Numerisch => Binär 

Var$=BIN$(Expr) 

Var$=BIN$(Expr [,Stellen]) (nur V3.0) 

Wandelt Expr in einen Binär-String um. Expr steht für eine(n) belie- 
bige(n) numerische(n) Variable, Konstante, Ausdruck oder Funktion. 

In V3.0 wird das Standard-Prefix für Binärzahlen (z.B. %1001110110) 
erkannt und - zulässige - Wertangaben dieser Art vom Interpreter 
selbstständig in das GFA-Format (z.B. &X1001110110) umgewandelt. 

Außerdem kann in Version V3.0 durch den optionalen Parameter 
Stellen eine Stellenanzahl (1 - 32) vorgegeben werden, auf die der ge¬ 
wandelte Wert begrenzt wird. 

Beispiele: 

Print Bin${1273530) 

I 

Print 

For IX=1 To 4 ! 4 Binärwerte 

Read AX ! Lesen 

Print Bin$(AX),"="'AX ! Wandeln und ausgeben 

Next IX 

Data &X1001110,iX100110101,4X10001110,8X100111001 

I 

Print 

For IX=1 To 12 ! 12 Binärwerte 

Read At ! Als String lesen 

B$=Right$<String$(14,"0")+A$,14) ! Binär-String auf 
' ! 14 Zeichen formatieren 

Print B$, ! Binär-String ausgeben 

Print "="'Val{"8X"+A$) ! Wert ausgeben 

For JX=1 To Len(BS) I Alle Zeichen des Strings 
If VaU"SX"+B$) And 2‘JX I Bit gesetzt? 

Plot 200+JX,30+IX ! Dann Punkt setzen 

Endif 
Next JX 

Next IX 

Data 000111000111000111000 
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Data 000111000111000111000 
Data 000111000111000111000 
Data 111000111000111000111 
Data 111000111000111000111 
Data 111000111000111000111 
Data 000111000111000111000 
Data 000111000111000111000 
Data 000111000111000111000 
Data 111000111000111000111 
Data 111000111000111000111 
Data 111000111000111000111 


10.1 Die Zahlensysteme 

Es gibt im Computerbereich vier Arten von Zahlensystemen: 

Das dezimale System. 

Das hexadezimale System. 

Das binäre System. 

Das oktale System. 

Das allgemein übliche Dezimalsystem hat die Zahl 10 zur Basis (dezi: 
von lat. decem => zehn/z.B. Dezimeter = 10 Zentimeter). Diese Basis 
wird jeweils zur Ermittlung der Wertigkeit einer Zahl herangezogen. 
So werden die Einerstellen aus der Null-Potenz der Zahl 10 ermittelt 
(10 hoch 0=1), die Zehnerstellen aus der Einer-Potenz (10 hoch 1 = 
10), die Hunderterstellen aus der Zweier-Potenz (10 hoch 2 = 100) 
usw. 


In den anderen Zahlensystemen ist dieser Potenzierungsvorgang exakt 
derselbe, nur werden hier andere Zahlen als Basis verwendet. So wird 
im Hexadezimalsystem (Hexa + Dezi = Hexadezi/6 + 10 = 16) die Zahl 
16 als Basis verwendet, im Binärsystem (Bi = 2) die Zahl 2 und im 
Oktalsystem (Okta = 8) die Zahl 8. So erklären sich die geringen Wer¬ 
tigkeiten der Binärzahlen in ihren Stellen und die hohen Wertigkeiten 
der Hexadezimalzahlen. 


Stellenwertigkeiten: 


Dezimal 


<-,,, 

5. 1 

1 

3. 1 

2- I 

1. 


stelle 

<*... 

10000 1 

1000 ; 

100 1 

10 I 

1 


Wert/Format 

<-... 

10*4 1 

10'3 { 

10*2 1 

10*1 1 

10*0 


Potenz 
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Hexadezimal: 


<*... 

5. 


4. 


3. 


2. 


1. 

i stelle 


65536 


4096 


256 


16 


1 

j Uert 


tioooo 


$1000 


$100 


$10 


$1 

1 Format 

. 

16‘4 


16'3 


16‘2 


16‘1 


16‘0 

j Potenz 

Binär: 












5. 


4. 


3. 


2. 


1. 

j stelle 

<• . . . 

16 


8 


4 


2 


1 

j Uert 

- 

XI0000 


XI000 


XI00 


XI0 


XI 

1 Format 

<• . . . 

2'4 


2'3 


2*2 


2‘1 


2‘0 

j Potenz 

Oktal: 












5. 


4. 


3. 


2. 

1 

1. 

1 Stelle 

<- . . . 

4096 

1 

512 


64 


8 

1 

1 

1 

1 Uert 

<* . . . 

& 10000 

1 

1 

&1000 


&100 

1 

1 

&10 

1 

1 

&1 

j Format 

<-... 

8‘4 

1 

1 

. 1 

83 

. . 

8*2 

1 

1 

. . 

8M 

1 

1 

. 1 . 

8*0 

j Potenz 


Bei den Hexadezimalzahlen gibt es eine Besonderheit zu beachten. Da 
sich die Zahl 16 nicht mit arabischen Zahlen einstellig darstellen läßt, 
hat man zu einem Trick gegriffen. Die Hex-Zahlen 0-9 werden ge¬ 
nauso dargestellt wie im Dezimalsystem. Die Zahlen von 10 bis 15 
werden dagegen durch einen Buchstaben repräsentiert 
(A=10;B=11;C=12; D=13;E=14;F=15). Daher also die Buchstaben in He¬ 
xadezimalzahlen. 

Die Dezimalzahl 1037 setzt sich also wie folgt zusammen: 

(10 hoch 0) * 7 = 7 

+ (10 hoch 1) • 3 = 30 

(die dritte Stelle ist nicht besetzt, also: 0) 

+ (10 hoch 3) * 1 = 1000 

Sunme : 1037 


Die Binärzahl % 100011 ergibt dagegen nach der Wertigkeit ihrer Stel¬ 
len (immer von rechts gesehen, wie im Dezimalsystem auch): 
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(2 hoch 0) * 1 =1 

+ (2 hoch 1) * 1 =2 

(die dritte Stelle ist nicht besetzt, also: 0) 

(die vierte Stelle ist nicht besetzt, also: 0) 

(die fünfte Stelle ist nicht besetzt, also: 0) 

♦ (2 hoch 5) * 1 =32 


Sinne : 35 


Das gleiche für die Hexadezimalzahl $F3B0: 


(die erste Stelle ist nicht besetzt, also: 0) 
(16 hoch 1) • 11 = 176 

+ (16 hoch 2) * 3 = 2816 

+ (16 hoch 3) * 15 = 61440 


Sume : 64432 


Und noch für die Oktalzahl &10537: 


(8 hoch 0) • 7 = 7 
+ (8 hoch 1) * 3 = 24 
+ (8 hoch 2) • 5 = 320 

(die vierte Stelle ist nicht besetzt, also: 0) 
+ (8 hoch 4) • 1 = 4096 


Sinne : 4447 


Die Umkehrung dieser Transformation sieht dann so aus: Die Dezi¬ 
malzahl 1352 soll in das binäre Format verwandelt werden: 


1352 

: 2 

S 

676 

Rest 

0 

> 

676 

: 2 

= 

338 

Rest 

0 

> 

338 

: 2 

= 

169 

Rest 

0 

> 

169 

: 2 

= 

84 

Rest 

1 

> 

84 

: 2 

= 

42 

Rest 

0 

> 

42 

: 2 

S 

21 

Rest 

0 

> 

21 

: 2 

= 

10 

Rest 

1 

> 

10 

: 2 

s 

5 

Rest 

0 

> 

5 

: 2 

s 

2 

Rest 

1 

> 

2 

: 2 

s 

1 

Rest 

0 

> 

1 

: 2 

= 

0 

Rest 

1 

> 

0 

: 2 

s 

0 

Rest 

0 

> 


Die Binärzahl lautet: 


I I 


0 10 10 1 


Nach dem gleichen Schema lassen sich auch Dezimalzahlen in die üb¬ 
rigen beiden Zahlensysteme konvertieren. 

Dazu noch das Beispiel für Hexadezimalzahlen: Die Dezimalzahl 35117 
soll in das Hexadezimalformat gewandelt werden: 
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35117 : 

16 = 

2194 => 

2194 * 

16 = 

35104 => Oiff. 

S 

13 (D) >---• 

219A : 

16 = 

137 => 

137 * 

16 = 

2192 => Diff. 

= 

2 (2) >-- 

137 : 

16 = 

8 => 

8 * 

16 = 

128 => Diff. 

S 

9 (9) >-- 

8 : 

16 > 

0 => 

0 * 

16 = 

0 => Diff. 

= 

8 (8) >--- 

0 : 

16 = 

0 => 

0 * 

16 « 

0 => Diff. 

S 

0 


I I I I 

Die Hexadezimalzahl lautet : 8 9 2 D 

Bei derart komfortablen Sprachen wie GFA-BASIC hat man es natür¬ 
lich nicht mehr nötig, diese Zahlen und Formate "zu Fuß" zu ermit¬ 
teln. Trotzdem kann es unter Umständen von Vorteil sein, sich damit 
einigermaßen auszukennen. 

Das Hexadezimale Zahlensystem wurde aus einem bestimmten Grund 
entwickelt. Es lassen sich nämlich "zufälligerweise" genau die Inhalte 
von vier Bits (Tetrade oder auch Nibble) mit einer Hex-Zahl darstel¬ 
len. Die Binärzahl 1111 kann maximal den Wert 15 (2^0+2^ l+2^2+2^3) 
annehmen. Und genau dieser Wert läßt sich auch maximal mit einer 
Hex-Zahl darstellen (F). Ein Byte (8 Bit) wird demnach immer zu ei¬ 
ner 2er-Tetrade (2*4 = 8 Bit), ein Word (16 Bit) zu einer 4er-Tetrade 
(4*4 = 16 Bit) und ein Longword (32 Bit) immer zu einer 8er-Tetrade 
(8*4 = 32 Bit) zusammengefaßt. 


Version 3.0 

CFLOATO Integerwert => Fließkommawert 

Var=CFLOAT(Wert) 

Wandelt Wert (Integerwert) in eine Realzahl um. CFLOAT bildet die 
Umkehrfunktion zu CINT. Diese Funktion ist nur beim V3.0-Compi- 
ler von Bedeutung. 


CHR$0 ASCII => Textzeichen 

Var$=CHR$(Wert) 

Liefert ein - dem angegebenen Wert entsprechendes - ASCII-Zeichen. 
Ist Wert größer als 255, so wird das Zeichen ermittelt, das Wert MOD 
256 (bzw. Wert AND 255) entspricht. CHR$ bildet die Umkehrfunk¬ 
tion zu ASC. 

Beispiele hierzu finden Sie z.B. unter INKEY$(), LINE INPUT, 
PRINT, WRITE und ASC()). 
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Version 3.0 

qiNTO Fließkommawert => Integerwert 

Var=CINT(Wert) 

Wandelt Wert (Realwert) in eine Integerzahl um. Im Gegensatz zu INT 
wird die Zahl vorher exakt gerundet. CINT bildet die Umkehrfunk¬ 
tion zu CFLOAT. 


iplO, CVLO, CVSO, CVFO, CVDOstrlng «> Format-Zahl 

Funktion: Ergebnis: 

Var=CVI(''2 Zeichen’) Iß-Bit-Integerwert 

Var=CVL("4 Zeichen’) sa-BH-lntegerwert 

Var=CVS(’4 Zeichen’) Realwert (Atari-BASIC-Format) 

Var=CVF(’6 Zeichen’) Realwert (V2.xx-GFA-BASIC-Format) 

Var=CVD(’8 Zeichen’) Realwert (MBASIC- oder V3.0-GFA-BASIC-Format) 

Es wird die der jeweiligen Funktion entsprechende Zeichenanzahl von 
X Zeichen in eine Zahl des jeweiligen Formats umgewandelt. Diese 
Funktionen bilden die Umkehrfunktionen zu 

MKI$/MKL$/MKS$/MKF$/MKD$. 

Beispiel: 

AX=1932 I Beliebiger Wert 

AS=Space$(A) I String-Puffer 

Bmove Varptr(AX),Varptr(A$),4 I 4 Bytes in Puffer 
Print CvUAS) I Puffer-Inhalt wandeln 

Weitere Beispiele finden Sie unter INSTR() und in Prozedur Cut unter 
RIGHTSO. 


HEX$0 Numerisch => Hexadezimal 

Var$=HEX$(Expr) 

Var$=HEX$(Expr [.Stellen]) (nur V3.0) 

Wandelt Expr in einen Hexadezimal-String um. Expr steht für eine(n) 
beliebige(n) numerische(n) Variable, Konstante, Ausdruck oder Funk¬ 
tion. Durch den optionalen Parameter Stellen kann in V3.0 eine Stel¬ 
lenanzahl (1-8) vorgegeben werden, auf die der gewandelte Wert be¬ 
grenzt wird. 
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In V3.0 wird außerdem das Standard-Prefix für Hexadezimalzahlen 
(z.B. $FA5C16) erkannt und - zulässige - Wertangaben dieser Art vom 
Interpreter selbstständig in das GFA-Format (z.B. &HFA5C16) umge¬ 
wandelt. Wird als Prefix nur das Und-Zeichen & (z.B. &1EA6F9) 
verwendet, wird der Ausdruck ebenfalls in den entsprechenden Hex- 
Wert umgewandelt. 


MKI$0, MKL$0, MKS$0, 

MKF$0, MKD$0 Format-Zahl => String 


Funktion: 

Var$=MKI$(16-Bit-Integer-Wei1) 

Var$=MKL$(32-Bit-Integer-Wert) 

Var$=MKS$(Atari-BASIC-Realwert) 

Var$=MKF$(V2.xx-GFA-BASlC-Realwert) 
Var$=MKD$(MBASIC- oder V3.0-GFA-BASIC-Realwert) 


Ergebnis: 

2-Zeichen-String 

4-Zeichen-String 

4-Zeichen-String 

6-Zeichen-String 

8-Zeichen-String 


Es wird der in Klammern angegebene Wert in einen, der Wertgröße 
und dem gewünschten Format entsprechenden String-Ausdruck umge¬ 
wandelt. 


Der Variablenaufbau der verschiedenen Systeme, Interpreter und 
Compiler kann sich voneinader stark unterscheiden. Um nicht zeit¬ 
aufwendige Rechenoperationen ausführen zu müssen, die einzelnen 
Werte anderer Sprachen in das benötigte Format zu übertragen, kön¬ 
nen diese Funktionen auch dazu verwendet werden, den Datenaus¬ 
tausch zu vereinfachen. 


Diese Funktionen bilden die Umkehrfunktionen zu 
CVI$()/CVL$()/CVS$()/CVF$()/CVD$(). 

Beispiele hierzu finden Sie unter anderem in der Prozedur Showdat 
unter LINE INPUT, unter CHAIN und DEFMOUSE, sowie in der 
Prozedur Cut unter RIGHT$(). 


OCT$0 Numerisch => Oktal 

Var$=OCT$(Expr) 

Var$=OCT$(Expr [.Stellen]) (nur V3.0) 

Wandelt Expr in einen Oktal-String um. Expr steht für eine(n) belie- 
bige(n) numerische(n) Variable, Konstante, Ausdruck oder Funktion. 
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Will man Integerwerte im Oktal-Format angeben, so kann der Vorsatz 
&0 (z.B.: A%=&016501) verwendet werden. 

Durch den optionalen Parameter Stellen kann in V3.0 eine Stellenan¬ 
zahl (1 - 11) vorgegeben werden, auf die der gewandelte Wert be¬ 
grenzt wird. 

Weitere Informationen finden Sie in 10.1 "Die Zahlensysteme". 

STR$0 Numerisch => String 

Var$=STR$(Wei1) 

Var$=STR$(Wert [.Stellen [.Real]]) (nur V3.0) 

Es wird ein Text-String mit der Länge gebildet, die der Anzahl der 
Ziffern des übergebenen Wertes im Dezimalformat entspricht. Wert 
kann in jedem beliebigen Zahlensystem angegeben werden. Als Hexa¬ 
dezimal-, Binär- oder Oktalzahl angegebene Werte werden vorher in 
das Dezimalformat umgewandelt. 

Die hiermit erzeugte Ziffernfolge ist keine Zahl mehr, die einen Wert 
darstellt, sondern lediglich ein String, der die einzelnen Ziffern des 
Wertes als Textzeichen enthält. 

STR$ bildet die Umkehrfunktion zu VAL. Beispiele hierzu finden Sie 
unter anderem unter BLOAD, BSAVE, in der Prozedur Getdir unter 
FSNEXTO und in der Prozedur Pcode unter DATA. 

Durch den optionalen Parameter Stellen kann in V3.0 eine Stellenan¬ 
zahl vorgegeben werden (Vor-, Nachkommastellen und ggfs. Dezimal¬ 
punkt), auf die der gewandelte Wert begrenzt wird. Der optionale Pa¬ 
rameter Real gibt an, auf wieviele Nachkommastellen der gewandelte 
Wert ggfs, gerundet werden soll. Diese gerundeten Nachkommastellen 
gehen auf jeden Fall in den gelieferten Wert-String ein, auch wenn 
Wert eigentlich keine Nachkommastellen beinhaltet. 

V3.0-Beispiele: 

PRINT STR$(572.6169,5,3) ergibt: 2.617 

PRINT STR$(6169,9,5) ergibt; 169.00000 
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mo String => Numerisch 

Var=VAL(Var$) 

Wandelt alle am Anfang eines Strings stehenden Zeichen, die sich zur 
Darstellung numerischer Werte eignen, in eine dezimale Realzahl um. 

VarS ist eine beliebige Zeichenkette, ein String-Ausdruck oder eine 
String-Variable, deren Inhalt vom Anfang ausgehend daraufhin un¬ 
tersucht wird, ob Textzeichen enthalten sind, die einen Wert in einem 
der vier Zahlensysteme darstellen. Die Suche wird abgebrochen, wenn 
das String-Ende erreicht ist oder die Funktion auf ein Textzeichen 
trifft, welches nicht wandelbar ist. 

Ist das erste Zeichen des Strings ein nicht wandelbares Textzeichen 
oder der String leer, wird eine Null zurückgegeben. 

Beispiele: 


A$="> ";Str$(123456);" <" 

Print A$ 

ergibt: > 123456 < 


A*="1011010 <-Binär" 

Print Val("»X''+A*) 

ergibt: 90 

(= &X1011010) 

A$="1U1331 <-Octal" 

Print Val("&0"+Al) 

1 

ergibt: 312025 

{= &01U1331) 

At="AF4510E <-Hexadeziiiial" 

Print VaU"&H"+A$) 

ergibt: 183783902 

{= &HAF451DE) 

Print ValC'&HEEZeichen") 

ergibt: 238 

(= &HEE) 

A$="&X110123" 

AX=Val(A$) 

Print AX 

1 

ergibt: 13 

(= &X1101) 

Print VaU"2.37E+07") 

ergibt: 23700000 

(= 2.37E+07) 


VAL?0 Anzahl wandelbarer Textzeichen ermitteln 

Var=VAL?(Var$) 

Ermittelt ab Anfang von Var$ die Anzahl seiner Zeichen, die in nu¬ 
merische Werte konvertiert werden können (siehe VAL()). Var$ steht 
für eine beliebige Zeichenkette oder String-Variable, die auf die .An¬ 
zahl ihrer wandelbarer Zeichen untersucht werden soll. Trifft die 
Funktion auf nicht wandelbare Zeichen, wird die Untersuchung abge¬ 
brochen. 
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Beispiele; 

Print Val?(''237E07'') ergibt: 

I 

AS="&X110123E" 

Print Val7(A$) ergibt: 


(Exponent i a l f orirat) 
(inkl. Identifikator) 
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11. Feld-, Speicher- und Zeigeroperationen 


11.1 Feldoperationen 


ARRAYFILL { ARR } Feld mit Wert belegen 

ARRAYFILL FeldQ.Var 

Feld bezeichnet ein bereits beliebig dimensioniertes, numerisches Feld 
(Integer, Real, Boole). Alle Elemente dieses Feldes werden mit dem 
Wert Var belegt. Var muß mit dem Feldtyp übereinstimmen (z.B. Inte¬ 
ger zu Integer). 


Beispiel: Umständlich: Dim Feld%(20,32,16) 


For A*=0 To 20 Füllt alle 

For BX=0 To 32 | Elemente des 

For CX=0 To 16 - Arrays Feld* 

FeldX(AX,BX,CX)=237 mit dem Wert 

Next CX 237. 

Next BX I 

Mext AX 


GFA-Methode: Dim Feld%(20,32,16) 

Arrayfill FeldXO,237 !- Tut dasselbe 


Version 3.0 

DELETE{del} Einzelelement aus Feld löschen 

DELETE Feld(lndex) 

DELETE Feld$(lndex) 

Löscht das einzelne Element Index aus dem Feld Feld, bzw. Feld$. 
Alle darüberliegenden Elemente werden im Feld um eine Stelle nach 
unten versetzt. Das letzte Element enthält anschließend den Wert Null, 
bzw. bei String-Feldern einen Leer-String. DELETE ist die Umkeh¬ 
rung zu INSERT. 
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Beispiel: Vorher: 


0123456 (Index) 


j 155 j 231 [ 663 j 725 

I I I I 

t..._-I..... 




j 


Dann: 

DELETE Feld(4) 



Nachher: 

0123456 (Index) 


! i I i i (5) (6)j 

j 155 j 231 j 663 j 725 j 112 57 j 0 

I j j j j 1. 

<.j Letztes 

Element 
wird 0 


DIM { Dl } Feld(er) dimensionieren 

DIM Arrl(lnd1 (,lnd2,...]) [,Anr2(lnd1 [,lnd2, 

Legt die Dimension(en) von Arrl (bzw. Arr2, Arr3 etc.) fest und re¬ 
serviert hierfür Speicherplatz. Arr steht für beliebige numerische oder 
alphanumerische Felder. 

Ind besagt, wie viele Elemente pro Dimension zugelassen sind. Bei 
mehrdimensionalen Feldern (z.B. DIM Feld(5,20,7)) ist die Anzahl der 
Elemente auf 65535, bei eindimensionalen Feldern (z.B. DIM 
Feld$(100)) nur durch die Größe des Arbeitsspeichers begrenzt. 

Beispiele hierzu finden Sie unter anderem unter CHAIN, RECALL#, 
RCALL, PI und SETCOLOR. 

Achtung: Bei großen Dimensionierungen kann sich die Adressenlage 
der übrigen Variablen - insbesondere bei String-Variablen - verschie¬ 
ben. Im Falle, daß Maschinenprogramme in String-Variablen abgelegt 
wurden und das Programm ohne vorherige VARPTR-Abfrage, auf- 
gerufen wird führt dies dann ggfs, zum Absturz. Zur Speicherung der 
Routine eignet sich in den V2.xx-Versionen am besten ein 4-Byte-In- 
tegerfeld: 
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DIM AX(Codelänge/4) 
Start*=VARPTR(AX(0)) 

BLOAD "HASCHINE.COD",StartX 
CALL StartX 


In der V3.0-Version ist dieses Problem durch INLINE (siehe dort) aus 
der Welt geschafft. 


11.1.1 Aufbau eines mehrdimensionalen Feldes 

Stellen Sie sich bitte einen Schrank vor. Dieser Schrank wird nun in 
zwei Hälften geteilt. Eine rechte und eine linke Hälfte. Innerhalb der 
Hälften sind Schubladen untergebracht. Nehmen wir an, jede Hälfte 
besitzt zwei Schubladen. 

Diese Schubladen werden nun wiederum in einzelne Fächer unterteilt. 
Jede Schublade erhält drei Fächer. Wir haben nun also einen Schrank 
mit 12 Fächern (2*2*4) eingerichtet. 

Die entsprechende Dimensionierung dazu: 

DIM Schrank(1,1,2) -> bei OPTION BASE 0 

DIM Schrank(2,2,3) -> bei OPTION BASE 1 

Sie wundern sich evtl., warum im ersten Fall nicht (2,2,3) steht. Das 
hat den Grund, daß Arrays immer mit dem Index 0 zu zählen begin¬ 
nen, falls nicht durch OPTION BASE 1 das Null-Element eliminiert 
wurde. So wird im ersten Fall vorausgesetzt, daß als jeweils kleinster 
Index einer Dimension ein Null-Element vorhanden ist. 

Der angegebene Index bedeutet dann: "dimensioniere bis Element X", 

Also: Element 0 und 1 der ersten Dimension 

Element 0 und 1 der zweiten Dimension |-> DIH(1,1,2) 

Element 0, 1 und 2 der dritten Dimension 

Im folgenden gehe ich grundsätzlich davon aus, daß OPTION BASE 0 
aktiv ist. In diesem Schrank sollen nun verschiedene "Dinge" unterge¬ 
bracht werden. In unserem Fall sind dies Zahlen (hier: Mengenwerte). 
Zur besseren Orientierung ordne ich den beiden Schrankseiten erst 
einmal Begriffe zu: 
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Linke Schrankseite 

-> Werkzeug 

(1D-Index=0) 

Rechte Schrankseite 

-> Bücher 

(1D-Index=1) 

/ 

Schrank 

/ 

I 

1. Dimension: j 

I 

Werkzeug 

1 

Bücher 

I 

1 

1 

1 

1/ 


Den Schubladen der Werkzeug-Seite gebe ich die Aufschriften: 

1. Schublade -> Zangen (2D-Index=0) 

2. Schublade -> Sägen (20-Index=1) 

Die Schubladen der Bücher-Seite bekommen die Namen: 


1. Schublade -> Klassik (2D-Index=0) 

2. Schublade -> Natur (2D-Index=1) 



Nun gebe ich noch den Elementen einen Namen: 


I Auf der 'Werkzeug'-Seite (Index 0 der 1.Dimension) 



->j in der Schublade 'Sägen' (Index 1 der 2.Dimension) 
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1.. ...................................................1 

I ^. ^ 

j .->j 1. Fach -> 'Kettensägen' (30-Index=0) j 

'- ->| 2. Fach -> 'Bügelsägen' (3D-Inclex>1) | 

I •SSSBSSSSSMSSSaSSBSSSSSSSSSSSSSSSSSBSaSSSSSSS; 

'->1 3. Fach -> 'Stichsägen' (30-Index«2) } 

j Auf der 'Bücher'-Seite (Index 1 der 1.Dimension) j' 

I . 

I * " 

.->1 in der Schublade 'Klassik'(Index 0 der 2.Dimension) j 

.' 

I I _._ I I 

.->! 1. Fach -> 'Essays' (3D-Index=0) j \ \ 

I ; saa=asBaa3Baaaaaaaaa==sx=3aaaa3aa=aaa===as==s ; 

''j'*! 2. Fach -> 'Novellen' (3D-Index=1) j 

I ;3333333X33333333X3333333333333333333333333333; 

'->1 3. Fach -> 'Romane' (30-Index=2) | 

I_I 

I ;.; 

'->[ in der Schublade 'Natur' (Index 1 der 2.Dimension) j 

1.. __I 

i _ 

j .->j 1. Fach -> 'Tiere' (3D-Index=0) j 

'-j->i 2. Fach -> 'Pflanzen' (3D-Index=1) } 

I :333333333333333333333333333333333333333333333; 

'->j 3. Fach -> 'Steine' (3D-Index=2) , 

I_I 

Bis hierhin sieht das vielleicht etwas übertrieben aus. Der Sinn der 
Sache ist aber der, daß nun anhand von sogenannten "Indizes" auf je¬ 
des einzelne Fach der untersten Ebene zugegriffen werden kann. 

Unter Index versteht man allgemein ein Unterscheidungsmerkmal bzw. 
eine Kennzeichnung gleichartiger Größen, die dann statt durch ihren 
Namen durch einen ihnen zugewiesen Tabellenwert (Tabellenposition = 
Index) identifiziert werden können. 

z.B. Oberbegriff 'Tier' 

1 = 'Haus-' 

2 = 'Nutz-' 

3 = 'Raub-' 

4 = 'Schalen-' 

5 = 'Stachel-' 

Statt des Begriffs 'Raubtier’ könnte man nun auch ’Tier(3)’ sagen und 
dann - um die Bedeutung von (3) zu erfahren - in der Tabelle unter 
dem Index 3 nachschauen. 
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Stellt man sich für die Elemente ’Pflanzen’, ’Romane’ usw. in der un¬ 
tersten Dimension Speicherplätze im Computer vor, so kann man sich 
nun durch die Angabe der Indizes jederzeit Informationen über den 
Inhalt der Plätze verschaffen. Dieses ist vor allem dann wichtig, wenn 
Informationen abgelegt werden, die bestimmten 'Familien’ zugeordnet 
werden sollen. 

Um nun z.B. den Inhalt des Faches "Pflanzen" zu ermitteln, kann man 
nun durch Ausgaben (z.B. PRINT Schrank( 1,1,0)), eine beliebige Zu¬ 
weisung (z.B. A%=Schrank( 1,1,0)) oder Einbindung in einen Ausdruck 
(z.B. IF 2*Schrank(l,l,0)+10) dieses Fach lesen oder durch 
Schrank(l,l,0)=XYZ etwas darin ablegen. 

Um die Identifikation der einzelnen Schrankseiten, Schubladen und 
der darin enthaltenen Fächer zu vereinfachen, kann man den numeri¬ 
schen Indizes auch Variablennamen zuweisen: 

Uerkzeug=0 

Zangen=0 

Kneifzangen=0 
Rofirzangen=1 
Spitzzangen=2 

Saegen=1 

Kettensaegen=0 

Buegelsaegen=1 

Stichsaegen=2 

Bücher=1 

Klassik=0 

Essays^O 

Novellen=1 

Ron)ane=2 

Natur=1 

Tiere=0 
Pflanzen=1 
Steine=2 

Jetzt fällt es natürlich leicht, z.B. gezielt in Erfahrung zu bringen, 
wieviele Bücher zum Thema "Pflanzen" in meiner Bibliothek stehen: 

IF Schrank(Buecher,Natur,Pflanzen)=0 
PRINT "Natur-Banause!" 

ENDIF 


oder: 


IF SchranktUerkzeug,Zangen,Rohrzangen>>10 
PRINT "Na dann: fröhlichen Rohrbruch!" 
ENDIF 
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Ich hoffe, daß Ihnen dieser Ausflug in die Dimensionen in Zukunft 
etwas dabei helfen wird, die - manchmal sehr - verzwickten Zusam¬ 
menhänge bei mehrdimensionalen Feldern zu verstehen. Bei dem hier 
durchgespielten Beispiel habe ich die Dimensionenstiefen in Grenzen 
gehalten, die sich noch realtiv leicht nachvollziehen lassen. Stellen Sie 
sich zum Schluß bitte noch einmal etwas vor: 

Ein Gelände mit 100 Lagerhallen. In allen Lagerhallen stehen 60 Re¬ 
gal-Blöcke zu je 50 Regalen. Jedes Regal ist vertikal in 200 Spalten 
unterteilt und jede dieser Spalten in 40 Regalböden. 

Und zu guter Letzt stehen auf jedem Regalboden noch 20 Kästen, 
wovon wiederum jeder in 10 Fächer aufgeteilt ist. 

DIM Lager(100,60,50,200,40,20,10) 

Die sich daraus ergebende Elementeanzahl ist zwar auf einem ST nicht 
zu verarbeiten (100*60*50*200*40*20*10 = 480 Milliarden), aber Sie 
gibt einen Ausblick auf die fast unbegrenzten Einsatzmöglichkeiten 
von mehrdimensionalen Feldern. 


DIM?0 Menge der Feldelemente ermitteln 

Var=DIM?(FeldO) 

Feld ist ein beliebiger numerischer oder alphanumerischer Feldname. 
DIM? liefert die Anzahl aller Elemente dieses Feldes. Bei nicht di¬ 
mensionierten Feldern wird der Wert 0 geliefert. 

Beispiel: 

Dirn FeldX(2,3,4) 

If Dim?(Felc«O)>0 

Print "Das Feld hat ";Dim?(FeldX());" Elemente" 

Else 

Print "Das Feld ist nicht dimensioniert!" 

Endif 
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ERASE { ER } Feld(er) löschen 

V3.0: { ERA } 

ERASE FeldO 

ERASE Feld 1Q [.Feld20 [,-]] (nur V3.0) 

Feld bezeichnet ein beliebiges Feld, das gelöscht werden soll. Die Di¬ 
mensionierung wird aufgehoben und der dafür reservierte Speicher¬ 
platz wieder freigegeben. 

In der Version V3.0 ist es auch möglich, eine Liste von Feldern an¬ 
zugeben, die dann mit nur einem Befehl gelöscht werden. 

Felder, die nach ihrer Verwendung nicht mehr benötigt werden, soll¬ 
ten sofort wieder mit diesem Befehl gelöscht werden, um den durch 
sie belegten Speicherplatz wieder dem Programm zur Verfügung zu 
stellen. 

Eine wichtige Einsatzmöglichkeit ist, wenn Felder in allgemein ver¬ 
wendbaren Prozeduren (Utilities) eingesetzt werden sollen. Da nicht 
erwartet werden kann, daß für jedes Utility die Dimensionierungen im 
Hauptprogramm vorgenommen werden, sollten diese also in der Proze¬ 
dur selbst erfolgen. Nach Abschluß der Arbeiten in dieser Prozedur 
wird das Feld wieder gelöscht, um beim nächsten Aufruf wieder neu 
dimensioniert werden zu können. 

Beispiele finden Sie unter anderem unter RECALL, in Prozedur Cbox 
unter PI und in der Prozedur Menue unter GET. 


Nur Version 3.0 

INSERT { INS } Elnzelelement In Feld einffigen 

INSERT Feld(lndex)=Wert 
INSERT Feld$(lndex)=Text 

Fügt das einzelne Element Index in das Feld Feld bzw. FeldS mit dem 
zugewiesenen Wert bzw. String ein. Alle darüberliegenden Elemente 
werden um eine Stelle nach oben versetzt. Das letzte Element des Fel¬ 
des wird dabei aus dem Feld entfernt. 
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Beispiel: Vorher; 


0 

1 2 

3 

4 

5 

6 (Index) 

\ 1 

> 155 1 

1 1 

1 1 

i 

231 j 663 

1 


i 

j 898 
! 

„3 

i 

57 > 

1 

j 

dann: 



1 

1 



INSERT 

Feld(4)=429 

>---- 

1 

1 



nachher: 

0 

1 2 

3 

4 

5 

6 (Index) 





sssssss 

II 

II 

II 

II 

II 

H 

II 

1 1 

1 155 1 

1 155 1 

1 1 

1 

231 j 663 

725 

1 . 

1 1 429 i 
!•.■ 

(4) 

898 

(5)j 

„3 1- 

_! 1 




l<.> 


1 


Vorheriges j\ /j 
Element (6) 57 

fällt raus ,/ \| 


OPTION BASE { OPT BASE } Feld-Basiselement bestimmen 
OPTION BASE Basis 

Basis bestimmt das Basis-Element aller Felder (0 oder 1). Die Basis 
kann im Programm mehrmals geändert werden, da sich die schon de¬ 
finierten Elemente dem neuen Index anpassen (z.B. OPTION BASE 1 - 
> A$(0) wird A$(l), A$(l) wird A$(2) etc.). 

Wurde ein Feld z.B. unter OPTION BASE 0 mit Dim Feld(5) einge¬ 
richtet, so ergibt Print Feld(6) eine Fehlermeldung und das Element 
Feld(O) ist ohne weiteres ansprechbar. Wird jedoch anschließend OP¬ 
TION BASE 1 verfügt, so ist das vorher letzte Element Feld(5) nun 
ohne Fehlermeldung mit Feld(6) ansprechbar und das vorher erste 
Element Feld(O) ergibt eine Fehlermeldung. 

Die Basis-Bestimmung wirkt sich auf alle dimensionierten Felder 
gleichzeitig aus. 
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Nur Version 3.0 

QSORT { QS } Feld (-Bereich) Quick-Sortierung 

QSORT Feld([Sign]) [,Anz [,Feld2%0]] 

QSORT Feld$([Sign]) [ WITH VorgabeQ] [>Anz [,Feld2%0]] 

Es können Felder nach ihrer numerischen Größe oder alphabetischer 
Reihenfolge sortiert werden. Feld() ist dabei ein numerisches Feld be¬ 
liebigen Typs. Feld$() ist ein String-Feld. 

Das optionale "Sign" (innerhalb der Leerklammer, z.B. QSORT Feld(+)) 
ist entweder ein Plus- oder Minuszeichen, daß die Sortierrichtug an¬ 
gibt. Sollen die Werte, bzw. Strings mit dem höchsten Wert, bzw. 
Buchstaben in Element 0 beginnend absteigend sortiert werden, ist ein 
Minuszeichen einzusetzen. Das Pluszeichen oder keine Sign-Angabe 
bewirkt die aufsteigende Sortierung. 

Anz kann optional verwendet werden, um eine Elementanzahl zu be¬ 
stimmen, bis zu welcher sortiert werden soll (z.B. 6 = von 0 - 5 bei 
OPTION BASE 0, bzw. von 1 - 6 bei OPTION BASE 1). Außerdem 
kann optional ein 4-Byte-Integerfeld (Feld2%()) angegeben werden, 
dessen Elemente unabhängig von ihrem Inhalt parallel mit dem eigent¬ 
lichen Sortierfeld mitsortiert werden. 


Bei String-Feldern kann durch WITH zusätzlich ein beliebiges Inte¬ 
gerfeld (VorgabeO => 1-, 2- oder 4-Byte-Integer) mit mindestens 256 
Elementen bestimmt werden, dessen Elemente-Inhalte die Reihenfolge 
der Sortierung vorgibt. Wären z.B. alle 256 Vorgabe()-Elemente mit 
den ASClI-Werten in normaler Reihenfolge belegt (0-255), so kann 
VorgabeO vernachlässigt werden. Werden dagegen z.B. die Zeichen a 
und A vertauscht, so steht A in der Sortierfolge über a (normalerweise 
umgekehrt), während alle anderen Zeichen normal sortiert werden. So 
kann eine völlig willkürliche Sortierfolge vorgegeben werden (siehe 
24.11 "ASCII-Tabelle"). 


Beispiel 1: 

Dirn FeldX(20) 

Print "unsortiert:" 

For IX=0 To 20 
FeldX(IX)=:Rand(100) 
Print FeldX(IX) 

Next IX 
Osort FeldXO 
Print At(15,i);"steigend 
For IX=0 To 20 


I DIH Feld 
I 20 mal 

I Zufällige Werte zuweisen 
I Und ausgeben 
I Nächstes Element 
! Feld sortieren 
sortiert:" 

I 20 sortierte Elemente 
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Print At(15,IX+2);FelclX(IX) I Neu ausgeben 
Next IX 


Beispiel 2: 


Dirn FeldX(20) 

Print "unsortiert:" 

For IX=0 To 20 
FelclX(IX)=Rand(100) 

Print FeldX(IX) 

Next IX 

Osort FeldX(-),5 
Print At(15,1),-"fallend sortiert:" 


I DIH Feld 
I 20 tnal 

I Zufällige Werte zuweisen 
I Und ausgeben 
I Nächstes Element 
I 5 Elemente "fallend" sortieren 


For IX«0 To 20 I 20 Elemente 

Print At(15,IX+2};FeldX(IX) I Neu ausgeben 
If IX<5 I Im Sort'Bereich? 

Print At{20,IX+2);"<-- sortiert" 


Else 

Print At(4,IX+2);".>" 


Endif 
Next IX 


Beispiel 3: 

Dirn FeldX(20),Feld2X(20) I DIM Feld und Parallelfeld 
Print "unsortiert: Indexfeld:" 

Print Spc{27);"|" 

For IX=0 To 20 I 20 mal 

FeldX(IX)=Rand(100) I Zufällige Werte zuweisen 

Feld2X(IX)=IX I Parallelfeld indizieren 

Print FeldX(IX),Feld2X(IX) I Und ausgeben 
Next IX I Nächstes Element 

Osort FeldX{+),15,Feld2X() I 15 Elemente + Index sortieren 
A$="| steigend sortiert: Indexfeld (mitsortiert):" 

Print At(28,1);A$ 

For IX=0 To 20 I 20 Elemente 

Print At(28,IX+3),-"| ";FeldX(IX) I Feld neu ausgeben 
Print At(52,IX+3);Feld2X(IX) I Index neu ausgeben 
If IX<15 ! Im Sort-Bereich? 

Print At(34,IX+3);" -- sortiert 
Else 

Print At(34,IX+3);" - unsortiert -" 

Endif 
Next IX 


Beispiel 4: 

In den ersten 3 Beispielen können Sie statt des 4-Byte-Integerfeldes 
Feld%() ebenso gut andere numerische Feldtypen oder ein String-Feld 
einsetzen. Der Sortiermodus und das Ergebnis würden dabei prinzipiell 
gleich bleiben, nur daß bei String-Feldern nicht nach numerischer 
Reihenfolge sondern nach der Reihenfolge der den Zeichen entspre¬ 
chenden ASCII-Werten sortiert werden würde. Das folgende Beispiel 
demonstriert das Sortieren nach einer beliebigen Reihenfolge. 
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Sysfont(l) I 8*8Font setzen (siehe unten) 

Dirn Feld$(40},Feld2X(40),Vorgabel(256) I DIMs 
Print "unsortiert: Indexfeld:" 

Print Spc(27);"|" 


XS="äAö(Xjll8" I Umlaute urxi Eszet 

X2$="AA(X)UUS" I Ersatzkriterium 

For IX=0 To 255 I Alle ASCIIs 

Vorgabe[(IX)=IX I In Sortiervergäbe einsetzen 

If Inst r("abcdefghij klmnopqrstuvwxyz",Chr$(IX)) 

' I Kleinbuchstaben? 


I Ersetzen 


Endif 

If Instr(X$,Chr$(IX)) I Umlaut oder Eszet? 

Vorgabe|(IX)=Asc(Hid$(X2$,Instr(X$,Chr$(IX)),1)) 


Endif 
Next IX 
For IX=0 To 40 
For JX=0 To 8 
XX=Rand(58)+65 
' A-Z = 26 Zeichen 

' a-z = 26 Zeichen 

■ AöüäöüB = 7 Zeichen 


I Durch Ersatzkriterium 
I Ersetzen 

I 40 mal 

I 8 Zeichen je String 
I Zufalls-ASCII 


' insgesamt = 59 Zeichen. 

I 

' Rand(59) wählt also einen Wert zwischen 0 und 58. 

' Dieser Wert wird anschlieBend um 65 erhöht 
• -> ASCII-Wert von ’A* ist 65. 

If XX>115 I XX gröBer A-Z und a-z? 

XX=Asc(Hid$(X$,XX-116,1))l Dann Umlaut oder Eszet 
Else if XX>90 I XX zwischen a-z? 

Add XX,6 I XX+6 - mindesten AscC'a") 

Endif 

Feld$(IX)=Feld$(IX)+Chr$(XX) I Zeichen einbinden 
Next JX 

Feld2X(IX):IX I Parallelfeld indizieren 

Print FeldS(IX),Feld2X(IX) I Und ausgeben 

Next IX I Nächstes Element 

Osort FeldSO Uith Vorgabej(),41,Feld2X() 

' Alle Elemente Index nach Vorgabe steigend sortieren 
A$="| steigend sortiert: Indexfeld (mitsort.):" 

Print At(28,1);A$ 

For IX=0 To 40 I 20 Elemente 

Print At(28,IX+3);"| ";Feld$(IX) I Feld neu ausgeben 
Print At(50, IX+Bl.-Feld^XdX) I Index neu ausgeben 
Next IX 
Sysfont(2) 

Procedure Sysfont(FontX) 

' Hier bitte die Prozedur Sysfont einbinden (siehe ASCO). 
Return 
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Version 3.0 

SSORT { SS } Feld (^Bereich) Shell-Sortierung 

SSORT Feld([Sign]) [,Anz [,Feld2%0]] 

SSORT Feld$([Sign]) [ WITH VorgabeQ] [,Anz [,Feld2%0]] 

Erläuterungen zu QSORT gelten hier analog (siehe dort). 

Der wesentliche Unterschied zwischen beiden Sortier-Algorithmen ist, 
daß QSORT rekursiv arbeitet und dadurch wesentlich mehr Speicher¬ 
platz benötigt als das SSORT-Verfahren. Dafür ist SSORT in den 
meisten Fällen wesentlich langsamer. 

Das Shellsort-Verfahren (es wurde von einem Engländer namens Shell 
entwickelt) ist aufgrund seines Aufbaus eher dazu geeignet, schon 
vorsortierte Felder zu sortieren, was beim Quicksort-Verfahren unter 
Umständen sogar eine Zeitverzögerung bewirken kann. In den meisten 
Fällen hängt es jedoch von Ihrem persönlichen "Geschmack", dem 
noch verfügbaren Speicher und der jeweiligen Situation ab, welcher 
Sortierbefehl für Sie in Frage kommt. 

Für die V2.xx-Versionen möchte ich hier einen Sortier-Algorithmus 
vorstellen, der aufgrund seiner nicht gerade atemberaubenden Ge¬ 
schwindigkeit von den meisten Profis gemieden wird. Für den Haus¬ 
gebrauch ist er dagegen oft sehr nützlich, vor allem weil er spielend 
zu durchschauen ist und leicht an verschiedene Situationen angepaßt 
werden kann. 


Files »\*.*« To "\FILEOAT.LST 
Dirn A$(200) 

Open '•I'',#1,"FILEDAT.LST" 
Uhile Eof(«1)=0 
Inc IX 

Line input #1,A$(IX) 

Uend 

Close #1 

aSort(*AS(),lX) 

For JX=0 To IX 
Print A$(JX) 

Next JX 


! Disk-Verzeichnis 
I DIH Aufnahme-Feld 
I Datei öffnen 
I Noch nicht EOF? 

I Zähler +1 
I Zeile lesen 

I Datei schlieSen 
I Feld sortieren 
I Alle sortierten Zeilen 
I Ausgeben 


Procedure Sort{PtrX,LimX) 

' PtrX = Pointer auf das zu sortierende String-Feld 
' LimX > Feldindex, bis zu welchem sortiert werden soll 


Local JX,KX 
Dirn Pufferid) 

Swap *PtrX,Pufferst) 
For JX-0 To LimX-l 


I Lokale Variablen 
I DIM Dunny-Swap-Feld 
I Felder tauschen 
I Lauf Index 1 
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For ICX=JX+1 To LimX I Laufindex 2 (für alle 

■Elemente ab aktuellem Index der 1. Schleife) 

If Upper$(Puffer$(JX))>Upper$(Puffer$(ICX)) 

'Index!-Element gröBer Index2-Element7 
Swap PufferstJX),Puffer$(KX) I Dann tauschen 
Endif 
Next KX 
Next JX 

Swap »PtrX.PufferSO I Felder wieder tauschen 

Erase Pufferst) I Dunny-Suap-Feld löschen 

Return 

Der Algorithmus läßt sich auch für numerische Werte verwenden, 
wenn vorher die Feldtypen entsprechend geändert werden. Außerdem 
ist dann der Einsatz der beiden UPPER$()-Funktionen überflüssig. 


11.2 Speicheroperationen 


Version 3.0 

ABSOLUTE { AB } Variable auf Adresse setzen 

ABSOLUTE Var,Adresse 

Die Adresse der numerischen Variablen Var (beliebiger Typ) wird auf 
die absolute Speicheradresse Adresse gelegt. 

Adresse ist in jedem Fall identisch mit VARPTR(Var): 

ABSOLUTE V8rX,9952 
PRINT 9952=V:VarX 

-> Ausgabe = -1 tTRUE) 

Eine Zuweisung zu einer ABSOLUTE-Variablen ist gleichbedeutend 
mit: 

POKE Adresse,Bytewert -> Bei Byte-Variablen Varj 
DPOKE Adresse,Uordwert -> Bei Uord-Variablen Var& 

LPOKE Adresse,Longwert -> Bei Long-Variablen VarX 

Die Abfrage einer ABSOLUTE-Variablen ist gleichbedeutend mit; 

Byteuert=PEEKtAdresse) -> Bei Byte-Variablen Varj 
Uordwert=DPEEK(Adresse) -> Bei Word-Variablen Var& 
Longwert=DPEEK(Adresse) -> Bei Long-Variablen VarX 

Bei Real- oder Boole-Variablen ist das jeweilige Zahlenformat zu be¬ 
achten. ABSOLUTE mit Feld- und String-Variablen ist nicht möglich. 
ABSOLUTE ist innerhalb von PROCEDUREs und FUNCTIONS mit 
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zuvor als lokal definierten Variablen ebenso möglich, wie auf globaler 
Ebene. Nach Rückkehr zum Hauptprogramm wird die "Absolutierung" 
jedoch wieder aufgehoben. 

Statt des Kommas zwischen Var und Adresse kann auch ein Gleich- 
Zeichen (ABSOLUTE Var%=Adresse) verwendet werden. 

Variablen, die auf Systemvariabien-Adressen im Supervisorbereich 
(<2048) gelegt werden, können anschließend weder gelesen noch belegt 
werden. Bei Systemvariablen außerhalb des Supervisorbereichs ist 
Vorsicht walten zu lassen, da bei irrtümlichen oder unzulässigen Zu¬ 
weisungen Abstürze die frühere oder spätere Folge sein können. 

Dieser Befehl eignet sich vorzüglich dazu, Speicherplätze zu analysie¬ 
ren, die unabhängig vom BASIC-Programm durch das TOS oder OEM 
verändert werden. Hier bieten sich vor allem bestimmte Systemvari¬ 
ablen, die Line-A-Variablen, die verschiedenen GEM-Arrays sowie 
die VDIBASE an. 

Beispiel 1: 

Print ''<Control> und/oder <Sh1ft> und/oder 
Print ”<Alternate> und/oder <CapsLock> drücken" 

Absolute Switchj,3611 I Umschalttasten-Status (Byte) 

Do 

Print at(10,10);Switch" ‘ I abfragen 
Loop 

Aus der Byte-Adresse 3611 kann ständig der aktuelle Status der Um- 
schalttasten <Shift>/<Control>/<Alternate>/<CapsLock> ausgelesen 
werden. Es handelt sich um einen 5-Bit-Vektor: 

Bit 0 = <Shift rechts> Bit 1 = <Shift links> 

Bit 2 = <Control> Bit 3 = <Alternate> 

Bit 5 = <CapsLock> 

Durch Switch|=Status kann auch ein beliebiger Status gesetzt werden. 
Dieser Status bleibt solange erhalten, bis eine der als "gedrückt" gel¬ 
tenden Tasten das nächste Mal gedrückt oder ein neuer Status gesetzt 
wird. 


Absolute Switchj,3611 ! Umschalttasten-Status (Byte) 

Print "Haus kann durch die Cursor-Tasten bewegt werden" 
Print "Abbruch durch <Alternate>" 

Switchj=8 
Repeat 

Until (SwitchI And 8)=0 
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Beispiel 2; 

Absolute Media&,2482 ! Media-Change-Flag (Byte) 

Media&=True I setzen 


Ein gesetztes Media-Change-Flag veranlaßt das System dazu, beim 
nächsten Diskettenzugriff das aktuelle Direktory auch dann zu laden, 
wenn zwischenzeitlich die Diskette nicht gewechselt wurde (wichtig 
bei Direktory-Zugriffen durch BIOS(4)). 


Beispiel 3: 


Absolute Hinaus!,3583 
Absolute Vmaus1,3584 
Print "Bitte Haus bewegen" 

Do 

Repeat 

Until Vmausl Or Hmausj I 

Cls I 

If Hniaus|>0 And Hmausj<16 ! 
Print At(13,10); 

Out 5,3 
Endif 

If Hmausj>15 And Hmausj<256 
Print At(9,10); 

Out 5,4 
Endif 

If Vmausj>0 And Vmausj<16 
Print At(11,11); 

Out 5,2 
Endif 

If Vmausj>15 And Vmausj<256 
Print At{11,9); 

Out 5,1 
Endif 

Clr Hmausj,Vmausj 
Loop 


I Horiz. Mausbeuegung (Byte) 
I Vert. Mausbewegung (Byte) 


Auf Bewegung warten 
Bildschirm löschen 
Maus nach rechts? 

Cursor positionieren 
Rechts-Pfeil 

Maus nach links? 

Cursor positionieren 
Links-Pfeil 

Haus nach unten? 

Cursor positionieren 
Abwärts-Pfeil 

Maus nach oben? 

Cursor positionieren 
Aufwärts-Pfeil 

I Adressen auf Null setzen 


Die oben eingesetzten Adressen 3583 und 3584 geben Auskunft über 
die zuletzt ausgeführte Mausbewegung. Die Bits geben außerdem in 4 
Stufen an, wie schnell die Maus in die jeweilige Richtung bewegt 
wurde: 


Bit 0 

von 

Hmaus j 

gesetzt 

S> 

langsam nach 

rechts 

bis 
Bit 3 

von 

Hmausj 

gesetzt 

S> 

schnell nach 

rechts 

Bit 4 

von 

Hmausj 

gesetzt 

=> 

schnell nach 

l i nks 

bis 
Bit 7 

von 

Hmausj 

gesetzt 

a> 

langsam nach 

links 

Bit 0 

von 

Vmausj 

gesetzt 

=> 

langsam nach unten 

bis 
Bit 3 

von 

Vmausj 

gesetzt 

s> 

schnell nach 

unten 
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Bit 4 von Vmausj gesetzt => schnell nach oben 
bis 

Bit 7 von Vmausl gesetzt => langsam nach oben 

Beispiel 4: 

Absolute Mmove1,10206 I Letzte Hausaktion (Byte) 

Print "Bitte Maus bewegen und/oder Knöpfe drücken" 

Clr Mmovej I Adresse löschen 

Do 

Repeat 

Until Mmovej I Auf Mausaktion warten 

Cls 

Print "zuletzt:" 

If (Mmovej And 128)>0 I Maustaste rechts? 

Print "Button rechts" 

Else if (Mmovej And 64)>0 I Maustaste links? 

Print "Button links" 

Endif 

If (Mmovej And 32)>0 I Maus bewegt? 

Print "Mausbewegung" 

Endif 
Pause 20 
Loop 

Durch die Byte-Adresse 10206 kann die letzte Mausaktion ermittelt 
werden. Der Adreßinhalt bleibt bis zur nächsten Aktion erhalten. Die 
letzte Aktion kann auch nach längerer Zeit noch ausgelesen werden. 

Beispiel 5; 

Absolute MwordX,10226 I Uord-Position des Mauszeigers 

Do 

Print At(10,10);Hword5( I Mauszeiger-Word anzeigen 

Loop 

Adresse 10226 (Longword) liefert die absolute Word-Adresse, auf 
welcher sich der Aktionspunkt der Maus im Bildschirmspeicher aktuell 
befindet. 
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BITBLT { BIT } Speicherbereiche verknüpfen 

lilV3.0:{BI> 


BITBLT Q raster%0,Z raster%0fR_def%0 (VDI) 

BITBLT Blöckaclresse% (LIne-A - > nur V3.0) 

BITBLT Parameterfeld%0 (Line-A - > nur V3.0) 


Zu Syntax-Variante 1 (VDI-BITBLT) 

Dies ist eine Direkt-Zugriffsmöglichkeit auf eine komplizierte VDI- 
Funktion (COPY RASTER). Die gebräuchlichste Verwendung ist das 
Verschieben von Bildschirmbereichen auf dem Bildschirm oder in den 
Speicher (siehe GET/PUT). Dabei kann bestimmt werden, in welcher 
Art das copierte Raster sich auf den Zielbereich auswirken soll (siehe 
PUT). Es können allerdings auch beliebige Speicherbereiche auf diese 
Art in einem Raster definiert und verknüpft werden. 

Es sind drei Integer-Felder vorzubereiten. Das erste Q_raster%() be¬ 
schreibt in 6 Parametern das Quellraster, während das zweite Feld 
Z_raster%() die gleichen 6 Parameter für das Zielraster enthält. Durch 
die 9 Parameter-Elemente des dritten Feldes K_def%() können die 
beiden Rechtecke (Bildschirmbereich oder idealisiertes Speicher- 
Rechteck) in Punkten, bzw. Bits bestimmt werden. Das Zielraster 
Z_raster%() wird in einem beliebigen Modus mit dem Quellraster 
Q_raster%() maskiert, bzw. modifiziert. R_def%() bezeichnet den zu 
verknüpfenden Bereich der beiden Raster. 

Es sind drei Integer-Felder vorzubereiten: 

Q raater^O 

(oy Quellraater-Adresse (muB gerade sein). 

S Quellraster-Breite in Punkten (durch 16 teilbarl). 

Quellraster-Höhe in Punkten (Zeilenanzahl). 

S Quellraster-Breite in Wordi (immer; Q_raster(l)/16 ). 

Quellraster-Format (immer 0). 

(5) Anzahl der Quellraster-Bit-Planes: 

(Hires=l/Midres=2/Lowres=4) => 2*(2-XBIOS(4)) 

Z_raster9{() 

(0) Zielraster-Adresse (muB gerade sein). 

(1) Zielraster-Breite in Punkten (durch 16 teilbarl). 

S Zielraster-Höhe in Punkten (Zeilenanzahl). 

Zielraster-Breite in Words (immer: Z_ra8ter(l)/16). 

(4) Zielraster-Format (immer 0). 

(s) Anzahl der Zielraster-Bit-Planes. 

(Hires=l/Midres=2/Lowres=4) => 2“(2-XBIOS(4)) 
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R_def%() 

fOl X-Koordinate des Quellrechtecks links/oben. 

(1) Y-Koordinate des Quellrechtecks links/oben. 

S X-Koordinate des Quellrechtecks rechts/unten. 

Y-Koordinate des Quellrechtecks rechts/unten. 
f4) X-Koordinate des Zielrechtecks links/oben. 

(6) Y-Koordinate des Zielrechtecks links/oben. 

X-Koordinate des Zielrechtecks rechts/unten. 

(7) Y-Koordinate des Zielrechtecks rechts/unten. 

(8) VerknUpfungsmodus (siehe PUT). 


Die beiden in R_def%() beschriebenen Rechtecke sollten gleiche 
Größe haben, um ein nachvollziehbares Ergebnis zu liefern. Die Größe 
der beiden Raster kann unterschiedlich sein, wobei jedoch zu beachten 
ist, daß dann immer in der Größe des Quellrasters verknüpft wird 
(Vorsicht!). 


Zum Experimentieren ist es ratsam, sich auf Operationen innerhalb 
des Bildschirms oder festgelegte Speicherbereiche zu beschränken, da 
es nicht leicht ist, die Ergebnisse dieses Rasterbefehls (bzw. der Ver¬ 
knüpfungsmodi) vorherzusagen und somit Fehlfunktionen oder Ab¬ 
stürze des Systems auftreten können. 


Beispiel zum VDI-BITBLT 

Da ich den in V3.0 verfügbaren RC_COPY-Befehl für sehr nützlich 
halte, habe ich ihn hier als BITBLT-Prozedur für die V2.xx-Versionen 
"nachgebaut". Die Syntax des Prozedur-Aufrufs ist mit der des 
RC_COPY-Befehls fast identisch. Schauen Sie sich dazu bitte das 
Beispiel zu RC_COPY an, wo ich die V2.xx-Aufrufe vorsorglich 
gleich mit eingebunden habe. Die drei winzigen Unterschiede im 
Aufruf sind, daß erstens statt der TO-Komponente bei RC_COPY 
hier ein Komma einzusetzen ist, daß zweitens die Angabe des Modus 
hier nicht optional ist und daß drittens die Parameterliste in Klam¬ 
mern zu setzen sind. Der einzige große Unterschied liegt natürlich in 
der Geschwindigkeit. RC_COPY ist um ein Vielfaches schneller als 
das V2.xx-Rc_copy. 

' Aufruf-Beispiele siehe unter RC_COPY 

I ~ 

Procedure Rc_copy(Q_8<«,X1X,Y1X,BrX,HoX,Z_8dX,X2X,Y2X,HdX) 

Local XtX.YtX I Lokale Variablen 

Dirn AX(S).BX(S),CX(8) I DIH Parameterfelder 

XtX=2-Sgn(Xbios(4)) I X-Auflösungsteiler 

YtX=Min(2,3-Xbios(4)) 1 Y-Auflösungsteiler 

I 

' MFOB (MemoryFornOefinitionBlock) für das Quellraster 
AX(0)=Q_adX I 1. Element = Quelladresse 
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A%(1)=640/Xt* I 2. 
AX(2)=400/YtX I 3. 
AX(3)=AX(1)/16 ! 4. 
AX(4}=0 I 5. 
AX(5)=2‘(2-Xbios(4)) I 6. 


= Rasterbreite 
= Rasterhöhe 
= Breite in Uords 
= itnaer 0 
= Bit-Planes 


' MFDB (HemoryFornüefinitionBlock) für das Zielraster 


BX(0)=Z adX 
BX(1)=640/XtX 
BX(2)=400/YtX 
BX(3)=BX(1)/16 
BX(4)=0 

BX(5)=2‘(2-Xbios(4)) 

I 

' Rechteck-Definitionen für beide Raster 


I 1. Element = Zieladresse 
= Rasterbreite 
= Rasterhöhe 
= Breite in Uords 
= inmer 0 
= Bit-Planes 


I 2. 
I 3. 
I 4. 
I 5. 
I 6. 


CX{0)=X1X 

CX(1)=Y1X 

CX(2)=X1X+BrX 

CX(3)=Y1X+HoX 

CX(4)=X2X 

CX(5)=Y2X 

CX(6)=X2X+BrX 

CX(7)=Y2X+HoX 

CX(8)=MdX 

I 


I 1. Element > Ouell-X-Koord. links/oben 
I 2. Element • Quell-Y-Koord. links/oben 
I 3. Element » Ouell-X-Koord. rechts/unten 
I 4. Element » Ouell-Y-Koord. rechts/unten 
I 5. Element = Ziel-X-Koord. links/oben 
I 6. Element = Ziel-Y-Koord. links/oben 
! 7. Element = Ziel-X-Koord. rechts/unten 
I 8. Element = Ziel-Y-Xoord. rechts/unten 
I 9. Element = Verknüpfungsmodus (siehe PUT) 


Bitbit AX(),BXO,CX() 
Erase AXO 
Erase BXO 
Erase CXO 
Return 


I BITBLT ausführen 
I--. 

! Felder löschen 

I--I 


Zu Syntax-Variante 2 (nur für V3.0) 

Blockadresse% ist die Startadresse eines 76 Byte großen Speicherbe¬ 
reichs, welcher der Reihe nach die benötigten Parameter enthält. In 
der folgenden Tabelle finden Sie unter Offset die Byte-Offsets der 
einzelnen Parameter zu dieser Adresse verzeichnet. 


Zu Syntax-Variante 3 (nur für V3.0) 

Parameterfeld%() ist der Name eines 4-Byte-Integer-Arrays mit mind. 
23 Elementen, die der Reihe nach die benötigten Parameter enthalten. 
In der folgenden Tabelle finden Sie unter Index die Indizes der ein¬ 
zelnen Parameter verzeichnet. 

Die beiden Line-A-BITBLTs der Version V3.0 arbeiten grundsätzlich 
identisch. Der einzige Unterschied ist, daß von dem Parameterfeld%() 
intern eine Kopie angelegt wird. Der Befehl verwendet dann diese 
Kopie für seine Arbeit. Die Variante Blockadresse% dagegen arbeitet 
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direkt mit dem angegebenen Speicherblock, wodurch einige Einträge 
nach Abschluß verändert sind (in der Tabelle mit * markiert). 

Line-A-BITBLT-Parameter (nur für V3.0): 


Name 


Index 

Offset 

Bedeutung 

B UD 


0 

0 

Rasterbreite in Pixel 

b“ht 


1 

2 

Rasterhöhe in Pixel 

PLANE CT 

* 

2 

4 

Anzahl der Farb-Ebenen 

FG COL 

* 

3 

6 

Vordergrurxlfarbe 

bg”col 

* 

4 

8 

Hintergrundfarbe 

op”tab 


5 

10 

Verknüpfungs-Maske für 

S XMIN 


6 

14 

Vorder- und Hintergrund 

X-Offset im Ouellraster 

S YMIN 


7 

16 

Y-Offset im Quellraster 

S FORM 


8 

18 

Quellraster-Adresse 

S_NXWO 


9 

22 

Quell-Offset zun nächsten Uord 

S_NXLN 


10 

24 

der gleichen Ebene 

Quell-Offset zur nächsten Zeile 

S NXPL 


11 

26 

der gleichen Ebene 

Quell-Offset zur nächsten Farbebene 

D XMIN 


12 

28 

X-Offset im Zielraster 

D~YMIN 


13 

30 

Y-Offset im Zielraster 

d“form 


14 

32 

Zielraster-Adresse 

dInxwd 


15 

36 

Ziel-Offset zun nächsten Word 

S_NXLN 


16 

38 

der gleichen Ebene 

Ziel-Offset zur nächsten Zeile 

S NXPL 


17 

40 

der gleichen Ebene 

Ziel-Offset zur nächsten Farbebene 

P ADOR 


18 

42 

FülImuster-Adresse 

P NXLN 


19 

46 

Offset zur nächsten Maskenzeile 

p“nxpl 


20 

48 

Offset zur nächsten Musterfarbe 

p“mask 


21 

50 

Muster-Maske (vgl. HLINE) 

SPACE 

* 

22 

52-75 

24-Byte-Arbeitspuffer für Blitter 


Nach vielen, vielen Versuchen, einen dieser beiden Line-A-BITBLTs 
in Gang zu bringen, habe ich es dann ohne Erfolg und entnervt auf¬ 
gegeben. Da mir der Interpreter auch partout nicht ausführlich erklä¬ 
ren wollte, was ich den nun so sträflich falsch gemacht hatte, habe ich 
mich dann schmollend zurückgezogen und mich entschlossen, meinen 
Ärger mit Ihnen zu teilen. Ich wünsche Ihnen ein ausgeprägtes Ner¬ 
venkostüm bei dem verzweifelten Versuch, diesem Befehl seinen Zau¬ 
ber zu entlocken. 




362 


Das große GFA-BASIC-Buch 


BMOVE { BM } Speicherblock kopieren 

lnV3.0:{B} 

BMOVE Quelle,Ziel,Anz 

Ab der Adresse Quelle werden Anz Bytes gelesen und an den mit der 
Adresse Ziel beginnenden Bereich kopiert. Quell- und Zielbereich 
können sich dabei auch überschneiden. 

Bei Anz ist darauf zu achten, daß nie der Wert 0 auftreten darf. Wird 
als Anzahl der zu kopierenden Bytes keine Konstante verwendet (z.B. 
...,X_bytes*Zeilen oder ...{L~A-40)*{L~A-46)), so kann es unter un¬ 
günstigen Umständen dazu kommen, daß als Anz-Parameter Null 
übergeben wird. In solchen Fällen ist meistens ein gnadenloser Absturz 
die Folge. Um dies zu vermeiden, bietet sich die Funktion 
MAX(l,Anz) an, die dafür sorgt, daß mindestens ein Byte übertragen 
wird. 

BMOVE arbeitet bei geraden Adressen schneller als bei ungeraden. 
Beide Adressen dürfen nicht im Supervisor-Bereich (<2048) liegen. 
Quell darf jedoch auch im ROM liegen. 

BMOVE ist ein Befehl, ohne den professionelles Programmieren fast 
undenkbar wäre. Bei älteren BASIC-Dialekten bestand ein wesentli¬ 
cher Unterschied zu den maschinennahen Sprachen bzw. der Maschi¬ 
nensprache darin, daß kein schneller Speicherblock-Transfer möglich 
war. Speicherblöcke mußten durch FOR..NEXT-Schleifen und 
PEEK/POKE Byte für Byte übertragen werden. BMOVE macht dem 
ein Ende. Das Einsatzgebiet ist so weit gefächert, daß es der Phantasie 
des Einzelnen überlassen bleibt, was er mit diesem mächtigen Befehl 
anfängt. An Ideen dürfte es da allerdings nicht mangeln. 


11.2.1 Flimmerfreie Grafik 


Beispiel 1 (Hires/Midres) 

Daß "echte" Spiele in BASIC nicht programmiert werden können, war 
vor nur zwei Jahren noch selbstverständlich. Die neuen Dialekte - al¬ 
len voran GFA-BASIC - sind dermaßen luxuriös und gewaltig, daß 
sich immer mehr von den "alten Assemblerhasen" dazu entschließen, 
nur noch die Programmteile in Assembler oder C zu schreiben, die 
einen wesentlichen Geschwindigkeitsvorteil bieten. 



Feld-, Speicher- und Zeigeroperationen 


363 


Diese Maschinensprachmodule werden dann mit C:(), CALL oder in 
V3.0 mit RCALL in das BASIC-Programm eingebunden. Alles andere 
(Windows, Menues, Strukturbefehle etc.) wird in GFA-BASIC pro¬ 
grammiert. Warum sollte man das Rad auch zweimal erfinden? Wer 
sich mit Assembler oder C auskennt, weiß, welche Sysiphus-Arbeit es 
ist, das GEM zu den - in GFA-BASIC selbstverständlichen - kleinen 
Dienstleistungen zu überreden. 

Das folgende Beispiel soll demonstrieren, daß auch Action-Spiele in 
GFA-BASIC realisiert werden können. Es ist - wohlgemerkt - als 
Beispiel gedacht und erfüllt keine höheren Ansprüche. Mit etwas 
Phantasie ließe sich dieses Programm z.B. leicht zu einem Racing-Spiel 
erweitern. Das kleine Auto wird übrigens mit der Maus gesteuert, wo¬ 
bei Vorwärtsbewegungen den Wagen beschleunigen und Rückwärtsbe¬ 
wegungen ihn abbremsen bzw. rückwärts fahren lassen. 

On break cont I Abbruch unterbinden, damit nach Ende 

' I der Speicher restauriert wird (gilt 

' ! für V2.0). 

YtX=Hin(2,3-Xbios(4)) I Y-Auflösungsteiler 
aScreen(l) I 2. Bildschirmspeicher anlegen 

' Diese Prozedur finden Sie im AnschluB an das zweite BMOVE-Beispiel. 
Reserve 1000 ! BASIC-Speicher verringern 

Box 1,1,11,17/YtX I Auto.. 

Box 2,7/Yti,10,14/YtX I ..zeichnen 
Get 0,0,12,18/YtX,Auto$ I Auto speichern 
StartXsHimeflW-IOOOO I Startadresse d. freien Speichers 
' Das Offset von 10000 Byte ist hauptsächlich für die 
' V2.02-Version gedacht. Die anderen Versionen können als 
' Startadresse direkt HIMEM ohne Offset angeben. 

Deffill ,2,3 I DEFFILL mittelgrau 

Pbox -1,-1,640,400/YtX I Bildschirm grau 

Color 0 I Linienfarbe weiB 

Defline ,30,2,2 I Dicke Linie mit runden Enden 

Do 

Read XX,YX I Stadtplan-Koordinaten lesen 

Exit if XX=-1 And YX=-2 I Exit, wenn keine DATAs mehr 
If XX=-1 And YX=-1 I Beginn einer Strasse? 

Read XX,YX I Startpunkt lesen... 

Plot XX*20,10+YX»20/YtX I ...und zeichnen 
Else I Eck-Koordinate? 

Draw To XX*20,10+YX*20/YtX I Dann Strasse zeichnen 
Endif 
Loop 

Data -1,-1,12,0,12,2,10,4,10,6,9,7,6,9,4,9,2,7,2,6,4,4,7,4,9,2 
Data 10,2,12,0,-1,-1,4,4,4,2,6,0,-1,-1,10,12,10,15,12,17,12,19 
Data -1,-1,4,9,1,12,1,17,-1,-1,6,19,6,17,4,15,4,13,6,12,10,12 
Data 12,10,12,8,14,6,14,4,12,2,12,0,-1,-1,12,10,12,15,14,17,16 
Data 17,18,15,18,12,17,9,14,8,14,6,-1,-1,28,2,28,0,-1,-1,12,10 
Data 14,12,14,14,-1,-1,18,15,21,18,-1,-1,17,9,19,7,19,5,21,3,21 
Data 0,-1,-1,17,9,20,9,22,10,22,12,23,13,23,16,21,18,21,19,-1,-1 
Data 21,3,23,5,23,8,25,10,27,10,30,7,30,4,28,2,26,2,23,5,-1,-1 
Data 27,10,31,14,31,16,28,19,-1,-1,23,13,26,13,28,15,28,19,-1,-2 
Bmove Xbios(3),StartX,32000 I 1. Screen in Puffer 
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Bmove Xbios(3),StartX'*'32000,32000 I 2. " dahinter 

Cls I Bildschirm löschen 

Hidem I Maus aus 

Y=225/YtX I Auto-Y-Startkoordinate 

Dpoke 9952,236 I Maus auf X-Start setzen 

Repeat 

X=Mousex I Maus-X-Koordinate holen 

Cnt=(Cnt+Stp) Mod 400/YtX I Startzeile des Plan-Ausschnitts 
If Cnt<0 I Oberhalb der Screen? 

Cnt={399/YtX)+Cnt I Darm unten wieder anfangen 
Erxiif 

If Peek(3584) And 224 I Maus nach oben bewegt? 
Y=Max(120/YtX,Y-1) ( Neue Y-Position berechnen 

If Stp>0 I Wagen fährt vorwärts? 

Sub Stp,0.2 I Beschleunigungsfaktor 0.2 

Else I Wagen fährt rückwärts? 

Sub Stp.O.i I Bremsfaktor 0.1 

Endif 
Endif 

If Peek(3584) And (Peek(3584)<8) I Maus nach unten? 
Y=Min(280/YtX,Y+1) I Neue Y-Position berechrren 
If Stp<0 I Wagen fährt rückwärts? 

Add Stp,0.2 I Beschleunigungsfaktor 0.2 

Else I Wagen fährt vorwärts? 

Add Stp.O.I I Bremsfaktor 0.1 

Endif 
Endif 

Poke 3584,0 I Mausbewegungs-Vektor löschen 

■ ! (siehe unter ABSOLUTE) 

Bmove StartX+Int(Cnt)*80,Xbios(3)+8000,16000 
' Bildausschnitt aus dem Puffer in die Logscreen holen 
Put X,Y,Auto$ I Auto darüber setzen 

ascreen(2) I Logscreen in die Physscreen holen 

Until InkeyS>"“ Or Mousek ! Irgerxieine Taste gedrückt? 
aScreen(O) I Screens restaurieren 

Reserve Xbios(2)-Himem-16384+Fre(0) I Speicher restaurieren 


Beispiel 2 

Wer sieht es nicht gerne, daß sich der Bildschirm "butterweich" nach 
oben bewegt, wenn eine PRINT-Zeiie ausgegeben wird. Man nennt 
das "Softscrolling" und Programme, die diesen Effekt elegant einset- 
zen, gewinnen dadurch erfahrungsgemäß erheblich an Publizität. 

In diesem Beispiel werden innerhalb des GFA-Interpreters oder eines 
GFA-Compilats alle RTS gesucht und ausgegeben. Das RTS (Return 
from Subroutine) ist eine Rücksprunganweisung in Maschinensprache 
und seine Position innerhalb eines Programms für manche Assembler- 
Tüftler von Interesse. 

On break cont I Abbruch unterbinden 

' Gilt nur für die V2.0-Version, da diese Logscreen 
' und Physscreen bei Progranmen^ noch nicht selbstständig 
' restauriert. 
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SScreend) I 2. Bildschlrmspeicher anlegen 

Print ••*** SOFT - PRINTIMG **• (Moment, bitte)" 

Line 0,16,639,16 

9Screen(2} I Logscreen/Physscreen tauschen 

BpX=Basepage 

aFind(0,Chr$(&HAE),ChrS(&H75),BpX,Lpeek(BpX+24),*BackS) 

' I Alle &H4E7S-Uor(te (RTS) suchen 

ascreen(2} I Logscreen/Physscreen tauschen 

Print At(1,1);"*** SOFT - PRIMTING *** (<Taste>=Abbruch)" 
ascreen(2) I Logscreen/Physscreen tauschen 

Xb2X2Xbios(2) I Physscreen-Start holen 

Xb3X°Xbios(3) I Logscreen-Start holen 

ZeileX>17 I Unterste Zeile der Aussparung 

For 1X=1 To Len(Back$)-1 Step 4 I Nacheinander alle Longs 

' I Aus dem Find-Rückgabe-String 

Exit if Back$="" Or Inkey$>"" Or Housek I Taste? 
OffsetX<Cvl(MidS(BackS,IX,4))-Basepage I Offset zur BASEPAGE 
Print At(3,1);"BASEPAGE + ";OffsetX;“ <--- $4E75 (RTS)" 

For J»0 To 15 I 16 Scan-Lines 

Bmove Xb2X+ZeileX*80+80,Xb2X+ZeileX*80,32000-ZeileX*80-80 
' Physscreen 'hochsetzen' 

Bmove Xb3X+J*80,Xb2X+31920,80 I 
' Logscreen-Zeile in Physscreen unten einsetzen 
Next JX 
Next IX 

aScreen(O) I Screens restaurieren 

I 

Procedura Find(F.flgX,Str1$,Str2$,StX,EnX,F.adr_X) 

' Sucht einen beliebigen Text im Speicher. Der Suchtext ist 
' vorher an einer beliebigen Stelle in zwei Teile zu teilen 
' und dann in diesen zwei Teilen zu übergeben, damit er sich 
' nicht selbst finden kann. 

I 

' F.flgX = Flag 

' 0 s Der angegebene Bereich wird in seiner 

' gesamten Länge durchsucht und alle 

' gefundenen Positionen zurückgegeben. 

' <>0 > Die Suche wird nach dem ersten gefundenen 

' Ausdruck abgebrochen. 

' StrIS = Vorderer Teil des Suchtextes 
' Str2S = Hinterer Teil des Suchtextes 
' StX = Startadresse des zu durchsuchenden Bereichs 
' EnX = Endadresse des zu durchsuchenden Bereichs. 

' Beide Adressen werden ggfs, automatisch auf 

' die nächstkleinere gerade Adresse "gerundet". 

' Kleinere Adressen als 2048 werden automatisch 

' auf 2048 hochgesetzt. Nach oben gibt es keine 

' Begrenzung, um ggfs, auch das ROH durchsuchen 

' zu können. 

' F_adrX = Pointer auf eine Rückgabe-String-Variable, die 
' nach AbschluB alle gefundenen Positionen im 

' MKLSO-Format enthält. Oie Anzahl gefundener 

' Positionen ergibt sich also aus Len(Back$)/4. 

I 

Local F.b$,F.iX,F.ofX,F.stepX,F.spcX,F.staX,F.bufS 
StX=Max(2048,Int(StX/2}*2) I Startadresse tritmen 
EnX=Max(StX,Int{EnX/2)*2) I Endadresse trimmen 
F.stepX=Min(EnX-StX,4000) I Suchblock-GröBe 
F.rstX=(EnX-StX) Mod F.stepX I Block-Rest berechnen 
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F.b$=Space$(F.stepX) I Suchpuffer einrichten 

F.spci^F.stepX I Kopie der Block-GröBe 

For F.iX=StX To EnX Step F.steptt I Bereich durchlaufen 
If (F.iX'«'F.stepX)>EnX I Rest kleiner als BlockgröBe? 

F.spcX=F.rstX I Dam BlockgröBe gleich Rest 

Endif 

Bniove F.iX,Varptr(F.bS),Max(F.spcX,1) I Block... 

' I ...in den Puffer kopieren 

Clr F.staX I INSTR-Startposition «0 

Repeat 

F.ofX-In8tr(Left$(F.b$,F.spcX),Str1S+Str2S,F.staX) 

' I Such-String gefunden? 

If F.ofX I Wem ja, 

F.8taX=F.ofX+Len(Str1$+Str2$) I dam neue 
■ I INSTR-Startposition setzen 

F.buf$=F.buf$+MklS(F.iX+F.ofX-1) I und Adresse 
Endif I in HKLS-String einbinden 

Until F.ofX=0 Or (F.flgXoO And F.ofX>0) I Abbruch, wem nichts 
' gefunden wurde oder nur die 1. Position gesucht wird 
§ Exit if F.flgX I Abbruch, wem F.flg gesetzt 

Exit if F.flgX And F.ofX>0 I Abbruch, wem F.flg gesetzt 

Next F.iX ! Nächsten Block holen 

*F.adr_X=F.buf$ ! MKLS()-String zurückgeben 

Return 

I 

■ Achtung: Im Progranm FIND.IST auf der Diskette müssen zwei 

■ fehlerhafte Zeilen ausgetauscht werden. Es handelt sich um 
' die vierte vor "Return", die mit "Exit..." begimt und die 
' sechste vor "Return", welche mit "Until..." begimt. 

I 

Procedure Screen(FlagX) 

I 

' Dies ist eigentlich die zentrale Prozedur zur Erzeugung 
' von flimmerfreien, bewegten Bildern. Sie legt einen zweiten 
' Speicher für die Logscreen (siehe XBI0S(S}/XBI0S(3}) an und 
' man hat dam die Möglichkeit, die innerhalb des Speichers 

■ - unsichtbar - erzeugte Grafik in rasanter Geschwindgkeit 

' auf einmal in den sichtbaren BiIdschirm-Spei eher (Physbase 
' siehe XßIOS(2)/XßIOS(5)) zu transferieren. Der vorher auf der 
' Physscreen liegende - sichtbare - BiIdschirm-Inhalt liegt 
' anschließend in der unsichtbaren Logscreen. Dabei werden nicht 
' die Speicherinhalte vertauscht, sondern dem Video-Shifter 
' (Arbeits-Chip zur Übertragung eines 32-KByte-Speichers auf 
' den Monitor) wird einfach eine andere Startadresse des 
' darzustellenden Speichers übergeben. 

I 

■ FlagX = 1 

' Es wird ein Integerfeld als Buffer für die Logscreen 
' eingerichtet und die Adressen der Screens in PbaseX 

■ und LbaseX abgelegt. 

' FlagX = 2 

' Hiermit werden die beiden Screens umdefiniert. Die 
' physikalische Screen (der auf dem Monitor 
' sichtbare Bildschirmspeicher) wird zur logischen Screen 
' (der für Ausgaben relevante Bildschirmspeicher) und 

' umgekehrt. D.h., daß während etwas auf der Logscreen 

■ ausgegeben wird, dieses auf der Physscreen nicht zu 

' sehen ist. Die Ausgaben werden erst sichtbar, wem man 
' das nächste Mal Screen(2) aufruft. Wurde vorher kein 
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' Screcn{1)-Aufruf durchgeführt, bleibt ScreenCZ) 

' ohne Uirkung. 

• Flag* = 3 

' Restauriert wieder den ursprünglichen Zustand. Beide 
' Screens werden wieder auf dieselbe Adresse gelegt. 

■ Dadurch sind BiIdschirmausgaben wieder direkt sichtbar. 

■ Der für die alte Logscreen reservierte Speicher wird 

■ wieder gelöscht. Die Logscreen ist danach für den 

' nächsten Einsatz erst wieder durch Screen(1> zu 

■ initialisieren. Die beiden globalen Variablen LbaseX 

■ urvi PbaseX dürfen zwischen dem Screend)- und dem 

' entsprechenden Screen(0)-Aufruf nicht verändert werden, 

■ da sonst Absturz droht. 

' Ab GFA-BASIC V2.02 werden die Screens bei Programmende 

■ vom BASIC automatisch wieder restauriert. 

I 

If FlagX=1 I Logscreen einrichten? 

Dirn L_adrX(8064) I OIM Puffer-Feld 

PbaseX=Xbios(2) I Physscreen-Adresse 

LbaseX=Int(Varptr(L_adrX(0))/256+1)*256 I Neue 
Endif I Logscreen-Adresse 

If (FlagX=2) And Dim?(L_adrXO) f Screens tauschen? 

Swap LbaseX,PbaseX I Startadressen tauschen 
Void Xbios(5,L:PbaseX,L;LbaseX,-1) I und Screens 
Endif I neu setzen 

If (FlagX=0) And Dim?(L_adrXO) I Screens restaurieren? 

Void Xbios(5,L:Max(PbaseX,LbaseX),L:Max(PbaseX,LbaseX),-1) 
' Screens beide auf die höhere der beiden Adressen setzen 
Erase L_adrX() I Puffer-Feld löschen 

Endif 
Return 


Das was Sie bis jetzt in diesem Kapitel gesehen haben, bewegt sich 
noch im normalen Rahmen. Bei der Grafik-Animation stellt sich im¬ 
mer wieder die große Frage: "Wie bekomme ich die Geometrie in den 
Griff?" 

Geometrie ist nicht jedermanns Sache. Manchen (wie mir) macht sie 
geradezu "kindischen" Spaß, weil nur mit der Geometrie eine Nachah¬ 
mung natürlicher Vorgänge (die Grundidee der Computer-Animation) 
möglich ist. In vielen Animations-Büchern und -Artikeln wird man 
pausenlos mit hoch wissenschaftlichen Formeln traktiert, die selbst aus¬ 
gefuchsten Mathematikern teilweise die Haare zu Berge stehen lassen. 
Ich selbst studiere Architektur, was in vielen Beziehung quasi eine 
Unter-Disziplin der Mathematik und Physik ist (Statik, Massenberech¬ 
nung, Bauphysik, darstellende Geometrie etc.), aber bei diesen For¬ 
meln muß ich oft kleinlaut die Segel streichen. Ich nehme an, daß es 
den meisten von Ihnen genauso ergeht. 

Um nun dem Geometrie-Ungeübten ein vielseitiges Werkzeug an die 
Hand zu geben, habe ich eine kleine Prozedur entwickelt, auf die ich 
- was Sie mir hoffentlich zugestehen werden - besonders stolz bin. 
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Die einzigen Grundkenntnisse, über die Sie beim Einsatz dieser Rou¬ 
tine verfügen müssen, sind die Kenntnis über die Konstruktion eines 
Kreises (Pi, Sinus, Cosinus) bzw. eine Vorstellung von der umlaufen¬ 
den Gradeinteilung bei einem Kreis. Was man dann mit Star - so heißt 
die Prozedur bedeutungsschwer - alles machen kann, wird Ihnen hof¬ 
fentlich ein wenig die Sprache verschlagen. Star ist - für mich jeden¬ 
falls - der vielseitigste Grafik-Befehl, den ich kenne. Der Rest ist 
dann nur noch Übung. 

On Break Cont I Break abfangen 

XtX=2-Sgn(Xbios(4)) I X-Auflösungsteiler 

YtX=Hin(2,3-Xbios(4)) I Y-Auflösungsteiler 

Deftext ,17,,26/YtX 

Text 100/XtX,200/YtX,440/XtX,"* STAR *" 

Print At{26/XtX,16);“Alle folgenden Demonstrationen“ 

Print At(26/XtX,17);"verHenden im wesentlichen ein-“ 

Print At{26/XtX,18);“und denselben Grafik-Befehl!“ 

Pause 200 

I 

ascreend) I 2. Screen einrichten (s.o.) 

ascreen{2) I 2. Screen initialisieren (s.o.) 

I 

Deffill ,2,2 
For 1X=0 To 180 
Cls 

astar{2,320/XtX,200/YtX,100/XtX,50/YtX,IX,IX,320/XtX,... 

...200/YtX,200/XtX,100/YtX,IX,IX,8,1,IX+180) 
astar(2,320/XtX,200/YtX,100/XtX,50/YtX,IX,IX,320/XtX,... 

...200/YtX,20/XtX,10/YtX,IX,IX,8,1,360-IX) 
astar(1,320/XtX,200/YtX,100/XtX,50/YtX,IX,IX,320/XtX,... 

...200/YtX,200/XtX,100/YtX,IX,IX,8,1,180-IX) 
astar(1,320/XtX,200/YtX,100/XtX,50/YtX,IX,IX,320/XtX,... 

...200/YtX,20/XtX,10/YtX,IX,IX,8,1,IX) 
ascreen(2) ! Screens tauschen 

Next IX ' 

I 

For IX=200 To 0 Step -1 
Cls 

astarC1,320/XtX,200/YtX,(300-IX)/XtX,(300-IX)/YtX,IX,IX,... 

...320/XtX,200/YtX,(20+IX)/XtX,(20+IX)/YtX,0,0,16,0,IX) 
ascreen(2) I Screens tauschen 

Next IX 

I 

For IX=1 To 500 Step 3 
Cls 

JX=JX-IX 

astard, (500- IX)/XtX, (300- IX*0.5)/YtX, UO/XtX, 140/YtX,... 

...IX/30,IX/30,(600-IX)/XtX,(200+Sin(IX/180)*60)/YtX,... 

...30+IX/20,30+IX/20,IX/30,IX/30,4,0,JX/4) 
ascreen(2) ! Screens tauschen 

Next IX 

I 

Cls 

For IX=1 To 100 
Cls 

astard,320/XtX, 200/YtX, 100/XtX,50/YtX, IX/5, IX/5,326/XtX,... 
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...206/YtX,(10+IX)/XtX,(5+IX)/YtX, lX/5, IX/5,4,0,IX*4) 
aScreenCZ) I Screens tauschen 

Next IX 

I 

Cts 

OeffiU ,2,4 
For IX=-60 To 160 Step 4 
Cls 

aStarC1,(200+IX)/XtX,(200-IX)/YtX,(300-IX)/XtX,... 

...(200-IX*1.2)/YtX,0,0,(200+IX)/XtX,220-lX)/YtX,... 

...(300-IX)/XtX,(200-IX*1.2)/YtX,0,0,4,0,IX/2) 
ascreen(2) I Screens tauschen 

Next IX 

I 

Cls 

Deffill ,2,1 

Pellipse 320/XtX,300/YtX,240/XtX,70/YtX 
Deffill ,2,4 

Pellipse 320/XtX,300/YtX,30/XtX,12/YtX 
Sget AaS 

For IX=30 To 620 Step 8 
Sput AaS 
If IX>30 

Circle PxX(0),PyX(0),1 
Circle PxX(3),PyX(3),1 
Endif 
Sget AaS 
Deffill ,2,4 

aStar(2,320/XtX,300/YtX,240/XtX,70/YtX,0,0,320/XtX,... 

...300/YtX,30/XtX,12/YtX,0,0,6,1,IX) 
astar(2,320/XtX,300/YtX,240/XtX,70/YtX,0,0,320/XtX,... 

...300/YtX,30/XtX,12/YtX,0,0,6,1,IX+180) 

Deffill ,2,3 

aStar(1,320/XtX,300/YtX,240/XtX,70/YtX,0,0,320/XtX,... 

...(80+IX/4)/YtX,30/XtX,12/YtX,0,0,6,1,IX) 
astar(1,320/XtX,300/YtX,240/XtX,70/YtX,0,0,320/XtX,... 

...(80+IX/4)/YtX,30/XtX,12/YtX,0,0,6,1,IX+180) 
Pellipse 320/XtX,80/YtX,30/XtX,12/YtX 
ascreen(2) I Screens tauschen 

Next IX 

Bnxjve Xbios(2),Xbios(3),32000 

Print "MOHENT, BITTE I" 

ascreen(2) I Screens tauschen 

I 

Deffill ,2,8 

Pbox 0,0,639/XtX,399/YtX 
Dpoke Vdibase+34,0 I für V2.xx 

' Boundary 0 I für V3.0 

Deffill ,2,4 
For IX=1 To 360 Step 12 
Add Ii,0.55 
Deffill ,2,Abs(9-Ii) 

aStar(2,500/XtX,200/YtX,40/XtX,40/YtX,0,0,600/XtX,... 

...40/YtX,20/XtX,20/YtX,0,0,30,1,IX+45) 

Next IX 
li=0 

For IX=1 To 360 Step 12 
Add Ii,0.4 
Deffill ,2,Abs(8-Ii) 
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aStar{2,300/XtX,HO/YtX,90/XtX,90/YtX,0,0,500/XtX,... 

...200/YtX,40/XtX,40/YtX,0.0,30,1,IX+80) 

Next IX 

Circle 300/XtX,H0/YtX,90/YtX 
li=0 

For IX=0 To 356 Step 12 
Add I1,0.33 

Deffill .2,Abs(-1-Ii) Mod 8 

astar(2,150/XtX,280/YtX,200/XtX,200/YtX,0,0,300/XtX,... 

...KO/YtX,90/XtX,90/YtX,0,0,30,1,lX) 

Next IX 

Circle 150/XtX,280/YtX,200/YtX 
Dpoke Vdibase*'3A,1 I für V2.xx 

' Boundary 1 I für V3.0 

Sget AaS 

For IX=1 To 166 Step 3 
Cls 

Sput AaS 

astar(2,(150+IX)/XtX,(280-IX/2)/YtX,(160-IX)/XtX,... 

...(IAO-IX)/YtX,-30,-30,(266+IX/3)/XtX,... 

...(210-IX/8)/YtX,0,0,0,0,A,1,A5) 
aScreen(2) I Screens tauschen 

Next IX 
Cls 

aScreen(2) ! Screens tauschen 

Cls 

I 

Pbox 10/XtX,10/YtX,629/XtX,389/YtX 
Deffill ,0,0 
For IX=1 To 7 
Deffill ,2,IX 

Pcircle 320/XtX,200/YtX,(200-IX*25)/YtX 
Next IX 
Sget AaS 

ascreen(2) I Screens tauschen 

For IX=1 To 6A0 Step 8 
Cls 

Sput AaS 
Deffill ,2,8 

astar(2,IX/XtX,(200+Sin(IX/180)»120)/YtX,200/XtX,200/YtX,... 

...22,22,IX/XtX,(200+Sin(IX/180)*120)/YtX,... 

...20/XtX,20/YtX,0,0,A,1,IX) 

Deffill ,0,0 

astar(2,IX/XtX,(206+Sin(IX/180)*120)/YtX,200/XtX,200/YtX,... 

...22,22,IX/XtX,(206+Sin(IX/180)*120)/YtX,... 

...20/XtX,20/YtX,0,0,A,1,IX) 

Deffill ,2,8 

astar(2,IX/XtX,(200+Sin(IX/180)*120)/YtX,180/XtX,180/YtX,... 

...A0,A0,IX/XtX,(200+Sin(IX/180)*120)/YtX,... 

...80/XtX,80/YtX,30,30,A,1,IX) 

Deffill ,2,A 

astar(2,IX/XtX,(210+Sin(IX/180)»120)/YtX,180/XtX,180/YtX,... 

...A0,A0,IX/XtX,(210+Sin(IX/180)*120)/YtX,... 

...80/XtX,80/YtX,30,30,A,1,IX) 
ascreen(2) ! Screens tauschen 

Next IX 
Pause 10 
Cls 




Feld-, Speicher- und Zeigeroperalionen 


371 


Deffill ,2,8 

Pbox 0,0,639/Xt%,399/YtX 

Deffill ,0,0 

Pcircle 320/Xt*,200/YtX,199/YtX 
Circle 320/XtX,200/YtX,195/YtX 
Circle 320/XtX,200/YtX,146/YtX 
Deffill ,3,9 

Pcircle 320/XtX,200/YtX,140/YtX 
Deffill ,2,4 

Pcircle 320/XtX,200/YtX,20/YtX 
Sget Aa$ 

For IX=0 To 360 Step 6 
Repeat 

Until (Tinier-T)/200=>1 
Sput Aa$ 

astar(2,320/XtX,200/YtX,190/XtX,190/YtX,-2,9,320/XtX,... 

...200/YtX,160/XtX,160/YtX,-2,9,30,1,IX-90) 
astar{1,320/XtX,200/YtX,100/XtX,100/YtX,0,12,320/XtX,... 

...200/YtX,30/XtX,30/Y tX,0,12,30,1,1X-90) 

Print At(66/XtX,2);"00:00:";Spc{2-Len(Str$(IX/6)));IX/6 
If IX Mod 30=0 
Pcircle PxX(1),PyX(1),6/YtX 
Graphmode 3 

astar(2,320/XtX,200/YtX,190/XtX,190/YtX,-2,9,320/XtX,... 

...200/YtX,160/XtX,160/YtX,-2,9,30,1,IX-90) 

Graphmode 1 

astar(1,320/XtX,200/YtX,190/XtX,190/YtX,-2,9,320/XtX,... 

...200/YtX,160/XtX,160/YtX,-2,9,30,1,IX-90) 

Sget Aa$ 

Endif 

T=Timer 

ascreen(2) I Screens tauschen 

Next IX 
Pause 100 

ascreen(O) 

I 

Procedure Star(HdX,XpaX,YpaX,XraX,YraX,Oa1,0a2,XpiX,YpiX,... 

...XriX,YriX,Oi1,0i2,EckX,PktX,Sw) 

■ Zeichnet ein beliebiges Vieleck innerhalb zweier Radien. 

I 

■ HdX = Modus 1 = Figur als POLYLINE 

• 2 = Figur als POLYFILL 

' 3 = Figur als POLYMARK 

' XpaX= X-Koord. des Mittelpunktes d. äußeren Kreises/Ellipse 

' YpaX= Y-Koord. des Mittelpunktes d. äußeren Kreises/Ellipse 

' XraX= X-Radius des äußeren Kreises/Ellipse 
' YpaX= Y-Radius des äußeren Kreises/Ellipse 
' Oal = Offset (in Grad) der vorderen Flächen-Außenkoordinate 

' 0a2 = Offset (in Grad) der hinteren Flächen-Außenkoordinate 

I 

' XpiX= X-Koord. des Mittelpunktes d. inneren Kreises/Ellipse 

' YpiX= Y-Koord. des Mittelpunktes d. inneren Kreises/Ellipse 

' XriX= X-Radius des inneren Kreise/ellipse 

■ YpiX= Y-Radius des inneren Kreise/Ellipse 

' Oil = Offset (in Grad) der vorderen Flächen-Innenkoordinate 

' 0i2 = Offset (in Grad) der hinteren Flächen-Innenkoordinate 

I 

' EckX= Anzahl der absoluten Teilflächen (beliebig) 
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PktX= Anzahl der zu zeichnenden Teilflächen 
0 = Figur komplett zeichnen 
n = beliebige Punktanzahl (max. EckX) 

Sw = Startwinkel in Grad 

Null = rechter Endpunkt der Horizontalachse. 

Die vorderen Flächenkoordinaten werden bei Sw 
(ggfs. +/- Offset) gezeichnet. 

Alle weiteren folgen im Uhrzeigersinn 

Nach Rückkehr zum Programm können die Flöchenkoordinaten der 
zuletzt gezeichneten Fläche ausgelesen werden: 

PxX(0)/PyX{0) = Vordere Koordinate im Innen-Kreis/Ellipse 
PxX(1)/PyX(1) = Vordere Koordinate im Aussen-Kreis/Ellipse 
PxX(2)/PyX(2) = Hintere Koordinate im Aussen-Kreis/Ellipse 
PxX(3)/PyX(3) = Hintere Koordinate im Imen-Kreis/Ellipse 


Mind. eine Ecke 
Punkteanzahl = 07 
Punkteanzahl • Eckanzahl 
Punkte <> 0 I 
I Punkteanzahl 


Local JX,Stp,I 
EckX=Max(1,Abs(EckX)) I 
If PktX=0 I 

PktX=EckX I 

Else I 

PktX=Min(EckX,Abs(PktX)) ! Punkteanzahl = max. Ecken 
Endif 

Stp=360/(EckX+1.0E-100) ! Uinkelschritte 

Erase PxXO 

Erase PyXO 

Dirn PxX(4),PyX(A) 

For l*90-Sw To -270-Sw Step -Stp I Einmal rundun 

PxX(0)=XpiX+Sin({I-Oi1)*Pi/180)»XriX I 
PyX(0)=YpiXtCos((I-0i1)*Pi/180)*YriX I 
PxX(1)=XpaX+Sin((I-Oa1)»Pi/180)»X raX I 
PyX(1)=YpaX+Cos((I-0a1)»Pi/180)*YraX I 
PxX(2)=XpaX+Sin((I-StptOa2)*Pi/180)*XraX I 
PyX{2)=YpaX+Cos((I-StpH)a2)»Pi/180)*YraX I 
PxX(3)=XpiX+Sin((I-StptOi2)»Pi/180)*XriX I 
PyX(3)=YpiX+Cos((I-Stp»0i2)*Pi/180)*YriX I 
PxX(4)=PxX(0) 

PyX(4)=PyX{0) 

If MdX=1 I 

Polyline 5,PxXO,PyX() I 
Endif 

If HdX=2 I 

Polyfill 4,PxX(),PyX() I 
Endif 

If MdX=3 ! 

Polymark A,PxX(),PyXO I 
Endif 

Inc JX I 

Exit if JX=PktX ! 

Next I ! 


Flächen¬ 

punkte 

berechnen 


Nodus = 17 
Dann POLYLINE 

Modus = 27 
Dann POLYFILL 

Modus * 37 
Dann POLYMARK 

Punktezähler erhöhen 

Abbruch, wenn Punkteanzahl erreicht 

Nächste Fläche 


Return 
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Version 3.0 

:::BYTE{} j CARD{}, LONG{} Spetcherlnh. lesen (User>Modus) 
BYTE{}=r {BY}~ } 1 Byte schreiben (User-Modus) 

CARD{}= {CA}= } 2 Byte schreiben (User-Modus) 

LONG{}=: { LON }= } 4 Byte schreiben (User-Modus) 

Syntax (Zuweisung an Adresse/vgl. D-L-POKE): 

BYTE{Adresse}=Wert = > Schreibt ein Byte 

CARD{gerade Adresse)=Wert = > Schreibt zwei Byte (Word) 

LONG{gerade Adresse}=Wert = > Schreibt vier Byte (Long) 

Syntax (Lesen aus Adresse/vgl. D-L-PEEK): 

Var=BYTE{Adresse} = > Liest ein Byte 

Var=CARD{gerade Adresse) s > Liest zwei Byte (Word/(Cardinal) 
Var=LONG{gerade Adresse) = > Liest vier B)de (Long) 

Ab Adresse werden dem Format entsprechend viele (1, 2, 4) Bytes 
gelesen bzw. geschrieben. Bei CARD{) und LONG{) dürfen nur gerade 
Adressen verwendet werden. Die Lese-Funktionen arbeiten hier - im 
Gegensatz zu D-L-PEEK() - generell im User-Modus. D.h, daß auf 
die Supervisor-Bereiche (<2048) nicht zugegriffen werden kann. Da¬ 
durch, daß intern keine Umschaltung in den Supervisor-Modus vorge¬ 
nommen werden muß, benötigen diese Lesefunktionen nur ca. 60 
Prozent der Zeit einer vergleichbaren PEEK()-Funktion. 

Sollen 4-Byte-Werte gelesen werden, kann die Bezeichnung LONG 
weggelassen werden (z.B. {XBIOS(2)) liest 4 Byte ab XBIOS(2)). 

Beispiel: 

Echte System-Zeitlupe in BASIC - und das ohne einen einzigen Ma¬ 
schinensprache-Befehl? Wo gibt es denn so etwas? Wenn Sie auch so 
denken, dann lassen Sie sich überraschen - das gibt es nämlich doch! 

On break gosub Break ! Wichtig! Breaks abfangen und ggfs, vor 

' I Progratnmende den VBl-Queue restaurieren 

ZeitX=476 I Beliebige Zeitvorgabe 

9Slow(0) ! Zeitlupen-Queue initialisieren 

Again: ! Label für Wiederholung <.. 

asiow(ZeitX) ! Zeitlupe einschalten j 

ascc» SLOWMOTION - TEST «“) ! Screen zeichnen 

Tron I Zur Demonstration Trace-Modus an j 

Al$="Ist "+Str$<ZeitX)+" langsam genug?" I 

Alert 2, Als, 1,"AberIja doch!jNein",BackX ! 

If BackX=3 ! Noch langsamer? j 

Alert 1,"Na dann nochmal,[etwas langsamer l",1,"OKAY",BackX I 
Add ZeitX,3 ! Zeitwert un 3 erhöhen | 
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Troff 

Goto Again 
Endif 
Troff 
as(ow(-1) 


I Trace-Modus aus 
I Nochmal von vorn 

I Trace Off 
I Zeitlupe ausschalten 


SScC'Uieder Normalgeschuindigkeit") I Screen zeichnen 


Procedure Slow(Sl.mdX) 

' Vbl-Interrupt-abhängige Zeitlupel Verzögert die Ausführungen 

■ aller Aktionen durch Mehrfachausführung der Standard-Vbl-Routine. 

I 

' Sl.nid% = Modus bzw. Verzögerungswert: 

' 0 = Ist der Standard-Vbl-Interrupt intakt (also 

' z. Zt. keine Zeitlupe an), wird hiermit die 

' Zeitlupe initialisiert. 

' -1 = Ist die Zeitlupe initialisiert, wird hiermit 

' der Standard-Zustand wieder hergestellt. 

• Anschließend kann SLOW mit evtl, anderen 

' Verzögerungwerten neu aufgerufen werden, ohne 

■ vorher wieder durch SLOW(O) initialisiert 

' werden zu müssen. 

• SLOW muß erst dann neu intialisiert werden, 

' wenn nach SLOU(-I) durch RESERVE die Lage 

' von HIMEM verändert wurde. Bei Version V2.02 

' muß statt HIMEM die Adresse HIMEM+5000 angegeben 

' werden. 

' 1 bis A99 = Verzögerungswert: 

■ Da tatsächlich alles (I) durch diese Zeitlupe 

' verzögert wird, verzögern sich also auch die 

' Interruptroutinen selbst. 

■ Aus diesem Grmxl wirken sich die Zeitwerte 

■ quadratisch aus. D.h., daß eine effektive 

■ Zeitlupe erst ca. ab dem Wert 400 feststellbar ist 

' und von da ab jede Erhöhung des Zeitwertes die 

' Verzögerung potenziert. 

• Werte bis zu 495 sind noch erträglich. Größere 

■ Werte führen zu extremer Zeitlupe, so daß die 

' Ausführung eines einzelnen BASIC-Befehls bis 

' zu mehreren Minuten in Anspruch nehmen kann !ll 

' Vorsicht: 

' Bei Disketten-Zugriffen während der Zeitlupe dürfen auf keinen 
' Fall FILESELECT-Boxen aufgerufen werdenII -Absturz-Il 
' Auch nicht zum Laden und Speichern von Programmen. Es sind nur 
' dann direkte Diskettenzugriffe möglich, wenn die Zeitlupe 
' nicht zu langsam ist, da sonst Disk-Errors entstehen. 

I 

■ Wird in Adresse $454 wieder eine 8 (SDPOKE) und in Adresse $456 
' der Wert $4CE (SLPOKE) geschrieben, ist alles wieder so, als ob 
' nichts gewesen wäre. Dann ist auch die FILESELECT-Box wieder 

' verwendbar. 

I 

' Sollte aus irgendwelchen Gründen der Prozedur-Aufruf mit 'Sl.md%' 
' = -1 nicht möglich sein, sind die beiden eben genannten POKEs im 
' Interpreter-Betrieb via Direktmodus auszuführen, was dann jedoch 
' je nach vorher gültigem Sl.mdX-Zeitwert einige Zeit und evtl. 

' viel Geduld in Anspruch nimmt. In Compilaten gibt es allerdings 

■ keinen Notausgang, der in den allermeisten Fällen allerdings auch 
' nicht notwendig sein dürfte. 
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• Zusätzlich zur eingestellten Zeitlupe, kann die Geschwindigkeit 
' der Progranmausführung durch leichte Mausbewegungen 

• weiter verlangsamt werden. Je nach Größe des Sl.mdX-Zeitwertes 

■ sogar bis zum (fast) absoluten Stillstand. 

I 

' Die Adressen sind im Supervisor-Bereich, weshalb hier 
' auch für V3.0 SL-/SDPOKE, bzw. L/PEEK() verwendet wird. 

' Die Routine ist auch für die V2.xx-Versionen verwendbar, wenn die 

■ CARDO- und LONGO-Aufrufe durch DPEEK()/DPOKE bzw. LPEEK()/LPOKE 
' ersetzt werden. 

I 

Local J*,I« 

I _^ 

If Sl.md%<0 And Card{Himem+2}>0 ! Sl.md% < 0 und die Zeitlupe j 

' ! ist initialisiert? 

Sdpoke &H454,Card{HimenH-2> ! nvbls restaurieren 

Slpoke &H456,&H4CE I Alte vbl_list in vblqueue , 

Endi f !=====================================*=====================. 

If Sl.mdX=0 And Lpeek(&H456)=&H4CE I Sl.mdX = 0 und alter | 

' I vblqueue noch intakt? 

Reserve Xbios(2)-16384-HimemtFre(0)-2100 ! 2100 Byte reservieren 
CardCHimem*-2}=Dpeek{&H454) ! Alten nvbls merken 

For JX=0 To 7 ! Acht... 

Exit if Lpeek(&H4CE+JX*4)=0 ! ...belegte vbl_list-Plätze in 
(;Himem*4+JX*4}=Lpeek(&H4CE+JX*4) I neue vbl_list übernehmen j 

Next J* “ ! 

' .Neue vbl list einrichten. j 

For I*=0 To 500 “ I 500 mal... 

(HimenH-4+JX*4+IX*4}={Himem<-4) I .. .Standard-Vbl-Adresse... 

Next IX I ...hintereinander kopieren , 

Endif I ===========================================================. 

If Sl.mdX>0 And Sl.mdX<500 And {Himein«^4}=Lpeek(&H4CE) ! 

■ Sl.mdX > 0 und Sl.mdX < 500 und Standard-Adresse | 

' I schon übertragen? 

Slpoke &H456,HimeflW'4 I Neue Listenadresse in vblqueue j 

Sd(x>ke &H454,Sl.mdX I Neue Anzahl in nvbls j 

Endif I.■ 

Return 

Procedure Break I Abfang-Rout ine für <Control/Shift/Alternate> 

Troff ! Ggfs. Trace-Modus ausschalten 

If Lpeek(&H456)<>&H4CE ! Zeitlupe initialisiert? 

' ! Also kein Standard-Vbl-Queue? 

aslow(-l) I Dann Standard-Vbl-Queue restaurieren 

Endif 

Reserve Xbios(2)-16384-Himem*-Fre(0) ! BASIC-RAM restaurieren 
Edit ! Programmende 

Return 

Procedure Sc(TxS) ! Aufbau-Routine für die Demo-Screen 

Cls I.. 

Text 210,13,220,Tx$ I 

Deffill ,2,4 I 

Pbox 2,16,637,397 I 

Deffill ,0,0 I- Demo-Screen 

For IX=0 To 9 ! zeichnen 

For JX=0 To 5 I 

Pbox IX*63+4,JX*62+18,IX*63-4+68,jX*62-2+76 I 
Next JX I 

Next IX I.• 

Return 
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CHAR{} C-Text lesen 

CHAR{} = {CH}=} ...schreiben 

Var$=CHAR{Adres8e} = > C-Text lesen (Funktion) 

CHAR{Adresse} = Expr$ = > C-Text schreiben 

Es wird ein String im C-Format gelesen bzw. geschrieben. Bei der 
Schreibfunktion wird dem String Expr$ automatisch ein Null-Byte an¬ 
gehängt und der String an Adresse geschrieben. Die Lesefunktion liest 
ab Adresse, bricht beim ersten gefundenen Null-Byte ab und liefert 
den bis dahin gelesenen Text zurück. 

Beispiele finden Sie unter anderem bei FSNEXT(), unter KEYDEF, 
sowie bei den AES-Library-Beispielen. 

Ich fand es an CHAR{} äußerst störend, daß man "nur" mit Null-Bytes 
endende Strings ermitteln kann. Gerade für die freie String-Verwal¬ 
tung innerhalb des freien RAMs hinter HIMEM (z.B. durch BGET# 
geladenen ASCII-Däteien zur Verarbeitung mit BMOVE) oder zur be¬ 
liebigen CR/LF- bzw. CR- oder LF-String-Suche innerhalb des 
Speichers hielt ich es für angebracht, eine Prozedur zu entwickeln, die 
ähnlich funktioniert wie CHAR{}, aber beliebige Suchzeichen zuläßt. 
Die folgende Prozedur erfüllt diese Bedingungen. Dabei gibt es eine 
Einschränkung: Strings mit einer größeren Länge als 10000 Bytes, 
können nicht gefunden werden. Sie können diese maximale Länge al¬ 
lerdings leicht auf 32700 Bytes erweitern, indem Sie die SPACE$()- 
und BMOVE-Zeile entsprechend ändern. Diese Prozedur ist natürlich 
auch in V2.xx verwendbar. 

DO 

' alle Strings suchen, die im Interpreter mit 
' einem Carriage Return enden. 
acchar(BASEPAGE+90000+cntX,CHR*(13),*a*) 

ADD cntX,LEN(a$) 

PRINT aS 
LOOP 

PROCEDURE cchar{adrX,sign$,buffX) 

' AdrX = Startadresse des String. Das erste Byte des Strings ist 
' also das Byte, welches an AdrX liegt. 

' SignS = Such-String (auch mehrere Zeichen) 

‘ BuffX = Pointer auf eine String-Rückgabevariable, die nach 
' Abschluß ggfs, den extrahierten String enthält. 

' Der Rückgabe-String schlieBt dann mit der Suchvorgabe ab 

LOCAL buff$,s.posX 
buff$=SPACE$(10000) 

BHOVE adrX,VARPTR(buff$),10000 
s.posX=INSTR(buff$,sign$) 
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IF s.posX 

*buffX=LEFT$(buff$,s.posX-1+LEN(sign$)) 

ENDIF 

RETURN 


Version 3.0 

DOUBLE{}, SINGLE'O' lEEE-Double/Single-Realformat lesen 
DOÜBLE{} = ,SINGLE{} = ... schreiben 

{DOjt }, {Sl}=} 


Syntax (Lesen aus Adresse): 
Realvar=DOUBLE{gerade Adresse} 
Realvar=SINGLE {gerade Adresse} 
Syntax: (Schreiben an Adresse): 
DOUBLE{gerade Adresse}=Wert 
SINGLE{gerade Adresse}=Wert 


= > 8-Byte-IEEE-Realzahl 
= > 4-Byte-IEEE-Realzahl 

= > 8-Byte-IEEE-Realzahl 
s > 4-Byte-IEEE-Realzahl 


Beim Schreiben wird der angegebene 8- bzw. 4-Byte-Wert als Wert im 
lEEE-Format interpretiert und so an die angegebene Adresse ge¬ 
schrieben. Soll ein Wert gelesen werden, so wird intern der Inhalt der 
auf Adresse folgenden 4 bzw. 8 Byte als Wert im lEEE-Format inter¬ 
pretiert und in Realvar zurückgegeben. 


Darüber, was das lEEE-Format ist, kann ich leider nur vage Vermu¬ 
tungen anstellen. Es gibt eine Epson-Schnittstelle, die den Namen 
"IEEE 488" trägt. Ich nehme daher an, daß dieses Datenformat speziell 
zum Informationsaustausch über eben diese Schnittstelle verwendet 
werden kann. Mir ist außerdem aufgefallen, daß eine glatte 2er-Potenz 
im Normalformat im lEEE-Double-Format immer 0 ergibt und be¬ 
stimmte Werte (0.75, 1.5, 3, 6, 12, 24, 48, 96, 192) immer den lEEE- 
Wert 2. 


Weitere Informationen zu diesem extravaganten Format kann ich Ihnen 
leider nicht liefern. 


Beispiele: 

For 1=1 To 50 
A=Sqr(I) 

Print «IEEE Double<V:AJ 

Next I 

I 

For I=-50 To 50 Step 0.25 
A=I 

Print I,Double{V:A}, 

Single{V:A*4>=A 
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Print A 
Next I 


Version 3.0 

FLOAT{} 8 Byte in GFA-J.O-BASIC-Realformat lesen 

FLOAT{} = {FL}= } 8 Byte in GFA-S.O-Realformat schreiben 

Realvar=FLOAT{gerade Adresse} = > Lesen (Funktion) 

FLOAT{gerade Adresse}=Wert => Schreiben 

Beim Schreiben wird der angegebene Wert als Wert im 8-Byte-Real- 
format des V3.0-GFA-BASICs interpretiert und so in die - auf 
Adresse folgenden - 8 Bytes geschrieben. Soll ein Wert gelesen wer¬ 
den, so wird intern der Inhalt der auf Adresse folgenden 8 Byte als 
V3.0-Realwert interpretiert und in Realvar zurückgegeben. 


Version 3.0 

INT{} /WORD{} 2 Byte als Vorzeichen-Integer lesen 

INT{}= /WORD{} = ... schreiben 

{WO}= } 


Intvar=INT {Adresse} 
lntvar=WORD{Adresse} 
INT {Adresse}=Wert 
WORD {Adresse}=Wert 


= > Lesen (Funktion) 
= > Lesen (Funktion) 
= > Schreiben (Befehl) 
= > Schreiben (Befehi) 


Beim Schreiben wird der angegebene Wert als Wert im vorzeichenbe¬ 
hafteten 2-Byte-Integerformat interpretiert und so in die - auf 
Adresse folgenden - 2 Bytes geschrieben. Soll ein Wert gelesen wer¬ 
den, so wird intern der Inhalt der auf Adresse folgenden 2 Byte als 
vorzeichenbehafteter 2-Byte-Integerwert interpretiert und in der Auf¬ 
nahmevariablen Intvar (beliebiger Typ) zurückgegeben. 


Vorzeichenbehaftete 2-Byte-Werte können nur im Bereich von -32768 
(&X 1000000000000000) bis 32767 (&X0111111111111111) liegen. Ist 
also das höchste Bit (Bit 15) der beiden auf Adresse folgenden 16 Bits 
gesetzt, so ist der gelieferte Wert negativ. Der sich aus den untersten 
15 Bits ergebende positive Normal-Integerwert (Wert And (2^15-1)) 
wird dann zu -32768 addiert und ergibt so den gelieferten Minuswert. 


Wird als Intvar eine Byte-Variable (z.B. Var|) angegeben, so kann da¬ 
mit nur ein vorzeichenloser Wert von 0 - 255 aufgenommen werden. 
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Bei INT{) und WORD{) handelt es sich um zwei Namen derselben 
Funktion bzw. desselben Befehls. WORD{} hat den Vorteil, daß die 
Angabe als Befehl auf z.B. WO 23456}=12 verkürzt werden kann. 

Für die V2.xx-Schreib-Simulation kann ohne weiteres DPOKE ver¬ 
wendet werden, da intern bei Minus-Pokes automatisch der richtige 
Komplementwert gebildet wird. Dabei dürfen jedoch keine Werte, die 
kleiner als -32768 oder größer als 32767 sind, verwendet werden, da 
sonst die Adreßinhalte "per Hand" komplementiert werden müßten, um 
beim Lesen korrekte Ergebnisse zu erhalten. 

Als V2.xx-Simulation der Lese-Funktion kann eine relativ einfache 
DEFFN-Funktion eingesetzt werden: 

AX=0 

For IX=0 To 15 ! 16 Bits 

Dpoke Varptr(A%)+2,-(2'IX) I löschen (-) 

Print Right$(String$(16,"0")+Bin*(AX),16), 

Print aWord{Varptr(AX)+2) ! Word-Inhalt lesen 

• in V3.0: Print Uord<:V:AX+2> ! (vorzeichenrichtig) 

Next IX 

Deffn Uord(AdrX)=32768*((Dpeek(AdrX) And 2‘15)<>0)+... 

_ ♦(Dpeek(AdrX) And 32767) 


PEEK, DPEEK, LPEEK 

Speicherinhalt auslesen (Supervisor-Modus) 

Var=PEEK(Adre88e) = > Lie8t ein Byte 

Var=DPEEK(gerade Adreeee) = > Lieet zwei Byte (Word) 

Var=LPEEK(gerade Adreeee) = > Lieet vier Byte (Long) 

Ab Adresse werden dem Format entsprechend viele (1,2 oder 4) Bytes 
gelesen. Bei DPEEK() und LPEEK() dürfen nur gerade Adressen ver¬ 
wendet werden. Die Funktion arbeitet generell im Supervisor-Modus. 
D.h. daß - im Gegensatz zu BYTE{}, CARD{} und LONG{) - auch 
Speicherstellen unterhalb der Adresse 2048 gelesen werden können. 

Was wäre ein BASIC ohne PEEKs und POKEs?. Wie ein Rennwagen 
ohne Motor! Wer sich mit dem Programmieren in semiprofessionelle 
oder gar professionelle Höhen schwingen will, wird sich noch sehr in¬ 
tensiv mit den Möglichkeiten dieser Funktionen und Befehle auseinan¬ 
derzusetzen haben. Was man damit alles machen kann, können Sie hier 
im Buch an (fast) unzähligen Stellen nachvollziehen. Unter anderem 
finden Sie Beispiele unter DATA in den Prozeduren Pcode und Scode, 
unter DEFMOUSE in der Prozedur Dmouse und in 9.5.1 "Organisation 
eines PUT-Strings". 
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POKE,DPOKE,LPOKE 

{ PO,DP,LP } Speicherinhalt andern (User-Modus) 

POKE Adresse,Byte = > Schreibt ein Byte 

DPOKE gerade Adresse,Word = > Schreibt zwei Byte (Word) 

LPOKE gerade Adresse,Long = > Schreibt vier Byte (Long) 

Schreibt im User-Modus den angegebenen Wert (Byte, Word, Long) im 
jeweiligen Format in die ab Adresse folgenden 1, 2 oder 4 Bytes. Bei 
DPOKE und LPOKE dürfen nur gerade Adressen verwendet werden. 

Stellen Sie beim Experimentieren mit den POKEs sicher, daß Sie nicht 
unbeabsichtigt in wichtige Bereiche des Sytems oder des Interpreters 
hinein’poken’. Auch wenn das nicht immer sofort mit einem Absturz 
endet, können durch falsche Daten in diesen Bereichen Fehlfunktionen 
ausgelöst werden, die sich dann erst nach geraumer Zeit bemerkbar 
machen. Diese Fehlfunktionen sind im Endeffekt wesentlich gefährli¬ 
cher als ein Absturz, da dadurch auch beim Laden und Speichern Da¬ 
ten unbemerkt "beschädigt" werden können, während man sich in Si¬ 
cherheit wähnt. 

Lassen Sie also bitte grundsätzlich bei allen Speichermanipulationen 
äußerste Vorsicht walten! Sollte Ihnen ein POKE mal "verloren" gehen, 
(wenn also seine Wirkung nicht nachvollziehbar ist), ist es in den mei¬ 
sten Fällen angebracht, seine Daten (Programm etc.) so schnell wie 
möglich auf Disk zu sichern und dann zum Resetknopf zu greifen, ehe 
Schlimmeres folgt. 

Beispiele zu den POKEs finden Sie unter anderem unter DATA in 
Prozedur Pread, unter DEFTEXT, sowie unter PUT in der Prozedur 
Size. 


SPOKE,SDPOKE,SLPOKE { SP,SD,SL } Supervisor-Poke 

SPOKE Adresse,Byte = > Schreibt ein Byte 

SDPOKE gerade Adresse,Word = > Schreibt zwei Byte 

SLPOKE gerade Adresse,Long = > Schreibt vier Byte 

Für diese Befehle gelten dieselben Ausführungen wie zu 
POKE/DPOKE/LPOKE. Der Unterschied ist, daß hiermit auch auf 
den Supervisor-Bereich (<2048) zugegriffen und dessen Inhalt verän¬ 
dert werden kann (siehe unter BYTE{}, CARD{), LONG{} in der 
Prozedur Slow). 
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11.3 Speicherverwaltung 


Version 3.0 

INLINE {INL} BASIC-interne Speicherreservierung 

INLINE Adresse%,Bytes 

Reserviert innerhalb des Programm-Listings einen Speicherbereich von 
maximal 32700 Bytes. Dazu wird in Bytes die gewünschte Größe ange¬ 
geben. Adresse% ist eine 4-Byte-Integer-Rückgabevariable (keine 
Feldvariable). Trifft das Programm auf eine INLINE-Zeile, so wird 
darin vom BASIC die aktuelle Startadresse des INLINE-Speichers ge¬ 
liefert. Sonst geschieht nichts. Ob etwas im Speicher ist, bzw. was Sie 
mit der Adresse und diesem Speicher anfangen, hängt davon ab, was 
Sie bei der Programmerstellung in diesen Speicher geladen haben. 

Die Besonderheit dieses Befehls besteht nämlich darin, daß schon der 
Editor auf die Eingabe einer INLINE-Zeile reagiert. Überall dort, wo 
eine INLINE-Zeile geschrieben wurde und durch <Return> oder eine 
andere Editorfunktion verlassen wird, wird im Programmspeicher ein 
Bereich mit der angegebenen Größe reserviert. Wenn Sie nun das Pro¬ 
gramm mit der Editorfunktion Save bzw. SAVE oder PSA VE abspei¬ 
chern, werden diese INLINE-Speicher als Programmbestandteil mit¬ 
samt Inhalt mit abgespeichert. Beim nächsten Laden durch Load bzw. 
LOAD werden die INLINE-Speicher ebenfalls mitgeladen und sind 
dann unverändert wieder verfügbar. 

Mit der Editorfunktion Save,A bzw. dem Befehl LIST wird nur die 
Zeile, aber nicht der INLINE-Speicher gesichert. Beim Laden eines 
ASCIl-Listings mit Merge wird zwar wieder der Speicher reserviert, 
aber er ist dann ohne Inhalt. 

In einer INLINE-Befehlszeile ist kein !-Kommentar möglich, da an 
Stelle des Kommentars intern der INLINE-Speicher gelegt wird. Beim 
ersten Anlegen eines Speichers wird dieser mit Null-Bytes gefüllt. 
Wird eine bestehende INLINE-Zeile aus dem Programm gelöscht, wird 
auch automatisch der Speicher wieder an das BASIC zurückgegeben. 

Wird dagegen eine bereits bestehende INLINE-Zeile nachträglich 
verändert (neuer Variablename oder neue Speichergröße), fragt der 
Interpreter zuerst nach, ob der alte INLINE-Speicher gelöscht werden 
soll. Wird diese Abfrage mit "OK" beantwortet, wird der alte Speicher 
gelöscht und einer neuer - den neuen Angaben entsprechender - 
Speicher eingerichtet. 
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Steht der Cursor auf einer fertigen (schon gecheckten) INLINE-Zeile, 
kann man die <Help>-Taste drücken. Das können Sie sonst natürlich 
auch, nur es hat dann keinen Zweck. Drücken Sie also die <Help>- 
Taste während der Cursor auf einer INLINE-Zeile steht, so erscheint 
eine Menüzeile. 

Mit Mausklick auf Load (<L>) kann eine beliebige Datei in den reser¬ 
vierten Bereich geladen werden (z.B. Maschinen-Code, Bilddateien 
etc.). Mit Save (<S>) wird der INLINE-Speicher auf Diskette gesichert. 
Dump (<D>) ermöglicht die Ausgabe des INLINE-Inhalts in 2-Byte- 
Hexwerten (mit Offset-Angabe) auf dem Drucker und Clear (<C>) 
löscht (ohne Sicherheitsabfrage) den INLINE-Speicher. 

Beim Speichern wird der INLINE-Datei - sofern keine andere ange¬ 
geben wurde - die Extension .INL verpaßt. Beim Laden wird ebenfalls 
die Auswahl-Vorgabe .INL voreingestellt. Es kann jedoch jede belie¬ 
bige Datei geladen werden. Die zu ladende Datei sollte entweder ge¬ 
nauso groß wie der INLINE-Speicher oder größer sein. Dateien, die 
den INLINE-Speicher nicht ganz füllen, werden mit der Meldung 
"File-Ende erreicht" abgewiesen. Dateien mit einer Länge, die größer 
als der INLINE-Speicher ist, werden bei der INLINE-Länge abge¬ 
schnitten. 

Noch einmal das Ganze in Stichpunkten: 

1. INLINE-Zeile schreiben (Rückgabe-Variable und Größe ange¬ 
ben); wenn der INLINE-Speicher gefüllt, gesichert, gedruckt 
oder gelöscht werden soll: 

2. Cursor auf INLINE-Zeile und <Help> drücken. 

3. Menü-Funktion wählen. 

Da der INLINE-Speicher innerhalb des Listings liegt, kann man seine 
Startadresse "natürlich" auch dazu verwenden, das Programm-Listing 
zu beeinflußen. Dazu müßte man sich allerdings mit den GFA-Op- 
codes genauer auskennen, womit ich leider nicht dienen kann. Aber 
mit dieser Starthilfe wird es sicher in Zukunft mehrere Insider geben, 
die sich hier noch manche Tricks und Kniffe einfallen lassen. 

Inline AdrX.lOO 

' Hier ist die Zeile hinter dem INLINE-Speicher 
Print "INLINE-Adresse: ■■;AdrX 
A$=Char<AdrX+101) 

For IX=1 To Len(A$) 

Out 5,Asc<Mid$(A$,IX,1)) 

Next IX 
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Version 3.0 

MALLOCO System-Speicher-Reservierung 

Back=MALLOC(Anz) 

- Implementierung der GEMDOS-Funktion 72 - 

Reserviert Anz Bytes oberhalb von HIMEM, bzw. oberhalb des zuletzt 
mit MALLOC reservierten (oder mit MSHRINK reduzierten) 
Speicherbereichs. Der Bereich ist anschließend gegen System-Zugriffe 
geschützt (alloziert/zugeteilt). Als Rückgabewert erhält man bei durch¬ 
geführter Reservierung die Startadresse des reservierten Bereichs (bei 
Fehler 0). Diese Adresse sollte man sich unbedingt merken, damit der 
Speicher auch wieder freigegeben bzw. reduziert werden kann. 

Wird in Anz eine -1 übergeben, erhält man die Größe des noch ver¬ 
fügbaren Speichers. Vor Programmende sollte ggfs. MFREE() ausge¬ 
führt werden, da der reservierte Speicher auch durch RESERVE nicht 
mehr zurückgeholt werden kann. 

Generell sind die Funktionen MALLOCO, MSHRINK() und MFREE() 
sehr kontrolliert einzusetzen. Kann ein allozierter Bereich nicht mehr 
korrekt freigegeben werden, ist damit der ganze Speicher ab der er¬ 
sten, nicht freigegebenen MALLOC()-Adresse für das BASIC gesperrt. 

Der durch MALLOCO vergebene Speicher ist auch gegen Zugriffe des 
GEM gesperrt. Damit das GEM jedoch genügend Platz für seine Ar¬ 
beit hat, sollte unter dem Bildschirmspeicher immer ein Block von 
16384 Bytes freigehalten werden (siehe auch unter RESERVE). 

Als V2.xx-Funktion: 

BackX=aMaUoc(Anz) 

Deffn Mal loc{SizeX)=Geindos(72,L:SizeX) 


Diese DEFFN-Funktion ist mit MALLOCO absolut identisch. 


Beispiel: 

Sysfont(l) I 8*8-Font einschalten (siehe unter ASCO). 
' I (Prozedur Sysfont einbinden) 

Print “Anfangszustand:" 

Print "FRE(0)=";Fre(0);" / HIMEM=";Himem 
Print "freier Speicher hinter HIMEM:",•Malloc(-I) 

Print 





!fRE(0)! XBI0S(2)- 


■Mshrink(A3*,2000) 


! Block 3 auf 2 Kilobyte reduzieren 
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Print "3. HALLOC-Bereich reduziert (MSHRINK 2 KByte)" 

Print "noch nicht vergebener Speicher hinter HIHEM:";HaUoc(-1) 
Print 


HIHEH-> 

<Blloziert>{<HALLOC(-1) > 

Systefli|BASIC|Prog|200KB {Felder 

Hl|H3{*{H2!<Frei >| GEH 


I-,-,-1----- [■- I -■■i-— I I — I I — I 

I_I_I_I_i_I_i..iji..i_I_I 

!fRE{ 0)! Frei/MFREE-' XBIOS(2)-' 


A4X=MaUoc(2000) I 2 Kilobyte (Block 4) allozieren 

Print "Startadresse des 4. HALLOC-Bereichs (2 KByte):";A4X 
Print "(zwischen 3. und 2. MALLCÄ-Bereich !)" 

Print "noch nicht vergebener Speicher hinter HIMEM:";Malloc(-1) 
Print 


HIHEM->|<alloziert >j<MALL0C(-1)> 


{SystemlBASIC|Prog|200KB {Felder 

I_I_ 


Ml|M3|M4|M2!<Frei>| GEH | 


!fRE(0)! 


XBIOS(2)- 


ASX=Malloc(20000) ! 20 Kilobyte (Block 5) allozieren 

Print "Startadresse des 5. HALL(X:-Bereichs (20 KByte):";A5X 
Print "(hinter 2. HALLOC-Bereich I)" 

Print "noch nicht vergebener Speicher hinter HIHEH:";Halloc(-1) 


Print 


' HIHEH->{< alloziert >{< HALLOC > 

■ 1 

' |System{BASICjProg{200KB 

1 1 ■ *1 _ 1 ._ 

Felder!Hl|H3|H4{H2|H5|Frei1 GEH 

• !fRE(0) 

XBI0S(2)- 


■Hfree(AIX) 

■Hfree(A2X) 

■Hfree(A3X) 

■Hfree(A4X) 

■Hfree(A5X) 

Reserve 


Block 1 
Block 2 
Block 3 
Block 4 
Block 5 


freigeben 
freigeben 
frei geben 
frei geben 
frei geben 


BASIC-Speicher restaurieren 


Print "BASIC-Speicher wieder restauriert. HIHEH=";Himeni 


Wenn man dieses Programm ablaufen läßt, könnte man den Eindruck 
bekommen, daß das alles recht unproblematisch läuft. Wenn man die 
Zuteilungen sehr kontrolliert einsetzt, ist es das auch. Es kann aller¬ 
dings auch geschehen, daß - obwohl man weiß, daß noch ein großer 
Block frei sein müßte - MALLOC(-l) trotzdem wesentlich weniger 
Speicherplatz anbietet. 

Der Fall tritt dann ein, wenn nach einem MSHRINK() ein MALLOC- 
Speicher angefordert wird, der größer als der durch MSHRINK() frei¬ 
gemachte Speicher ist. Dieser neue Block wird dann (wenn der Spei¬ 
cher hinter dem höchsten MALLCX^-Block noch ausreicht) nicht auf 
die ggfs, durch MSHRINK() freigemachten Blöcke verteilt, sondern 
hinter den höchsten MALLOC-Block eingerichtet. Danach sind alle 
durch MSHRINKO freigemachten Blöcke nicht mehr zugänglich. 
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Im obigen Beispiel kann man diesen Effekt beobachten, wenn z.B. in 
der 3. MALLOC-Zuteilung nicht 10000 Bytes (genau die Größe zwi¬ 
schen Ml und M2), sondern 11000 Bytes angefordert würden. Der 
Speicher würde anschließend so aussehen; 


HIMEM->j< alloiiert >jMALL0C(-1)j 


SysteinjBASIC|Prog 

200KB 

Felder] Hij X 

H2jM3!Frei| GEH 


FREtO) 

.1* 

gesperrt** 

XBI0S(2)- 


E>er hier mit X gekennzeichnete Bereich wäre nun bis zum nächsten 
Reset gesperrt und könnte auch nicht mehr durch MFREE() freige¬ 
macht werden. Würde man Ml, M2 und M3 durch MFREE() freige¬ 
ben und anschließend durch RESERVE (V3.0) bzw. RESERVE 
XBIOS(2)-16384-HIMEM+FRE(0) (V2.xx) versuchen, den BASIC- 
Speicher komplett zu restaurieren, erhielte man anschließend folgendes 
Bild: 


HIMEM->j j<- MALLOC(-I) ->j 
|SystemiBASIC[Progj< FRE(O) >|Felderi X j<- Frei ->[ GEH j 

I.... I..._ 

gesperrt-' XBI0S(2)-‘ 

Weitere Beispiele hierzu finden Sie in den Beispielprogrammen zur 
AES-Library. 


Version 3.0 

MFREEQ MALLOCO-Spelcher freigeben 

Back=MFREE(Adresse) 

- Implementierung der GEMDOS-Funktion 73 - 

Gibt den durch MALLOC() reservierten Speicher wieder frei. In 
Adresse wird die Startadresse des freizugebenden Bereichs angegeben 
(bei MALLOC()-Aufruf merken). Wurde die Funktion ohne Fehler 
ausgeführt, erhält man als Rückgabe eine Null. 

Andernfalls -40 (ungültige Speicherblockadresse). 

Die Freigabe durch die MFREE() ist auch dann notwendig, wenn mit 
der Funktion Var=EXEC(3,...) ein Programm in den Speicher geladen 
wurde. Da dieses Programm nicht gestartet wird, kann es somit den 
belegten Speicher auch nicht wieder freigeben. Die bei EXEC(3...) in 
Var zurückgegebenen BASEPAGE-Adresse kann dann für MFREE() 
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verwendet werden. Bei Verwendung des Befehls EXEC 3,... ist diese 
Freigabe nicht möglich, da die BASEPAGE-Adresse anschließend 
nicht bekannt ist (siehe Beispiele zu EXEC). 

Beispiele und weitere Informationen finden Sie unter MALLOC() so¬ 
wie in den Beispielprogrammen zur AES-Library. 

Als V2.xx-Funktion: 

BackX=aHfree(Adresse) 

Deffn Hfree(AdrX)=Ge(ndos(73,L:AdrX) 

Diese DEFFN-Funktion ist mit MFREE() absolut identisch. 


Version 3.0 

MSHRINKQ MALLOCO-Speicher einschränken 

Back=MSHRINK(Adre8se,Anz) 

- Implementierung der GEMDOS-Funktion 74 - 

Schränkt einen durch MALLOCO reservierten Speicherblock ein. In 
Adresse wird die Startadresse des zu vermindernden Speicherblocks 
angegeben (bei MALLOCO-Aufruf merken). 

Anz enthält die gewünschte neue Größe des Blocks. Der freiwerden¬ 
den Bereich wird an das System zurückgegeben und kann ggfs, durch 
erneutes MALLOCO wieder zugeteilt werden. Wurde die Funktion 
ohne Fehler ausgeführt, erhält man als Rückgabe eine Null. 

Andernfalls -40 (ungültige Speicherblockadresse) oder -67 
(Speicherblockfehler, wenn Anz größer ist, als der zu reduzierende 
MALLOC()-Block). Beispiele und weitere Informationen finden Sie 
unter MALLOCO sowie in den Beispielprogrammen zur AES-Library. 

Als V2.xx-Funktion: 

BackX=aMsh rink(Adresse,Anzahl> 

Deffn Mshrink(AdrX,SizeX}=Genidos(74,0,L:AdrX,L:SizeX) 


Diese DEFFN-Funktion ist mit MSHRINK() absolut identisch. 
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RESERVE { RESE } BASIC-Arbeitsspeicher festlegen 

RESERVE Anz 

RESERVE [[-]Anz] (-> nur V3.0) 


V2.XX 

Anz gibt die neu einzurichtende Größe des BASIC-Arbeitsspeichers in 
Bytes an. Diese Größe wird intern zum aktuell benötigten 
Arbeitsspeicher hinzuaddiert. Bei Speicher-Verminderung kann der 
oberhalb des BASIC-Speichers enstandene, unbelegte Speicher frei 
verwendet werden (für Resource-Files, Maschinen-Code etc.). Ur¬ 
sprungszustand wieder herstellen: 

Reserve aRmax I Gleiche Wirkung wie RESERVE 
' ! ohne Parameter in V3.0 

Deffn Rinax=Xbios(2)-Himem-16384+Fre(0) 


V3.0 

Ist Anz positiv, gilt hier die V2.xx-Erklärung analog. In V3.0 ist es 
auch möglich, einen Minuswert anzugeben. Mit diesem wird bestimmt, 
um welche Byte-Zahl der BASIC-Speicher am oberen Ende reduziert 
werden soll. Wird RESERVE ohne Parameter verwendet, wird (wenn 
möglich) der Ursprungszustand nach dem V2.xx-Schema (RESERVE 
(3)Rmax) automatisch wieder hergestellt. 

Bei allen RESERVE-Aufrufen sind evtl, mögliche Bereichs-Kollisio¬ 
nen mit dem Gemdos-MALLOC bzw. - in V3.0 - mit der MALLOC- 
Funktion zu beachten. 

Bei einer Verminderung des BASIC-Speichers kann der damit oberhalb 
des BASIC-Speichers enstandene freie Speicherbereich nach Belieben 
verwendet werden (siehe MALLOCO). Befehle wie BMOVE, BLOAD, 
BITBLT oder BGET#, bzw. RC_COPY bieten sich dazu an. Zum an¬ 
deren kann dieser freie Speicher auch zur Unterbringung von RSC- 
Dateien verwendet werden (siehe Beispiele zur AES-Library). Eine ei¬ 
gene Speicherverwaltung birgt sehr viele Vorteile in sich, da eine 
selbst organisierte Datenverwaltung per BMOVE wesentlich schneller 
und vielseitiger ist, als es die reine BASIC-Verwaltung zuläßt. So kann 
man z.B. Strings mit mehr als 32767 Bytes oder auch eine komplette 
Dateiverwaltung mit eigener Datenstruktur dort einrichten. Hier im 
Buch finden Sie eine solche selbstverwaltete Dateiverwaltung im Ka¬ 
pitel 23 über die RAM-Kartei. 
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Wird der BASIC-Speicher vergrößert, ist dabei zu beachten, daß das 
GEM und GEMDOS zur Abwicklung verschiedener Prozesse (Alert- 
Box, Fileselect-Box, DTA etc.) auf einen Speicherbereich direkt un¬ 
terhalb des Bildschirmspeichers (XBIOS(2)) zugreift. 

Das BASIC setzt die obere Grenze des freien BASIC-Speichers bei 
Start automatisch 16384 Byte unterhalb des Video-RAMs. Es wäre also 
möglich, den Speicher bis zum Video-RAM auszuschöpfen (RESERVE 
FRE(0)+16384). In diesem Fall wären HIMEM und XBIOS(2) iden¬ 
tisch. Wird so verfahren, hat das GEM keine Möglichkeit mehr z.B. 
den Hintergrund der FILESELECT-Box zwischenzuspeichern. 

Der Speicher sollte deshalb in der maximalen Größe so gewählt wer¬ 
den, daß unterhalb von XBIOS(2) noch die erwähnten 16384 Bytes für 
das GEM und GEMDOS freigehalten werden. 

Beispiele hierzu finden Sie unter anderem unter MALLOC(), EXEC, 
BMOVE und in der Prozedur Slow unter BYTE{)/CARD{)/LONG{). 


11.4 Zeigeroperationen 


* Varlablen-Polnter 

Var=*Var 

Var=*FeldO 

Wird ein Variablenname Var, bzw. Feld() beliebigen Typs (siehe 
TYPE) auf diese Art als Zeiger gekennzeichnet, wird nicht der Vari¬ 
ableninhalt, sondern die Variablenadresse übergeben. Bei Feldern und 
Strings ist dies der zugehörige Descriptor (-> ARRPTR(X() oder 
ARRPTR X$), bei numerischen Variablen die Adresse, an welcher der 
Variableninhalt zu finden ist. 


Beispiel 1: 


AX=12 I AX mit 12 belegen 

BX=*AX I Pointer auf AX in BX speichern 

*BX=33 I Indirekt AX mit 33 belegen 

Print "Variablenadresse AX (über Pointer): ";*AX 
Print "Variablenadresse AX (über VARPTR) : ";Varptr(AX) 
Print "Variablenadresse AX (in BX) : ";BX 

Print "Variableninhalt AX (direkt) : ";AX 
Print "Variableninhalt AX (indirekt) : ";Lpeek(BX) 
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Beispiel 2: 

Var$="GFA-BASIC" ! String-Variable belegen 

VarX=5 I 4-8yte-Integervariable belegen 

Gosub Proc(*Var$,*VarX) I Proc-Aufruf mit Pointer-Vars 

Print Var$,VarX I Globale Variablen ausgeben 

Procedure Proc(Para1X,Para2X) ! Kopf mit Pointer-Aufnahme 
Local Lvar$,Lvar,LvarX,IX I Lokale Variablen vorbereiten 
For IX=0 To Dpeek(Para1X+4)-1 I String-Länge aus Descriptor 
ZX=Peek(Lpeek(Para1X)+IX) ! Zeichen lesen (mittels 
' I des Descriptors durch PEEK) 

Lvar$=Lvar$+Chr*(ZX) ! Lokalen String bilden 

Next IX I Nächstes Zeichen 

If Type(ParaZX)=0 I Para2X=Realvariable? (siehe TYPEO) 

Bmove Para2X,Varptr(Lvar),6 I 6 Bytes in die lokale 
' I Realvariable übertragen 

•Para1X=String$(3,Lvar»)+" / 2‘"+str$(Lvar)+'' = " 

' I String bilden und zurückgeben 

*Para2X=2'Lvar I Ergebnis berechnen und zurückgeben 

Endif 

If Type(Para2X)=2 

Lpoke Varptr(LvarX),Lpeek(Para2X) ! 6 Bytes in die lokale 
' I Integer-Variable übertragen 

*Para1X=String$(3,Lvar$)+" / 2'''+Str*(LvarX)+" = " 

' I String bilden und zurückgeben 

•Para2X=2‘LvarX I Ergebnis berechnen und zurückgeben 

Endif 
Return 


Das letzte Beispiel zeigt die einzige Möglichkeit in V2.xx, wie man 
eine globale Variable gleichzeitig zur Datenübergabe und Datenrück¬ 
gabe verwenden kann. Dazu muß in jedem Fall der Umweg über die 
Variablenadressen bzw. den String-Descriptor gegangen werden. Die 
TYPE()-Abfrage ist jedoch nur dann nötig, wenn die Prozedur von 
mehreren Stellen aus aufgerufen wird und dabei die Typen der über¬ 
gebenen Pointer variieren können. Da man jedoch in den meisten Fäl¬ 
len weiß, welche Variablentypen auftreten können, kann man die 
entsprechenden lokalen Variablen auch ohne TYPE()-Abfrage vorbe¬ 
reiten und füllen. In Version V3.0 ist bei Übergabe von Parameter- 
Variablen an Prozeduren der VAR-Befehl vorzuziehen. 

Für die Übergabe von Feldern steht in V2.xx eine weitere Variante 
zur Verfügung. Man kann einen Feld-Pointer mit einem prozedur-in¬ 
ternen Feld tauschen (siehe SWAP) und somit auch globale Felder in 
lokale Felder übertragen. Dabei werden die Descriptoren beider Felder 
miteinander vertauscht. Ist die Arbeit in der Prozedur erledigt, werden 
die Felder wieder zurückgetauscht. 
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Beispiel 3; 


DIH String-Feld 1 
Elemente.. 

..belegen 

Aufruf mit Pointer-Übergabe 
3 Strings 

Verändert ausgeben 


Dirn A$(2) 

A$(0)="String 1" 

A*(1)="String 2" 

A$(2)="String 3" 
aXyz(*A$()) 

For I%=0 To 2 
Print A*(I%) ! 

Next 1% 

Procedure Xyz(Feldpointer%) 

Dirn DummyfeldSd) I DIH Feld 2 (nur in V2.xx nötig !!f) 

Swap *Feldpointer%,Dummyfeld$() 1 SWAP-Pointer und Dummy-Feld 
For I%=0 To 2 13 Strings 

Clr X$ ! Zeichenpuffer löschen 

For JX=Len(Duimyfeld$(IX)) Downto 1 ! Rückwärts alle Zeichen 

X$=X$+Hid$CDiJtinyfeld$(I%),JX,1) ! Neu zusammenfügen 
Next JX 


Dummyfeld$(IX)=X$ I Puffer ins Feld übernehmen 

Next IX ! Nächster String 

Swap *FeldpointerX,Dummyfeld$0 ! Felder zurück-"swappen" 
Erase DummyfeldSO ! ERASE Feld 2 (nur in V2.xx nötig !!!) 
Return 


Weitere Beispiele zu dieser Feldvertauschung finden Sie unter GET in 
der Prozedur Menue, unter PUT in der Prozedur Gplane und unter 
SSORT in der Prozedur Sort. 

Sonstige Beispiele zur Verwendung von Pointern finden Sie unter 
DEFMOUSE (Dmouse), RIGHT$(), INSTR(), PSET, CALL, BMOVE, 
GOSUB (Reso) und unter DATA (Pread und Ersetzer). 

Für die Variablen- und Feldübergabe in V3.0 eignet sich dagegen 
VAR. Hiermit ist es möglich, die Variablen und Felder "direkt" zu 
übergeben. Sie sind dann gleichzeitig Übergabe- und Rückgabevaria¬ 
blen. Eine Übernahme der Variableninhalte wie in Beispiel 2 ist hier 
nicht mehr nötig. 


ARRPTR String -/Feld-Descriptoradresse ermitteln 

Var=ARRPTR(Var$) 

Var=ARRPTR(FeldO) 

Liefert die Anfangsadresse des String-, bzw. Feld-Descriptors (siehe 
Erläuterungen in Kapitel 24.2 "Variablenorganisation/-typen") 
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VARPTR Variablen-Adresse ermitteln 

In V3.0: { V:} 

Var=VARPTR(Var) 

Liefert bei numerischen Variablen deren Adresse, bzw. bei String-Va¬ 
riablen die Adresse des ersten Zeichens Var steht für jede beliebige 
Variable (auch Feldelement). In Version V3.0 kann auch V: als Ab¬ 
kürzung verwendet werden (z.B. PRINT V:A$). 

Beispiel: 


A$="BASIC“ I String setzen 

AdrX=Varptr(A$) I String-Adresse holen 

For IX=0 to 5 15 Zeichen 

Print Chr$(Peek(A_dresse*+I*)); ausgeben 
Next IX 
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12. Programmkontrolle 


12.1 Programmstart und -ende 


ÄPNT |CON| Programm (nach STOP-Befehl) forjtS^ii^id 

CONT 

Wurde der Programmlauf mit STOP unterbrochen, kann durch CONT 
im Direktmodus das Programm in der Zeile nach dem STOP-Befehl 
fortgesetzt werden. CONT ist nicht möglich, wenn nach STOP entwe¬ 
der CLEAR verwendet, das Programm-Listing verändert oder neue 
Variablen eingeführt wurden. 

In manchen Fällen kann es notwendig sein, in ON BREAK GOSUB- 
oder ON ERROR GOSUB-Prozeduren CONT einzusetzen. Ob ein 
solcher Fall eintritt, hängt von verschiedenen Umständen ab, die sich 
nicht immer konkret Vorhersagen lassen. Wenn es Ihnen passiert, daß 
das Programm in solchen Prozeduren "hängenbleibt", ist es gut, daß Sie 
von dieser Möglichkeit schon einmal gehört haben. 


EDIT { ED } Programm beenden 

EDIT 

Hat dieselbe Wirkung wie END (siehe dort). EDIT kehrt jedoch ohne 
Vorwarnung direkt zum Editor (Interpreter), bzw. zum Desktop (Com- 
pilat) zurück. 


END Programm beenden 

END 

Bewirkt Abbruch des aktuellen Programms. Variableninhalte/offene 
Dateien bleiben im Interpreter bis zur nächsten Programmänderung 
bzw. bis zum nächsten CLEAR erhalten/geöffnet und können im Di¬ 
rektmodus weiter angesprochen werden. 

Das Programm kann danach nicht durch CONT fortgesetzt werden. Im 
Interpreterbetrieb erscheint eine Programm-Ende-Meldung, nach 
welcher zum Editor zurückgekehrt wird. Compilate kehren ohne 
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Ende-Meldung direkt zum Etesktop bzw. zum aufrufenden Programm 
(siehe EXEC) zurück. 


QUIT { Q } Programmende (Rückkehr zum Dcsktop) 

QUIT 

QUIT[x] (nurV3.0) 

QUIT ist identisch mit SYSTEM und bewirkt, daß das Programm ohne 
jegliche Sicherheitsabfrage zum Desktop, bzw. (evtl, bei Compilaten) 
zum Aufrufer (EXEC) zurückkehrt. 

ln Version V3.0 kann in x ein 16-Bit-Wert angegeben werden, der an 
das aufrufende Programm (über DO) zurückgegeben und dann dort 
ausgewertet werden kann (siehe EXEC als Funktion). 

Allgemeine Konvention: 

x=0 Programm wurde korrekt - ohne Error -verlaasen. 

x>0 BASIC- oder Bombenfehler aufgetreten (ERR = 0 bis 109). 

x<0 GBMDOS-, BIOS- oder XBIOS-Fehler aufgetreten (ERR= -1 bis -67). 

Tritt ein TOS-, Bomben- oder BASIC-Fehler ein, könnte ggfs. QUIT 
ERR in einer Fehler-Abfangroutine (siehe ON ERROR GOSUB) als 
Programmende eingesetzt werden. So "weiß" ggfs, das aufrufende Pro¬ 
gramm, aus welchen Gründen das von ihm aufgerufene Programm 
beendet wurde. 


RUN { RU } Programm starten 

RUN 

RUN “Programmname" 

Startet das aktuelle Programm neu. Dabei 
und der Bildschirm gelöscht. RUN kann 
wendet werden. 

In Version V3.0 kann ein Programmname angegeben werden. Das an¬ 
gegebene Programm wird geladen und automatisch gestartet (vgl. 
CHAIN). 

Manchmal ist es störend, daß beim Programmstart der Bildschirm ge¬ 
löscht wird. Die beiden folgenden Prozeduren ermöglichen es, dieses 
CLS nach Belieben an- bzw. auszuschalten. 


(nurV3.0) 

werden sämtliche Variablen 
auch im Direktmodus ver- 
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Procedure Clx(FlgX) I 

Local A$,FtxlX 

A$=SpaceS(10000) I 

Bmove Basepage+260,Varptr(A$),10000 I 
If FlgX^O I 

FndX=lnstr(A$,Chr»(27)+"E") I 

If Fnc«>0 I 

Poke Basepage+260+FndX,Asc("H") I 
Endlf 

Else I 

FndX=Instr(A*,Chr$(27)+"H") I 

If FndX>0 I 

Poke Basepage+260+FndX,Asc("E") f 
Endif 
Etxlif 
Return 


Für V2.XX 

10 KByte-Puffer 
10 KByte in Puffer 
CLS löschen? 
Escape-Sequenz suchen 
Sequenz gefunden? 

"H" schreiben 

CLS anschalten? 
Escape-Sequenz suchen 
Sequenz gefunden? 

"E" schreiben 


Da es mehrere V2.xx-Versionen gibt, kann die ausschlaggebende 
Escape-Sequenz an verschiedenen Stellen liegen. Deshalb wird sie in 
der ersten Prozedur zuerst gesucht und dann an der gefundenen Posi¬ 
tion verändert. 


In V3.0 liegt die Sequenz 7443 Bytes hinter der Basepage. Dadurch 
vereinfacht sich das Verfahren in V3.0 natürlich. 

Procedura Clx(FlgX) I Für V3.0 

If FlgX=0 I CLS löschen? 

Poke Basepagc+7443,Asc(''H") 

Else I CLS anschalten? 

Poke Basepage+7443,Asc(''E'') 

Endif 

Return 


Wer grundsätzlich das Anfangs-CLS unterdrücken will, kann auch di¬ 
rekt den Interpreter, den Run-Only-Interpreter bzw. ein GFA-Com- 
pilat auf Diskette "patchen". 


Open "U",#1,"GFABASIC.PRG" 

• Open •■U",#1,''GFABASRO.PRG" 

• Open "U",#1,"BELIEBIG.PRG" 

t 

Seek #1,31 
Out #1,Asc("H") 

■ Out #1,Asc{"E") 

CIose #1 


I Für Interpreter 
I Für Run-Only-Interpreter 
I Für GFA-Conpilate 
I (Progrannnainen angeben) 

I File-Pointer auf Byte 31 
I Anfangs-CLS aus 
I Anfangs-CLS an 
I Datei schließen 


Wer seine Programme mit dem Run-Only-Interpreter betreiben (las¬ 
sen) will, kann ein Programm ohne FILESELECT-Auswahl direkt 
durch das GFABASRO.PRG starten lassen. Dazu wird ab Byte 32 des 
Run-Only-Interpreters ein max. 63 Zeichen langer Programmname 
(ggfs. inkl. Pfad) abgelegt. Sobald der Interpreter gestartet wird, lädt 
er das angegebene Programm-File und startet es selbsttätig. 
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Open "U",#1,"GFABASRO.PRG" 

Seek #1,32 ! File-Pointer auf Byte 32 

Print #1,"Progname.BAS";Chr$(0); I Für V2.xx —. Name 
' Print #1,"Progname.GFA";Chr$(0); ! Für V3.0 —' eintragen 

Close #1 I Datei schließen 

Achten Sie darauf, daß der Programmname mit einem Null-Byte (C- 
Konvention) abgeschlossen wird. Wird nur ein Null-Byte übergeben, 
wird der normale Auswahlmodus wieder initialisiert. 


STOP { ST } Programm unterbrechen 

STOP 

Mit STOP kann der Programmlauf an jeder Stelle unterbrochen wer¬ 
den. Es erscheint eine ALERT-Box, durch die man das Programm 
fortsetzen kann oder in den Direktmodus gelangt. 


Da keine Variablen gelöscht und keine Dateien geschlossen werden, 
kann aus dem Direktmodus heraus durch Eingabe einzelner Befehls¬ 
zeilen schrittweise gearbeitet werden und anschließend das Programm 
ggfs, durch Eingabe von CONT im Direktmodus fortgesetzt werden 
(siehe CONT). Es kann auch zum Editor gewechselt werden. Solange 
dort keine Zeilen verändert werden, kann auch dann nach Rückkehr 
zur Direkt-Eingabeebene durch CONT das Programm wieder aufge¬ 
nommen werden. 


Beispiel: 


Do I 

Inc Aa I 

If Aa>100 I 

Clr Aa I 

stop I 

Endif 

Print Aa" I 

Loop 


Endlos-Schleife 
Irgendeine Zählvariable +1 
Variable größer 100? 
Variable löschen 
Programmstop 

Wert ausgeben 


SYSTEM iSYS} Programmende (Interpreter verlassen) 

SYSTEM 

SYSTEM [x] (nurVa.O) 

Ist identisch mit QUIT (siehe Erläuterungen dort). 
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12.2 Löschfunktionen 


CLEAR{Cle} Felder und Variablen löschen 

CLEAR 

Alle numerischen Variablen erhalten den Wert 0, alle String-Variablen 
werden zu Leer-Strings. Felder werden gelöscht und ihre Dimensio¬ 
nierung aufgehoben. CLEAR darf nicht in Prozeduren oder 
FOR/NEXT-Schleifen verwendet werden. Bei Programmstart wird 
CLEAR automatisch ausgeführt. 


CLR Einzelvariablen löschen 

CLR Var [,Var%,Var$,...] 

Es kann eine Liste von Variablen (keine Feldvariablen) übergeben 
werden, deren Inhalte gelöscht werden sollen, z.B.: 

Clr A»,BX,C,D! 

entspricht: 

A$=MII BX=0 C=0 Dl=0 


CLS Bildschirm löschen 

CLS [#Kanal] 

Löscht den Ausgabebildschirm, bzw. das jeweils geöffnete GEM-Fen- 
ster und setzt den Cursor auf Home (linke obere Ecke). Im Falle, daß 
durch die Option Kanal CLS in eine Diskettendatei geschrieben wird, 
wird beim Lesen dieser Datei der Bildschirm gelöscht, sobald der Le¬ 
sezeiger auf CLS trifft. 


NEW Programmspeicher löschen 

NEW 

Löscht den BASIC-Arbeitsspeicher mitsamt dem Programm und seinen 
Variabien. Der Speicher ist für neue Anwendungen frei. 



398 


Das große GFA-BASIC-Buch 


12.3 Zeitoperationen 

DATE$ Systemdatum ermittln 

Var$=DATES 

DATES='Datum-String* (nur V3.0) 

DATES ist eine reservierte String-Variable, die dieses aktuelle 
Systemdatum als Text-String im Format DD.MM.YYYY (D = Tag/M = 
Monat/Y = Jahr) enthält. In V3.0 ist es möglich, DATES ein neues 
Datum in "Datum-String" zuzuweisen. Das Format dieses Strings ist 
unter SETTIME beschrieben. 

Wie Sie sicher wissen, kann im Kontrollfeld des Desktops das aktuelle 
Datum eingegeben werden. Diese Angabe wird systemintern ständig 
auf den aktuellen Stand gebracht. Haben Sie selber keine Veränderun¬ 
gen an dieser Einstellungen vorgenommen (siehe SETTIME), so erhal¬ 
ten Sie immer das jeweilige TOS-Versionsdatum. 

Ein Beispiel zu DATES finden Sie ebenfalls unter SETTIME. 

Version 3.0 

DELAY { DELA } l/lSek.-Wartefunktion 

DELAY Sekunden 

Sekunden bestimmt, wieviel Sekunden das Programm pausieren soll 
(sonst siehe PAUSE). 

PAUSE { PA } l/50Sek.-Wartefunktion 

PAUSE Dauer 

Dauer bestimmt in SOstel Sekunden, wie lange das Programm pausie¬ 
ren soll. In dieser Zeit ist ausschließlich die Break-Funktion aktiv. 

Andere Aktivitäten (ON ERROR GOSUB, ON MENU xxxx GOSUB, 
EVERY/AFTER GOSUB etc.) werden für die angegebene Dauer ein¬ 
gestellt. 

Das Problem der 16-Bit-Computer (der 32-Bit-Computer erst recht) 
ist nicht mehr, daß sie so langsam sind und dadurch zwangsläufig 
Pausen schaffen, sondern daß sie so schnell sind, daß man ihnen 



Programmkontrolle 


399 


manchmal eine kleine Verschnaufpause auf zwingen muß, um be¬ 
stimmte Programmläufe überhaupt noch kontrollieren zu können. In 
einigen Programmen finden Sie den Begriff "kleine Klickpause". Er 
kennzeichnet, was gemeint ist. 

Stellen Sie sich vor. Sie lassen eine Schleife mit der Abbruchbedingung 
EXIT IF MOUSEK=l enden und ein daran anschließender Block wird 
nur betreten, IF MOUSEK=l ist. Selbst wenn dazwischen noch weitere 
Zeilen liegen, ist der Computer so schnell, daß der Mausklick zum 
Verlassen der Schleife gleichzeitig als Bedingungs-Erfüllung für den 
Eintritt in den IF MOUSEK=l-Block gewertet wird. Damit der Be¬ 
nutzer des Programms in solchen Fällen Zeit hat, die Maustaste wieder 
loszulassen, legt man zwischen die beiden Bedingungen eine kleine 
Pause (z.B. PAUSE 5), die dann im Pogrammverlauf von einem "Un¬ 
wissenden" gar nicht bemerkt wird. 


SETTIME ilETTf Uhrzeit und Datum einstellen 

SETTIME Zeit$,Datums 

In ZeitS und DatumS wird die neue Systemzeit und das neue System¬ 
datum bestimmt. Es müssen beide Strings übergeben werden. 

Europa-Format : 

ZeitS = ''hh:nin:ss“ oder ''hhmnss*' 

Datiirtt • "dd.nm.yyyy*' oder "dd.nrn.yy" 

USA-Format (nur in V3.0 - siehe MODE): 

ZeitS = "hh:inii:ss" oder "hhinmss" (wie oben) 

DatunS = "nm/dd/yyyy" oder "mm/dd/yy" 

Die Jahresangabe kann auch zweistellig erfolgen (z.B. 86 für 1986), 
falls es sich um eine Angabe zwischen 1980 und 2079 handelt. Bei der 
Zeitangabe können die Sekunden (ggfs. inkl. Doppelpunkt) weggelas¬ 
sen werden. Die Sekunden werden dann auf Null gesetzt, z.B.: 

SETTIME "15:37", => Veräixlert nur die Uhrzeit 

SETTIME "15:37:22","15.07.88" => Verändert beide Einträge 
SETTIME "","15.07.1988" => Verändert nur das Datum 

Wird das Format nicht korrekt eingehalten, werden die Angaben 
ignoriert und der alte Inhalt unverändert beibehalten. Die Sekunden 
der Zeitangabe werden übrigens nur in Zweierschritten (0, 2, 4, 6 etc.) 
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übernommen, ungerade Angaben werden auf die nächsthöhere gerade 
Zahl "gerundet". 

Beispiel: 

Im Lauf des Buches habe ich mir angewöhnt, "mundgerechte" Beispiele 
zu liefern. In diesem Sinne: eine Uhrzeit-/Datum-Aus- und Eingabe- 
Routine. 

Hierzu ist nicht viel zu erklären. Es wird nur eine Cursor-Position 
übergeben, an welcher der/die Strings ausgegeben werden sollen. Ein 
Flag bestimmt darüber, ob nur der Uhrzeit-String oder zusätzlich auch 
der Datum-String angezeigt werden soll. Beide Strings können mit der 
Maus angeklickt werden und erwarten dann die Eingabe eines neuen 
Datum- bzw. Uhrzeit-Strings. Der Cursor kann durch die beiden Ho- 
rizontal-Pfeiltasten (<-/->) gesteuert werden. Nach Eingabe eines 
neuen Strings wird die Eingabe durch <Return> oder <Esc> verlassen. 
Durch <Esc> wird die neue Eingabe ignoriert und der alte String wie¬ 
der restauriert.Der/die Strings werden nur einmal bei Aufruf darge¬ 
stellt. Die Routine kehrt also sofort wieder zum Programm zurück. Die 
Routine bleibt nur dann in der Eingabeschleife "hängen", wenn zum 
Zeitpunkt der Anzeige der Zeit- bzw. der Datum-String angeklickt 
wurde. Der Hintergrund wird nicht automatisch restauriert, dies ist 
also Ihre Sache. 


Da die Eingabe in V2.xx sich als sehr schwierig erwies (drei getrennte 
Eingabebereiche zu je 2 Zeichen mit Vorgabe und Overwrite), mußte 
ich eine eigene Eingaberoutine schreiben, die sich auch zu anderen 
Zwecken weiterentwickeln läßt. So erhalten Sie unter SETTIME noch 
eine kleine Einführung in die Cursor-Steuerung und Einzelzeichen- 
Ein/Ausgabe. 


Box 66,138,141,181 
BOX 69,141,138,178 
Box 70,142,137,177 
Do 

aTimdat(10,10,1) 

Loop 

Procedure Timdat(XX,YX,FlgX) 

Für Hires/Midres/Lowres und alle Versionen ab V2.0 


I.. Kleinen Rahmen 

I zeichnen (sieht 

I.' ein biBchen netter aus!) 

I Endlos'Schleife 

I Aufruf (mit Anderungsmöglichkeit) 


XX = Cursor-Spalte, in der die Strings beginnen sollen 

YX = Cursor-Zeile der Anzeige. Der Datun-String wird 

ggfs, inmer direkt unter der Zeit ausgegeben. 

FlgX = Flag 

0 = Nur Zeit-String anzeigen 

1 = Auch Datun-String anzeigen 

2 = Wie 0, jedoch ohne Änderungsmöglichkeit 

3 = Wie 1, jedoch ohne Änderungsmöglichkeit 
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Local YtX.JX I Lokale Variablen 

YtX=Min(2,3-Xbios{A)) I Y-Auf lösungsteiler 
Print Chr$(27);"j‘';At(XX,YX);Chr*(27);"p''; 

' Cursor-Position speichern, Cursor positionieren und 
' Revers-Text einschalten 


For JX=1 To 8 18 TIMES-Zeichen 

Out 5,Asc(Mid»(Time$,JX,1))+32»{Mid$(Time$,JX,1 )<>•':") 

' Im VID:-Modus ausgeben. Die Zahlen werden dabei in den 
• Digital-ASCII konvertiert. 

Next JX 

If FlgX=1 or FlgXs3 I Datum auch anzeigen? 

Print AtlXXiYX-«-!); I Cursor positionieren 
For JX=1 To 10 I 10 DATES-Zeichen 


If JX<7 Or JX>8 I Die 19 der Jahreszahl auslassen 
Out 5,Asc(Mid$(Date$,JX,1))+32*(Hid$(0ate$,JX,1 )<>■'.") 
Endif I Ausgeben 

Next JX 


Endif 

Print Chr*(27);"q''; I Revers-Text aus 

If FlgX<2 I Änderung zugelassen 

If Housek I Maustaste gedrückt? 

If Mousex>XX*8-8 And Mousex<(XX+8)*8-8 

■ I X-Maus auf TIME-String? 

If Mousey>(YX*16/YtX-16/YtX) And Housey<YX*(16/YtX) 

■ I Y-Maus auf TIME-String? 

aEingabe(XX,YX,TinieS,*Zeit$) I Dann zur Zeit-Eingabe 
Settime ZeitS,"" I Neue Zeit setzen 

Else I Y-Maus nicht auf TIME-Stringl 

If FlgX^I or FlgX=3 I DATE-String ist angezeigt? 

If Mousey>(YX*16/YtX+1) And Mousey<YX*(16/YtX)+16/YtX 
■ I Y-Maus auf DATE-String? 

aEing8be(XX,YX+1,Date*,*Datun<S) 1 Zur Datum-Eingabe 
Settime "".Datums I Neues Datum setzen 
Endif 
Endif 
Endif 
Endif 
Endif 
Endif 

Print ChrS(27);"k"; I Cursor auf gespeicherte Position 
Return 

Procedure Eingabe(XpX,YpX,Dz$,PtrX) I Unterprozedur zu Timdat 
Local IX,KeyX,CntX,Dz2$ 

Dirn CpX(8) I ASCII-Wert-Puffer für Einzelzeichen 

Dz2$=DzS I Restore-String puffern 

DzS=Left$(Dz$,6)+RightS(Dz$,2) ! Ggfs, bei DATES die 
' I 19 aus der Jahreszahl auslassen 

Print At(XpX,YpX); I Cursor positionieren 

For IX=1 To 8 18 Zeichen 

CpX(IX-1}=Asc(MidS(DzS,IX,1)} I ASCIIs puffern 
If IX<>3 And IX<>6 I Ziffernposition? 

Poke Varptr(DzS)+IX-1,(CpX(IX-1)-32) I Dann ASCII 
' I auf Digital-Zeichen reduzieren 

Out 5|CpX(IX-1>-32 I und ausgeben 

Else I Trennzeichenposition (: oder .) I 

Out S,CpX(IX-1) I Trennzeichen ausgeben 

Endif 

Next IX I Nächste String-Position 

Print At(XpX,YpX);ChrS(27);"e"; I Cursor neu positionieren 
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' I und anschalten 

Repeat ! Eingabe-Schleife 

KeyX=Inp(2) ! Auf <Taste> warten 

If Key*=>Asc("0") And ICeyX<=Asc("9'') ! Zifferntaste? 


Out 5,KeyX-32 I 

CpX(CntX)=KeyX I 

1nc CntX I 

If CntX=8 I 

Dec CntX I 

Print Chr$(27);''D''; 
Endif 

If CntX=2 Or CntX=5 
Inc CntX 

Print Chr${27);“C"; 
Endif 
Endif 

If KeyX=203 And CntX>0 

I 

Print Chr${27);"D«; 
Dec CntX 

If CntX=2 Or CntX=5 
Print Chr$(27);"D'‘; 
Dec CntX 
Endi f 
Endif 

If KeyX=205 And CntX>8 


Digital-Ziffer ausgeben 
ASCII-Puffer aktualisieren 
Positionszählcr +1 
Auf letzter Position? 

Zähler wieder -1 
I Cursor ein Zeichen zurück 


If CntX<7 

Print Chr$(27);"C"; 
Inc CntX 

If CntX=2 Or CntX=5 
Print Chr$(27);“C''; 
Inc CntX 


I Cursor auf Trennzeichen? 

I Zähler nochmal +1 
I Cursor ein Zeichen weiter 


Pfeiltaste links gedrückt 
und Cursor noch im String? 
Cursor ein Zeichen zurück 
Positionszähler +1 
Cursor auf Trennzeichen? 

Cursor noch ein Zeichen zurück 
Positionszähler nochmal -1 


I Pfeiltaste rechts gedrückt 
I urxJ Cursor noch im String? 

I Cursor nicht auf letzter Position? 
I Cursor ein Zeichen vorwärts 
I Positionszähler +1 
I Cursor auf Trennzeichen? 

ICursor noch ein Zeichen weiter 
I Positionszähler nochmal +1 


Endif 

Endif 

Endif 

Until KeyX=13 Or KeyX=27 
If KeyX=13 
Clr DzS 
For IX=0 To 7 
Dz$=DzS+Chr$(CpX(IX)) 
Next IX 
*PtrX=Dz$ 

Else 

*PtrX=Dz2$ 

Endi f 

Erase CpX() 

Print Chr$(27);''f"; 

Return 


I Exit, wenn <Return> oder <Esc> 
I <Return> gedrückt? 

I Alten String löschen 
I 8 Zeichen 
I Neu zusanmenbinden 
I Nächstes Zeichen 
I Neuen String zurückgeben 
I <Esc> gedrückt I 
I Restore-String zurückgeben 

I ASCII-Pufferfeld löschen 
I Cursor wieder ausschalten 
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TIMES System-Uhrzeit ermitteln 

Var$=TIME$ 

TI ME$="Zeit-String* (nurV3.0) 

TIMES ist eine reservierte String-Variable, die die aktuelle Uhrzeit als 
Text-String im Format hhtmmiss (h = Stunde/m = Minute/s = Se¬ 
kunde) enthält. In V3.0 ist es möglich, TIMES eine neue Uhrzeit in 
Zeit-String zuzuweisen. Das Format dieses Strings ist unter SETTIME 
beschrieben. Die Sekunden der Zeitangabe werden übrigens in Zwei¬ 
erschritten erhöht. 

Wie Sie sicher wissen, kann im Kontrollfeld des Desktops die aktuelle 
Tageszeit eingegeben werden. Diese Angabe wird systemintern ständig 
auf den aktuellen Stand gebracht. Haben Sie selber keine Veränderun¬ 
gen an dieser Einstellungen vorgenommen (siehe SETTIME), so gilt 
der Systemstart als 00:00:00 und Sie erhalten durch TIMES die seit 
Systemstart vertriebene Zeit. 

Im GFA-Editor der V3.0 ist dies die Zeitangabe, die Sie rechts oben 
auf dem Bildschirm sehen. Für Dauer-Computerer (wie mich) wäre es 
übrigens sicher angebracht gewesen, zusätzlich noch eine Weck-Zeit- 
Eingabe zu installieren, damit man nicht das Schlafengehen "ver¬ 
schläft". Bei mir müßte dann allerdings nach Erreichen der Weckzeit 
eine "Absturz-Zeitbombe" eingebaut werden, da ich bis jetzt jedes 
gesetzte Zeitlimit um Längen geschlagen habe. 

Ein Beispiel zu TIMES finden Sie ebenfalls unter SETTIME. 


TIMER Laufzeit ermitteln 

Var=TIMER 

Reservierte Variable. Enthält die seit Systemstart verstrichene Zeit in 
200stel Sekunden. 

Der ST verfügt über einen Zeit-Zähler, der alle l/200stel Sekunden 
Sekunden um 1 erhöht wird. Dieser Zähler beginnt zum Zeitpunkt des 
Systemstarts bei Null und erhöht sich also in jeder Sekunde um den 
Wert 200. Dabei ist es unerheblich, ob zwischenzeitlich irgendwelche 
Anwendungen ausgeführt werden. Der Zähler orientiert sich an dem 
konstant bleibenden Takt des Prozessors. D.h. also, daß Sie anhand 
dieses Zählers exakt feststellen können, wieviel Zeit seit dem Sy¬ 
stemstart vergangen ist. Das heißt, wenn er nicht zwischenzeitlich 
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durch SLPOKE &H4BA,Timerwert verändert wurde. Außerdem läßt 
sich dieser TIMER hervorragend dazu verwenden, von einer be¬ 
stimmten Zeitdauer abhängige Arbeiten ausführen zu lassen oder die 
Zeitdauer bestimmter Prozesse zu messen (Benchmark-Tests). 

Beispiel 1 (Zeitanzeige): 

Timc=Timer ! Timer puffern 

Oo ( Endlos-Schleife 

X5l=(Timer-Time)/200 I Differenz in Sekunden 
Print At(10,10);Right$(String$(3,“0")+Str${XX),3);'' Sek." 

Loop 

Beispiel 2 (Zeitmessung): 


Time=Timer 

Print "20000er Integer-FOR..NEXT-Leerschleife: "; 

For IX=0 To 20000 
Next IX 

Print (Timer-Time)/200;" Sek." 

Tiine=Timer 

Print "20000er Real-FOR..NEXT-Leerschleife: "; 

For 1=0 To 20000 
Next I 

Print (Timer-Time)/200;" Sek." 

TimesTimer 

Print "20000er Integer-REPEAT..UMTIL-Leerschleife: "; 
Clr IX 
Repeat 
Inc IX 

Until IX=20000 

Print {Timer-Time)/200;" Sek." 

Time=Timer 

Print "20000er Integer-00..LOOP-Leerschleife: "; 

Clr IX 
Do 

Inc IX 

Exit if IX=20000 
Loop 

Print (Timer-Tiine)/200;" Sek." 


Beispiel 3 (Quasi-Multitasking): 


Print "Bitte <Tasten> drücken" 

Graphmode 3 I XOR-Modus für Auf/Zu-Box 

Do 


KeyS=Inkey$ 

If KeyS>"" 
Print KeyS; 


I Tatstatur abfragen 
I Taste gedrückt? 

I Zeichen ausgeben 


Endif 

If Timer Mod 100=0 I Jede 1/2 Sekunde 

For IX=10 To 100 Step 6 I .. 

Box 110-IX,110-IX,120+IX,120+IX | Parallel- 

Next IX - ProzeB 

For IX=100 To 10 Step -6 j laufen lassen 
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Box 110-IX,110-IX,120+IX,120+IX | 

Next IX I.• 

Endif 

Loop 


12.4 Fehlerbehandlung 

ERR Fehler-Code ermitteln 

Var=ERR 

ERR ist eine reservierte Variable, die nach Auftreten eines Fehlers 
seine Identifikationsnummer enthält. Siehe 24.12 "GFA-BASIC-Feh- 
lerliste". 

Ein Beispiel finden Sie unter FATAL. 


Version 3.0 

ERR$ Fehlertext liefern 

Var$=ERR$(lndex) 

Die Funktion ERR$ liefert in V3.0 den Text der Fehlermeldung, de¬ 
ren Fehlerindex angegeben wurde (siehe 24.12 "GFA-BASIC-Fehlerli- 
ste"). Dieser Text ist im Format [Icon][Boxtext][Buttontext] und kann 
direkt an FORM_ALERT() übergeben werden. 

Ein Beispiel finden Sie unter FATAL. 


ERROR { ERR } Fehler simulieren 

in V3.0: { ER } 

ERROR Fehlernummer 

Fehlernummer steht für die Identifikationsnummer des zu simulieren¬ 
den Fehlers (siehe 24.12 "GFA-BASIC-Fehlerliste"). 

Es wird entweder die entsprechende Fehlermeldung ausgegeben und 
das Programm beendet, oder es wird - wenn ON ERROR GOSUB ak¬ 
tiv ist - zu der dort angegebenen Prozedur verzweigt. 
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FATAL Fehlerart ermitteln 

Var=FATAL 

Reservierte Variable. Es wird eine Unterscheidung zwischen "Normal"- 
und "Bomben"-Fehlern getroffen. Ist ein "Bomben-Fehler" aufgetreten 
(Adresse des zuletzt ausgeführten BASIC-Befehls ist nicht mehr be¬ 
kannt) enthält sie eine -1. Bei allen anderen Fehlern enthält sie eine 0. 


0 Allgemeiner BASIC-Fehler. Die Variablen- und Label-Adressen, 
sowie der GOSUB-Stapel sind intakt. 


-1 Fataler Systemfehler. Die Adressenlage ist zerstört, was norma¬ 
lerweise eine bombigen Absturz zur Folge hat. In GFA-BASIC 
werden diese Fehler ebenfalls abgefangen, da das System bei den 
"normalen" Bomben-Errors die Registerinhalte in einen beson¬ 
deren Bereich rettet, der - falls kein Total-Absturz (80 Bomben) 
eingetreten ist - zur Re-Initialisierung wieder ausgelesen werden 
kann. Dieser Rettungspuffer hat folgenden Aufbau; 


Ab Adresse: 
$0380 (896) 
$0384 (900) 
$03A4 (932) 
$03C0 (960) 
$0304 (964) 
$0308 (968) 
$0300 (972) 


Sind die geretteten Daten gültig, steht hier Longword 306419896. 
Die alten Datenregister (DO - D7) (8 Longwords). 

Die alten Adreßregister (AO - A6) (7 Longwords). 

Alter Super-Stack-Pointer (1 Longword). 

Error-Index (Bomben-Anaahl) (1 Byte). 

Altes Register A7 (User-Stack-Pointer) (1 Longword). 

16 alte Sup>er-Stack-Worde (? Longwords/? Words). 


Für Interressierte läßt sich dieses Wissen natürlich prächtig dazu 
mißbrauchen, dem BASIC ab und zu über die Schulter zu schauen. 


Allerdings habe ich den Eindruck, daß man sich auf FATAL nicht 
unbedingt verlassen kann. So führt ein DPOKE 11111,1 (ungerade 
DPOKE-Adresse) im Direktmodus zu FATAL = -1. Im Programm 
selbst konnte ich dagegen nur über den Error-Index ERR feststellen, 
ob eine Bombenfehler aufgetreten ist. FATAL lieferte in der Abfang- 
Routine grundsätzlich den Wert 0. Daß trotzdem ein fataler Error auf¬ 
getreten ist, läßt sich daran erkennen, daß das System die Register 
gerettet hat. 


Beispiel: 


On error gosub Fehler I Abfangroutine angeben 
Poke 0,1 1 2 Bomben: POKE im Supervisor-Bereich 

Labell: ! Hier weitermachen | 

Dpoke 11111,1 13 Bomben: Ungerade DPOKE-Adresse >..i 
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Label2: I Hier weitermachen 

Monitor I 4 Bomben; Monitor ohne Masch.-Progr.>- 

Label3: I Hier weitermachen 

Print Sqr(-IOO) I Error: Minus-Wurzel >.-.. 

Print 0/0 I Error: Division durch Null >---. j 

Print "Progranm geht ab hier weiter!“ | | 

Procedure Fehler I <.<.- 

Print "ERR : “;Err" I ERR ausgeben 
' ■Form_alert(i,Err$)l Für V3.0 

' In V3.0 kann durch ERR$ der Original-Fehlertext 
' an FORM_ALERT{) übergeben, oder anderweitig verwendet 

' werden. 

If Err>101 I Bomben-Fehler? 

Print "Fatal-Error" 

Print "Inhalt von DO bis 07 :" 

For IX=0 To 7 18 Datenregister... 

Print Left$(Str${Lpeek(900+IX*4))+String$(8,32),8); 

Next IX I ...ausgeben 

Print Chr$(10);Chr$(13);String*{60,"-") 

Print "Inhalt von AO bis A6 :" 

For IX=0 To 6 17 Adreßregister... 

Print Left$(Strt(Lpeek(932+IX*4))+String*(8,32),8); 

Next IX I ...ausgeben 

Print Chr$(10);Chr$(13);String*(60,"=") 

On error gosub Fehler I Abfangroutine neu angeben 
If Err=102 ! 2-Bomben-Fehler? | 

Resume Labeil I Dann zum Labell .' 

Endif 

If Err=103 I 3-Bomben-Fehler7 j 

Resime Label2 I Dann zun Label2.' 

Endif 

If Err=104 I 4-Bomben-Fehler7 | 

Resune Label3 I Dann zun Label3.' 

Endif 

Else I Normaler Error! 

On error gosub Fehler ! Abfangroutine neu angeben 
Print "Normal-Error!" 

Resune Next ! Mit der nächsten Zeile weiter .. 

Endif 

Return 


ON ERROR [GOSUB] Verzweigung bei Fehler 

ON ERROR GOSUB Prozedur 
ON ERROR 

Verzweigt im ersten Fall zur der angegebenen Prozedur, sobald ein 
System- oder BASIC-Fehler auftritt. In diesem Fall wird keine Feh¬ 
lermeldung ausgegeben, sondern das Error-Handling wird dem Pro¬ 
grammierer überlassen. So ist es möglich, anhand der Fehlernummer 
ERR (und in V3.0: ERR$) eigene Fehlermeldungen auszugeben oder 
das Programm - Ihren Vorstellungen und des aktuellen Errors ent¬ 
sprechend - weiterverzweigen oder einfach fortfahren zu lassen (siehe 
RESUME). 
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Wurde zu einer Fehler-Routine verzweigt, schaltet der Interpreter die 
Fehlerbehandlung nach Abarbeiten der Prozedur wieder in den Nor- 
malmodus zurück. Soll also wieder ON ERROR GOSUB aktiviert wer¬ 
den, so muß in der Abfangroutine vor dem RESUME-Sprung erneut 
eine/die Fehlerroutine angegeben werden. 

Die zweite Syntaxvariante schaltet den normalen Error-Modus wieder 
ein. Es erscheint bei Errors also wieder die übliche Fehlermeldung (in 
Compilaten entsprechende OPTION einsetzen!) und das Programm 
wird daran anschließend abgebrochen. 

In V3.0 kann der Befehlsteil GOSUB weggelassen werden. Er wird 
vom Editor selbstständig eingefügt. Beispiel unter FATAL. 


RESUME { RESU } Programm nach Error-Routine fortsetzen 

RESUME = > Nach Error-Routine Programmfortsetzung 
mit Wiederhoiung der fehlerhaften Zeile 
RESUME NEXT = > Nach Error-Routine Programmfortsetzung 
mit der Zeile, die der fehlerhaften Zelle folgt. 

RESUME Label = > Nach Error-Routine Programmfortsetzung 
mit der angegebenen Label-Zeile. 

Bestimmmt, mit welcher Programmzeile das Programm nach Auftreten 
eines selbst verwalteten Fehlers (siehe ON ERROR GOSUB) fortge¬ 
setzt werden soll. RESUME ist nur innerhalb von Prozeduren zulässig. 
Sinnvollerweise wäre das eine Fehlerbehandlungsroutine, aber es ist 
auch möglich, RESUME Label als GOTO-Sprung aus einer Prozedur 
heraus zu mißbrauchen. GOTO selbst ist ja aus Prozeduren heraus 
nicht erlaubt, z.B.: 

Label: I Sprung-Label 

Print 111 ! PRINT irgendwas 

SRoutine I Routine aufrufen 

Procedure Routine 

Resume Label I Sprung zum Label 

Return 


Befindet sich bei der Label-Variante das angegebene Label außerhalb 
der Routine, in welcher das RESUME Label steht, wird grundsätzlich 
der GOSUB-Sprungstapel gelöscht und alle globalen Variablen restau¬ 
riert. 

Nach FATAL-Errors (siehe FATAL) ist ausschließlich RESUME La¬ 
bel zu verwenden. RESUME NEXT und RESUME könnten in diesem 
Fall evtl, zum Absturz führen. 
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Ein Beispiel finden Sie unter FATAL. 


12.5 Auskünfte 


BASEPAGE Aktuelle Basepage-Adresse liefern 

Var=BASEPAGE 

Jedem compilierten oder assemblierten Programm, das vom Desktop 
aus oder durch EXEC gestartet wird, wird vom Betriebssystem ein 
Basis-Informations-Block (Basepage) von 256 Byte zugewiesen, in 
welchem in den ersten 128 Byte grundlegende Daten zum Betrieb die¬ 
ses Programms eingetragen werden. 

Die übrigen 128 Byte können auf verschiedene Arten verwendet wer¬ 
den. Z.B. wird hier (falls vorhanden) die Kommando-Zeile des Pro¬ 
gramms abgelegt, oder es kann hier der Disk-Transfer-Buffer (siehe 
FSETDTAO) eingerichtet werden. 

Im Interpreter-Betrieb ist dies die Basepage des Interpreters. 

Offsets (BASEPAGE+’x’): 

■fO Zeiger auf TPA-Start (Tranaient-Program-Area). In den meisten F&l- 

len ist dies ebenfalls die Adresse der Basepage. 

+4 Zeiger auf erstes Byte hinter dem TPA-Bereich. Der TPA-Bereich ist 

der gesamte verfügbare Speicher von der Basepage bis sum Bild- 
schirmspeicher. 

+8 Zeiger auf Textsegment-Start. Das Textsegment ist der gesamte 

Speicherbereich, in welchem der aktuelle Programm-Code liegt. In den 
meisten Fällen liegt dessen Start bei BASEPAGE+256. 

+ 12 Textsegment-Länge. Die Länge des Textsegments ist abhängig von der 

Programmstruktur. Üblicherweise ist dies die Länge des vom Programm 
für seinen Code in Anspruch genommenen Speichers, ln vielen Fällen 
ist der Variablenbereich (Datenspeicher = DATA-Segment) jedoch in 
den Programmtext integriert (s.B. GFA-BASIC). 

+16 Zeiger auf DATA-Segment-Start (Datenspeicher). Üblicherweise ist 

das DATA-Segment der Teil eines Programms, der beim Assemblieren 
als Datenspeicher für die variablen Daten (Bytes/Words/Longs) dekla¬ 
riert wurde. 

+20 DATA-Segment-Länge. 

+24 Zeiger auf BSS-Segment-Start (Block-Storage-Segment). Wie der 

Name schon sagt, werden in diesem Bereich üblicherweise Datenblöcke 
abgelegt, die auf eine Verwendung im Programm warten. Dies können 
Bit-Muster, oder Texte sein oder auch Bwischengespeicherte Transfer- 
Blöcke beliebiger Art. 
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+28 BSS'Segment-Länge. In V3.0 ist die Länge dieses Blocks 266 Bytes. In 

diesen 256 Bytes wird die suletst durch <Control><P> gepufferte 
Programmseile festgehalten. 

+32 Zeiger auf DiscTransferAdress (siehe FSETDTA()/FGETDTA()). 

+36 Zeiger auf die Basepage des Prosesses, der das aktuelle Programm auf¬ 

gerufen hat. 

+40 Reserviert 

+44 Zeiger auf Environment-String (siehe SHEL__ENVRN()). 

+48 

bis Reserviert 

+127 Die Verwendung dieses Bereichs ist erst bei späteren TOS-Version su 

erwarten. Er kann also - wie auch der Kommando-Bereich - für eigene 
Zwecke eingesetst werden. 

Im Gegensats tum Kommandobereich gibt es hier keine allgemeinen 
Konventionen Uber die Art der Verwendung. 

+128 

bis Kommandoseile/DTA etc. (siehe SHEL_READ(), FGETDTA()). 

+255 Bei Kommadoseilen gilt standardgemäß das erste Byte 

(1PEEK(BASEPAGE+128)) als Länge des Kommandos. 


CRSCOL Aktuelle Cursor-Spalte llefero 

Var=CRSCOL 

Reservierte Variable, die die TOS-Cursor-Spalte enthält, in welcher 
sich der Cursor aktuell befindet (CRSCOL = CuRSorCOLumn). 

Im Gegensatz zur Funktion POS(), die die zeilenbezogene Cursor-Po¬ 
sition liefert, kann mit CRSCOL die Spaltenposition des Cursors auf 
dem Bildschirm (Hires/Midres: 1 - 80/Lowres: 1 - 40) ermittelt wer¬ 
den. In Verbindung mit CRSLIN bildet CRSCOL das Gegenstück zu 
PRINT AT(S,Z). 

Ein Beispiel hierzu finden Sie unter CRSLIN. 


CRSLIN Aktuelle Cursor-Zelle liefern 

Var=CRSLIN 

Reservierte Variable, die die TOS-Cursor-Zeile enthält, in welcher 
sich der Cursor aktuell befindet (CRSLIN = CuRSorLINe). CRSLIN 
liegt beim Standard-Font in allen Auflösungen immer im Bereich von 
1 - 25. Wenn Sie in Hires die Prozedur Sysfont (siehe ASC()) mit Font 
= 1 einsetzen, liegt CRSLIN im Bereich von 1 - 50. 

In Verbindung mit CRSCOL bildet CRSLIN das Gegenstück zu 
PRINT AT(S,Z). 
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Beispiel 1 (Hires/Midres); 

For 1=1 To 500 
Print "CRSCOL/CRSLIN 
If Crscol>50 
Print 
Endif 

If Crslin=25 
Cls 
Endif 
Next I 


I 500 mal 

Test ! Text ausgeben 

! Cursor hinter 50. Spalte? 
! Dann neue Zeile 

I Cursor in unterster Zeile 
I Dann Bildschirm löschen 


Beispiel 2 (Hires/Midres/Lowres): 

A$=''TEXT RÜCICUÄRTS'' 

Print At(36,1); I Cursor positionieren 

Do I Zeilen-Schleife 

Print At(36,Crslin+1); I Cursor neu positionieren 

Do ! Spalten-Schleife 

Print At(Crscol-1,Crslin); I Cursor 1 Spalte nach links 
Print Chr$(27);"j"; I Position speichern 
Print Hid$(A$,(36-Crscol),1) I Zeichen ausgeben 
Print Chr$(27);"k"; I Cursor auf gespeicherte Position 

Exit if Crscol<22 I Cursor vor der 22. Spalte = Exit 

Loop 

Exit if Crslin>23 I Cursor unter 23. Zeile = Exit 

Loop 


FREÖ Freien Speicherplatz erihittelh 

Var=FRE(Duminy) 

Var=FRE0 (nurV3.0) 

Es wird eine Garbage-Collection (Müll-Sammlung) durchgeführt und 
anschließend die Größe des noch freien Speichers geliefert. Dummy ist 
eine Integerwert ohne Bedeutung. 

Der Interpreter sorgt sich ständig um den verbleibenden Speicherplatz. 
Dazu werden intern die nicht mehr benötigten Variablenbereiche (z.B. 
gelöschte String-Variablen und Felder) ermittelt, entfernt und die be¬ 
nachbarten Speicherbereiche zusammengeschlossen. Diese Arbeit wird 
vom BASIC sporadisch erledigt. Zu erkennen ist sie manchmal an 
kurzen "Aussetzern", bei denen man den Eindruck bekommt, daß das 
Programm für eine lOtel Sekunde "stottert". 

Um diese Garbage-Collection gezielt einsetzen zu können, kann 
FRE(x) verwendet werden, auch wenn man am verbleibenden Spei¬ 
cherplatz garnicht interessiert ist. Ratsam ist der Einsatz von FRE(x) 
vor allem direkt vor einer Abfrage von Variablenadressen durch 
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VARPTRO oder ARRPTR(), da die Adreßlage der Variablen (vor al¬ 
lem der Strings) durch eine zwischenzeitlich intern ausgeführte Gar- 
bage-Collection verschoben worden sein kann. 

In Version V3.0 ist Dummy optional. Wird eine Leerklammer angege¬ 
ben, wird vor der Speicherplatz-Ermittlung keine Garbage-Collection 
durchgeführt. 

Beispiele hierzu finden Sie unter anderem unter CALL in der Proze¬ 
dur Scroll, unter EXEC, sowie unter RCALL, BMOVE und unter 
BYTE{)/CARD{)/LONG{} in der Prozedur Slow. 


HiMEM Erstes Byte hinter BASIC-Speicher liefern 

Var=HIMEM 

HIMEM ist eine reservierte Variable, die die Adresse des ersten Bytes 
hinter dem vom GFA-BASIC bzw. GFA-Compilats belegten Speicher 
enthält. 

Beispiele hierzu finden Sie unter anderem unter EXEC, BMOVE und 
unter BYTE{)/CARD{}/LONG{} in der Prozedur Slow. 


Version 3.0 

L^A Basis-Adresse der Line-A-Variablen liefern 

Var=L~A 

Liefert die Basis-Adresse der Line-A-Variablen. 

Da fast sämtliche von GEM und TOS benutzten Variablen (Line-A, 
VDI-Escapes, Mausdaten, Sprite-Definition-Block, Workstation-Infos, 
RGB-Einstellungen, Font-Header etc.) an feststehenden Adressen lie¬ 
gen, ist durch Feststellung dieser Basis-Adresse fast der gesamte Va¬ 
riablenbereich des Systems überschaubar. 

Für die V2.xx-Versionen: die Line-A-Basisadresse liegt bei Adresse 
&H293A und ist konstant. Änderungen sind erst bei neueren TOS- 
Versionen zu erwarten. Für das MEGA-TOS (Blitter-TOS) kann ich 
keine Garantie übernehmen, da ich selbst nicht mit einem MEGA-ST 
arbeite. 
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DEFFN-Funktion für V2.xx: 


Var=aL A 
Deffn L A=&H293A 


L"A 

Offset: Format: Bedeutung: 


-856 -. 

5 

bis 

- Uords 

-8AA - 


-8A6 -. 


; 

32 

bis 

- Uords 

-78A - 


-692 -. 


• 

A5 

bis 

- Uords 

-6Öa - 


-602 

Word 

-600 

Word 

-598 

Word 

-596 

Word 

-59A 

Word 

-592 

Word 

-590 

Word 

bis 


-5Öa 

Word 

-502 

Word 

-500 

Word 

-A98 - 


. 

12 

bis 

- Uords 

-A76 - 


-A60 

Long 

-A56 

Long 

-A52 

Long 

-AA8 

Long 

-AAA 

Word 


Hier liegen die ersten 5 MlClS-Words 
des aktuellen DEFMOUSE-Strings 

Maskennuster Zeile 1 

. Hier liegen die 32 Bit-Huster-Uords des 
. aktuellen DEFHOUSE-Zeigers. Abwechselnd 
. Maskermuster und Hausmuster jeder Zeile, 

. beginnend mit dem Maskenmuster der 
. ersten Zeile. 

Hausmuster Zeile 16 

Die hier liegenden AS Uords entsprechen in 
ihrer Reihenfolge exakt dem Open-Uorkstation- 
Array WORK_OUT() von Index 0 bis Index AA 
(siehe dort). Dies ist für diejenigen interessant, 
die bis zum Erscheinen des V3.0-Compilers noch 
in GFA-V2.XX arbeiten, da sie anders nicht an 
die Workstation-Informationen herankonmen. Aber 
auch die V3.0-Programmierer können diese Adressen 
zun DPOKEn verwenden, da UORK_OUT() ja keine 
Zuweisungen annimt. 

Aktuelle Haus-X-Koordinate 
Aktuelle Haus-Y-Koordinate |- können durch 

HIDEH/SHOUH-Flag |- DPOKE auch 

Aktueller Hausknopf-Status --' gesetzt werden 

Rot -Intensität in Farbreg. 0 (0-7) 

Grün-Intensität in Farbreg. 0 (0-7) 

Blau-Intensität in Farbreg. 0 (0-7) 


Rot -Intensität in Farbreg. 15 (0-7) 
Grün-Intensität in Farbreg. 15 (0-7) 

Blau-Intensität in Farbreg. 15 (0-7) 

Die hier liegenden 12 Uords entsprechen in 
ihrer Reihenfolge exakt dem Open Uorkstation- 
Array UORk_(XIT() von Index A5 bis Index 56 
(siehe dort). Beachten Sie die Anmerkungen zu 
-692 bis -60A. 

Aktuelle Adresse des 8x16-Font-Hesders (RAH) 
Aktuelle Adresse des 6x6-Font-Headers (ROH) 
Aktuelle Adresse des 8x8-Font-Headers (RAH) 
Ggfs. Adresse des GOOS-Font-Headers (RAH) 
Anzahl der geladenen GDOS-Fonts 
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-322 


bis 


16 

Longs 


-262 - 


Der Hintergrund des Mauszeigers wird bei 
Mausbewegung oder SHOUM in diesem Puffer 
gespeichert <16 Zeilen a 4 Bytes) und bei 
der nächsten Bewegung oder HIDEM/SHOUM 
mit dem Inhalt dieses Puffers restauriert. 


Im folgenden Block finden Sie die L~A-Offsets der VDI-Escape-Va- 
riablen (-46 bis -2). Pokes in diese Adressen haben teilweise sehr wir¬ 
kungsvolle Effekte (z.B. DPOKE L~A-44,10 - dann Text eingeben). 


-46 

Word 

Textzeichenhöhe 

-44 

Word 

Maximale Cursor-Spalte 

-42 

Word 

Maximale Cursor-Zeile 

-40 

Word 

Bytes pro Textzeile (z.B. Hires: 80*16=1280) 

-38 

Word 

Texthintergrundfarbe 

-36 

Uord 

Textfarbe 

-34 

Long 

Startadresse der aktuellen Cursor-Position 
innerhalb des Video-RAMs 

-30 

Uord 

Punkt-Offset der 1. Cursor-Zeile zum oberen 1 

-28 

Uord 

Aktuelle Cursor-Spalte (CRSCOL) 

-26 

Uord 

Aktuelle Cursor-Zeile (CRSLIN) 

-24 

Byte 

Cursor-Blinkrate 

-23 

Byte 

Cursor-Blinkzähler 

-22 

Long 

Startadresse der Font-Musterdaten 

-18 

Uord 

Letzter ASCII im Font 

-16 

Uord 

Erster ASCII im Font 

-14 

Uord 

Byte-Breite einer Font-Scan-Line (8x16-Font ■ 
-> 256 Zeichen • 8 Pixel je Zeichen) 

-12 

Uord 

Bildschirmbreite in Punkten (640/640/320) 

-10 

Long 

Startadresse der Font-Offset-Tabelle 

-6 

Uord 

Cursor-Flag (an/aus) 

-4 

Uord 

Bildschirmhöhe in Punkten (400/200/200) 

-2 

Uord 

Bildschirmbreite in Bytes 


Hier beginnen die eigentlichen Line-A'Variablen 

+/-0 

Uord 

Anzahl der Bit-Planes (1, 2, 4) 

+2 

Uord 

BiIdschirmbreite in Bytes 

+4 

Long 

Startadresse des VDI-CONTRL-Arrays 

+8 

Long 

Startadresse des VOI-INTIN-Arrays 

+12 

Long 

Startadresse des VDI-PTSIN-Arrays 

+16 

Long 

Startadresse des VOI-INTOUT-Arrays 

+20 

Long 

Startadresse des VOI-PTSOUT-Arrays 

+24 

Uord 

Hintergrundfarbe für Bit-Plane 1 

+26 

Uord 

Hintergrundfarbe für Bit-Plane 2 

+28 

Uord 

Hintergrundfarbe für Bit-Plane 3 

+30 

Uord 

Hintergrurxlfarbe für Bit-Plane 4 

+32 

Uord 

Letztes Pixel einer Linie zeichnen (ja/nein) 

+34 

Uord 

Aktuelles Linienmuster 

+36 

Uord 

Aktueller Grafikmodus (0, 1, 2, 3) 

+38 

Uord 

Koordinatenpuffer (XI) 

+40 

Uord 

Koordinatenpuffer (Y1) 

+42 

Uord 

Koordinatenpuffer (X2) 

+44 

Uord 

Koordinatenpuffer (Y2) 

+46 

Long 

Startadresse des aktuellen Füllmusters 
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+50 

Word 

Aktuelle Füllmuster-Maske 

+52 

Word 

Mehrfarbige Füllmuster möglich (ja/ncin) 

+54 

Word 

Clipping-Flag (an/aus) 

+56 

Word 

Linke X-Koordinate der Clip-Box 

+58 

Word 

Obere Y-Koordinate der Clip-Box 

+60 

Word 

Rechte X-Koordinate der Clip-Box 

+62 

Word 

Untere Y-Koordinate der Clip-Box 

+64 

Word 

???? 

+66 

Word 

VergröBerungsfaktor 

+68 

Word 

???? 

+70 

Uord 

Textstatus (standard/proportional) 

+72 

Uord 

Quell-X-Koordinate bei Line-A-Txtblt 

+74 

Uord 

Ouell-Y-Koordinate bei Line-A-Txtblt 

+76 

Word 

Ziel-X-Koordinate bei Line-A-Txtblt 

+78 

Word 

Ziel-X-Koordinate bei Line-A-Txtblt 

+80 

Word 

Zeichenbreite in Pixel 

+82 

Word 

Zeichenhöhe in Pixel 

+84 

Long 

Startadresse der Font-Musterdaten 

+88 

Word 

Byte-Breite einer Font-Scan-Line (siehe L"A-14) 

+90 

Word 

Aktueller Textstil 

+92 

Word 

Maske für lightend-Text (hell) 

+94 

Word 

Maske für italic-Text (schräg) 

+96 

Uord 

Faktor für bold-Text (fett) 

+98 

Uord 

Rechter Offset bei italic-Text 

+100 

Uord 

Linker Offset bei italic-Text 

+102 

Uord 

Skalierung ???? 

+104 

Uord 

Aktueller Winkel für Textrotation 

+106 

Uord 

Aktuelle Textfarbe 

+108 

Long 

Adresse des 1. Arbeitspuffers für Textrotation 

+112 

Uord 

Byte-Offset zum 2. Arbeitspuffer 

+114 

Uord 

Texthintergrundfarbe 

+116 

Uord 

Transparent-Flag für Raster-Copy 

+118 

Long 

Adresse der Füll-Routine 

TYPEO 


Variablentyp ermitteln 

Var = TYPE (Pointer) 


Pointer steht für einen ♦-Pointer (z.B. PRINT TYPE(*Var%)). Es wird 
der Typ der dadurch repräsentierten Variablen geliefert. 

Type: 



-1 = 

Fehler aufgetreten 

0 = 

Realzahlvariable (Var) 

1 = 

String-Variable (Var$) 

2 = 

4-Byte-Integervariable (VarX> 

3 = 

Boolesche Variable (Varl) 

4 = 

Real-Feldvariable (VarO) 

5 = 

String-Feldvariable (VarSO) 

6 = 

4-Byte-Integer-Feldvariable (VarXO) 

7 = 

Boolesche 

Feldvariable (VarlO) 
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Ab hier nur für V3.0: 

8 = 2-Byte-Integervariable (Var&) 

9 = 1-Byte-Integervariable (Var|) 

12 = 2-Byte-Integer-Feldvariable (Var&O) 

13 = 1-Byte-Integer-Feldvariable (VarjO) 

Beispiel: 


A=10.1 

A$="ABC" 

A%=10 
A! = -1 

Print Type(*A)'Type(*A$)'Type(»AX)'Type(*A!) 


Ein weiteres Beispiel finden Sie unter * (Pointer). 


Version 3.0 

WORK OUTO Open - Workstation- Rückgabe- Array 

Var=WORK_OUT(lndex) 

Diese Funktion stellt den Inhalt des gesamten INTOUT- und 
PTSOUT-Arrays zum Zeitpunkt des letzten VDI-Open_Workstation- 
Aufrufs (GFA-Start) zur Verfügung. Das INTOUT-Array ist dabei in 
Index = 0 bis Index = 44 (für V2.xx: siehe L~A-692 bis -604), und 
das PTSOUT-Array in Index = 45 bis Index = 56 (für V2.xx: siehe 
L~A-498 bis -476) abgelegt. 

DEFFN-Funktion für V2.xx: 

Var=aWork_out(Index) 

Deffn Uork_out(IndX)=Lpeek(&H293A-692+194... 

...*Abs(IndX>44)+(IndX Mod 45)*2) 


Index: 


0 = 
1 = 
2 = 

3 = 

4 = 

5 = 

6 = 

7 = 

8 = 

9 = 

10 = 
11 = 
12 = 


Breite des Bildschirms in Pixel 
Höhe des Bildschirms in Pixel 
Ohne Bedeutung (immer 0) 

Breite eines Pixels in mm/1000 
Höhe eines Pixels in mm/1000 
Anzahl möglicher Schrifthöhen 
Anzahl möglicher Linientypen 
Anzahl möglicher Linienbreiten 
Anzahl möglicher Markertypen 
Anzahl möglicher Markerhöhen 
Anzahl der verfügbaren Zeichensätze 
Anzahl der Punkt-Füllmuster 
Anzahl der Linien-FülImuster 


(640/640/320) 

(400/200/200) 


(0 = Beliebig) 


(0 = Beliebig) 

(DEFFILL ,2,x) 
(DEFFILL ,3,x) 
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13 = Anzahl verfügbarer Farben (2, 4, 16} 

14 = Anzahl verfügbarer VDIrGrafik-Grundfunktionen 
15--. 

bis '-Liste der verfügbaren Grafikfunktionen 

24- -' . 

. Diese beiden Listen stellen ein Hilfsmittel 
des GEH dar und sind für den GFA-Progrannierer 
. ohne jede Bedeutung. 

25- -. . 

bis {-Liste der möglichen Grafik-Attribute 

34--I 


35 = 

Farbe verfügbar: 

0 

= Hein ; 

1 

= Ja 

36 = 

Textrotation verfügbar: 

0 

= Mein ; 

1 

s Ja 

37 = 

Füllen verfügbar: 

0 

« Nein ; 

1 

= Ja 

38 = 

VOI-cell_array verfügbar: 

0 

= Hein ; 

1 

« Ja 


39 = Anzahl verfügbarer Farben (ohne Hintergrund) 

40 = Mauszeiger-Kontrolle (0 = Tastatur ; 1 = Maus) 

41 = Uerte-Eingaben (0 = über Tastatur ; 1 = Anders) 

42 = Auswahltasten (0 = F1-F10 ; 1 = Andere Tasten) 

43 = Texteingabe (immer 1 = Tastatur) 

44 = Art der Workstation 

0 = Ausgabegerät 

1 = Eingabegerät 

2 = Ein-/Ausgabegerät 

3 = Reserviert 

4 = Metafile-Ausgabe 


45 = Minimale Zeichenbreite —.P 

46 = Minimale Zeichenhöhe [T 

47 = Maximale Zeichenbreite S 

48 = Maximale Zeichenhöhe 0 

49 = Minimale Zeilenbreite U 

50 =■ Ohne Bedeutung (immer 0} T 

51 = Maximale Zeilenbreite 

52 = Ohne Bedeutung (inner 0) K 

53 = Minimale Markerbreite o 

54 = Minimale Markerhöhe p 

55 = Maximale Markerbreite {i 

56 = Maximale Markerhöhe —’e 


12.6 Tastaturkontrolle 


Version 3.0 

KEYDEF { KEYD } Funktionstasten belegen 

KEYDEF Taste,Text 

Erlaubt die Belegung der Funktionstasten (Fl - FlO). Es kann ein 
String von max. 31 Zeichen zugeordnet werden, der dann - sowohl im 
Programm, als auch im Editor - durch Druck auf die entsprechende 
Funktionstaste an der aktuellen Cursor-Position ausgegeben wird. 
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Taste: 


I ' 10 = FI bis FlO ohne <Shift>-Betätigung 

II - 20 = Fl bis FlO mit <Shift>-Betätigung 


Soll der zugeordnete Text im GFA-Editor ausgegeben werden, muß 
zusätzlich noch die <Alternate>-Taste gedrückt werden (vgl. KEYPAD 
Bit 4 und 5). Der Text kann auch innerhalb von Dialog- und File- 
select-Boxen ausgegeben werden. 

Beispiele: 

Ich bin der Meinung, daß eine Funktionstastenbelegung ohne die 
Möglichkeit, die zugewiesenen Strings speichern, laden und ausgeben 
zu können, nur die Hälfte wert ist. Innerhalb eines Programms ist dies 
ja kein Problem, da ja die Strings immer in irgeindeiner String-Vari¬ 
ablen (vorzugsweise einem String-Feld) abgelegt und somit ständig 
verfügbar sind. 

Im GFA-Editor dagegen sieht die Sache anders aus. Die Strings sind 
irgendwo im Interpreter gepuffert und nur dann zu sehen, wenn man 
eben die entsprechende Funktionstaste (zusammen mit <Alternate>) 
drückt. 

Ich habe mich nun anhand der Prozedur Find (siehe Beispiel 2 zu 
BMOVE) auf die Suche nach diesen Strings im Interpreter gemacht 
und bin (natürlich) fündig geworden. Ob die hier verwendeten 
Basepage-Offsets allerdings in späteren Versionen noch gültig sind, 
kann ich nicht versprechen. Dann ist es allerdings kein größeres Pro¬ 
blem, die neuen Offsets mit Find ausfindig zu machen. 

Procedure Keylist(FlagX) 

' Diese Prozedur gibt die KEYDEF-Strings sauber geordnet 
' entweder auf dem Bildschirm oder dem Drucker aus und/oder 
' füllt das String-Feld DefkeySO der Reihe nach (1-20) 

' mit den KEYDEF-Strings. Was Sie mit dem Feld anfangen, 

' bleibt Ihrer Phantasie überlassen. 

■ 

■ FlagX = 

' 0 = Es wird nur das String-Feld DefkeySO mit den 20 

' aktuelle KEYDEF-Strings gefüllt. 

' 1 = Es wird 0 ausgeführt urxf gleichzeitig die Strings 

' auf dem Bildschirm ausgegeben. 

' 2 = Es wird 0 ausgeführt und gleichzeitig die Strings 

' auf dem Drucker ausgegeben. Ist der Drucker nicht 

' angeschlossen oder Offline, so wird die Routine 

' nicht ausgeführt. 

Local IX,BackX 
If FlagX>1 


I Bildschirm-Ausgabe? 
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Open '"',#99,''C0N:” I Dann Console öffnen 

Endif 

If FlagX<0 Or FlagX>1 I Druckerausgabe? 

If Out?(0} I Drucker Online? 

Open "",#99,''PRM:" I Dann Centronics-Port öffnen 

Else I Drucker nicht etnpfangsbereiti 

BackX=1 I Abbruch-Flag setzen 

Endif 
Endif 

If BackX=0 I Alles okay? 

Erase DefkeyBO I String-Feld löschen 

Dirn Defkey$(20} I String-Feld dimensionieren 

For IX=0 To 19 I 20 Strings 

Defkey$(IX+1}=Chr$(3A)+Char{Basepage+40034+IX*32>+Chr$(34) 
' I In KeydefSO einiesen 

If FlagX I Ausgabe? 

Print #99;"KEY '';Spc(2-Len(Str$(IX+1))); 

Print #99;IX+1;" : ";Defkey$(IX+1) I Dann ausgeben 
Endif 
Next IX 
Endif 

Close #99 I Port wieder schlieBen 

Return 

I 

Procedure KeysavelDatnameS) 

' Speichert den internen Original-KEYDEF-Block in einer 
' beliebigen Disk-Datei ab. 

■ DatnameS > Beliebiger Dateiname ohne Extension. 

' Die Extension .KEY wird automatisch gesetzt. 

I 

If Instr(Right$(Datname$,4),''."):0 I Keine Extension? 

Bsave Datname$+".KEY",Basepage+40034,20*32 I Save Block 
Endif 
Return 

I 

Procedure Keyload(DatnameS) 

■ Lädt einen durch Keysave gespeicherten KEYDEF-Block 
' aus einer beliebigen Datei mit der Extension .KEY 

' und schreibt ihn in den internen KEYDEF-Puffer. 

' DatnameS = Beliebiger Dateiname ohne Extension. 

' Die Extension .KEY wird automatisch gesetzt. 

I 

If Exist(DatnameS'i'".KEY") I Angegebene .KEY-Datei existiert? 
For IX=1 To 20 I 20 KEYDEF-Strings 

Keydef IX,Space$(31) I Auf Länge trimmen 

Next IX 

Bload Datname$'''".KEY",Bssepage*40034 I Und Block laden 
Endif 
Return 

I 

Procedure Keyline(FkeyX) 

' Kleines BonbonI Diese Routine belegt die Funktionstaste 
' FkeyX (1 - 20 s.o.) mit maximal 31 Zeichen des zuletzt 
' durch <Control><P> (siehe 24.5 "Der Editor") gelöschten 
' String{-Teils). 

' Die Funktionstasten lassen sich auch im Direktmodus 
' einsetzen und so kann man beliebige Progranmzeilenteile 
' in den Direktmodus hinüberholen (z.B. un sie dort 
' einzeln zu testen). 
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■ FkeyX = Index der gewünschten Funktionstaste (1 - 20} 

I 

If Fkey*=>1 And FkeyX<=20 I Zulässiger Index? 

' Keydef FkeyX,Left$(Char{Basepaget100578},31) 

' Wenn Sie diese Zeile statt der unteren aktivieren, wird 
' nicht der <Control><P>-Puffer gelesen, sondern die max. 

' ersten 31 Zeichen der durch <Control><Delete> gelöschten 

' Progrannzeile. 

Keydef FkeyX,LeftS(Char{{Basepage+24»,31) 

Endif 

Return 


Version 3.0 

KEYGET { KEYG } Auf Taste warten 

KEYGET Var 

Dieser Befehl ist grundsätzlich identisch mit INP(2). Es wird auf einen 
Tastendruck gewartet und in der angegebenen numerischen Variablen 
Var ein 32-Bit-Wert (siehe KEYPRESS) zurückgegeben. 

Bit: 


0-7 ASCII-Wert der Taete. 

8-15 Null. 

16~2S Scan-Code der Taste. 

24-31 Ggfs. Umschalttasten-StatuB Bum Zeitpunkt der Betätigung: 

24 <Shift-recht8>. 

26 <Shift-linkB>. 

26 <ControI>. 

27 <AUemate>. 

28 <CapsLock> an/aus. 

29-31 Null. 

Wird eine Byte-Integervariable für Var (Var|) verwendet, werden nur 
Bit 0 - 7 bzw. bei Word-Integervariablen (Var&) nur Bit 0 - 15 der 
beschriebenen 32 Bit geliefert. 

DEFFN-Funktion für V2.xx: 

Var=aKeyget I Exakt dasselbe wie KEYGET 
Oeffn Keyget=Gemdos(7) 
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Version 3.0 

KEYLOOK {kiVL} 1. Zeichen aus Tastatiilrpuffer kicitt^^^ 

KEYLOOK Var 

KEYLOOK gibt in Var einen 32-Bit-Wert zurück (s. KEYGET/ 
KEYPRESS), der dem vordersten Zeichen (Head) des Tastaturpuffers 
entspricht. Das ist das Zeichen, das beim nächsten Aufruf von IN- 
KEY$-, KEYTEST-, KEYGET-, 1NP(2) etc. geliefert werden würde. 
Der Zustand des Tastaturpuffers bleibt dadurch unverändert, das 
heißt, daß im Gegensatz zu allen anderen Tastaturabfragen das ermit¬ 
telte Zeichen unverändert an seiner Position im Puffer stehen bleibt. 


KEYPAD {K } 


Version 3.0 

Tastatur-Attribute definieren 


KEYPAD Vektor 

Durch diesen Befehl kann die Tastaturbelegung auf verschiedene 
Weise beeinflußt werden. Die Funktionen sind anschließend innerhalb 
des Programms verfügbar. 


In Vektor wird dabei ein Bit-Vektor von max. 6 Bits übergeben; 

Bit 0 NumLock-Modui (PC-ZifTernblock) (0/1 = An/Aus) 

Siehe 24.5 "Der Editor". 

Bit 1 NumLock-Modus (O/l = Schaltbar/Nicht schaltbar). 

Bit 2 Cursor-Steuerung durch <Control>+<Pfeiltaste> (O/l = An/Aus). 

Bit S Sonderseicheneingabe durch <Altemate> und anschließender ASCII- 

Werteingabe (0/1 = An/Aus). 

Bit 4 Durch KEYDEF belegte Funktionstasten sind verfügbar und können 

durch <Fxx> biw. <Shift><Fxx> im Programm ausgelöst werden. 

Bit 5 Die durch KEYDEF belegten Funktionstasten sind nur verfügbar, wenn 

Eusätslich EU <Fxx> bsw. <Shift><Fxx> noch <Altemate> gedrückt 
wird. Ist keines der beiden letEten Bits gesetst, können die Funktions- 
tasten-Strings nicht aufgerufen werden. 


Durch GFA-BASIC wird bei V3.0-BASIC-Start automatisch KEYPAD 
&X101110 (46) initialisiert. Auf dem ST gilt normalerweise die Ta¬ 
staturbelegung, die KEYPAD 0 entspricht. 

Bei Programmen aus den V2.xx-Versionen, die in V3.0 gestartet wer¬ 
den und die Tastatur außerhalb der Normal-Tastatur (Ziffern-, 
Cursor-Block und Funktionstasten) in Verbindung mit <Control> oder 
<Alternate> abfragen, muß vorher KEYPAD 0 eingestellt werden, da 
sonst falsche Ergebnisse geliefert werden. 
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Version 3.0 

KEYPRESS { KEYPR } Tastendruck simulieren 

KEYPRESS Code 

Hiermit kann man einen Tastendruck simulieren. In Code wird dabei 
ein Wert beliebigen Formats (Byte, Word oder Long) übergeben. Das 
LO-Byte von Byte- oder Word-Werten wird dabei als ASCII-Wert der 
zu simulierenden Taste interpretiert. Wird ein Longword übergeben, so 
wird das HI-Byte des Hl-Words als gewünschter Umschalttasten-Status 
und das LO-Byte des Hl-Words als gewünschter Scan-Code gewertet 
(siehe KEYGET). 


Die Simulation wird dann wirksam, wenn die nächste Gelegenheit zur 
Eingabe vorhanden ist, z.B. bei INPUT, INKEYS, INP(2), KEYGET 


etc., sowie in GEM-Eingabezeilen 
Beispiel 1: 


A$='> FILENAHE. DAT“ I 

For I*=1 To 12 I 

Keypress Asc(Mid$(A$,IX,1)) ! 
Next IX 

Keypress 4718592 I 

A»="\PFAD\BLABLA" ! 

For IX=1 To 12 I 

Keypress Asc(Hid$(AS,IX,1)) I 
Next IX 

Keypress 65563 I 

Keypress 5242880 I 

For IX«1 To 12 I 

Keypress 917512 I 

Next IX 

For IX=1 To 12 I 

Keypress 34340927 I 

Next IX 

Keypress 4718592 I 

For IX=1 To 10 I 

Keypress 34340927 I 

Next IX 

Fileselect "\*.*",”",B$ I 


Das macht richtig Spaß, wie 
bedienen. 


(Dialog- und Fileselect-Boxen). 


FUe-Name 
12 Tasten 
"drücken" 

<PfeU-hoch>-Taste 
Pfadbezeichnung 
12 Tasten 


<Esc>-Taste 
«Pfeil-runter>-Taste 
12 mal 
<Backspace> 

12 

Fragezeichen 

«Pfeil-hoch>-Taste 
10 

Fragezeichen 
Und dann los.. 


Geisterhand die Fileselect-Box zu 


In den nachfolgenden Grafiken finden Sie alle relevanten Tastatur- 
Codes verzeichnet. Keypressing macht nämlich nur dann richtig Spaß, 
wenn man auch weiß, welche Taste man gerade drückt. Die auf die 
Tasten gedruckten Werte sind die 4-Byte-Werte, die jede Taste durch 
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KEYGET oder KEYTEST liefert. Die obere Zahlenreihe entsprechen 
dem Hl-Word und die untere dem LO-Word des Codes. So kann man 
spielend die jeweiligen Scan- und ASCII-Codes erkennen. 



KEYxxx-Codes 

n Word 




Mmmmmm . 


1 WjkIV!IK3K]B]K3|!>H(I!^9B!II^^ 

PiK 
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Version 3.0 


KEYTEST {KEYT} Tastatur abfragen 

KEYTEST Var 

Dieser Befehl ist grundsätzlich identisch mit INKEY$, nur daß er 
nicht wie diese als Funktion innerhalb von Ausdrücken verwendet 
werden kann. 

Es wird in Var ein 32-Bit-Wert (siehe KEYGET/KEYPRESS) zurück¬ 
gegeben, welcher der bei Befehlsausführung gedrückten Taste ent¬ 
spricht. Es wird nicht auf den Tastendruck gewartet, sondern im 
"Vorübergehen" nachgeschaut, ob eine Taste gedrückt wurde. Ist das 
nicht der Fall, erhält man den Wert 0. 

DEFFN-Funktion für V2.xx; 

Var=aKeytest I Exakt dasselbe wie KEYTEST 
Deffn Keytest-Geindos(6,2SS) 


12.7 Multitasking 


Version 3.0 

AFTER X GOSUB {AF} Slngle-Interrupt-Routinenaufruf 
AFTER Ticks [GOSUB] Prozedur 

Ruft nach Ticks Zeiteinheiten (1 Sekunde * 200 Ticks) die angegebene 
Procedur einmal auf. Der Befehl wird jedoch - generell - immer erst 
nach vollständiger Abarbeitung eines BASIC-Befehls ausgeführt. Wenn 
z.B. durch SOUND x,x,x,x,Dauer, PAUSE, DELAY, INP() INPUT, 
BLOAD etc. die Programmausführung unterbrochen wird, so wird der 
Sprung zur angegebenen Prozedur ggfs, erst bei Wiederaufnahme des 
Programms wirksam. 

Beispiel; 

After 100 Gosub Abc ! AFTER-Aufruf 
TX*Titner 

Input AS I AFTER-Ausführung wird unterbrochen 

Do 

Loop 

Procedure Abc 

Print «AFTER 100 GOSUB erst nach «;Tiiner-TX; 

Print “ Ticks ausgeführt 
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End 

Return 

Anmerkung: Für die Interrupt-Verwaltung wird der Event-Timer- 
Vektor (etv_timer) des GEM bei Adresse &H400 (Supervisor) ver¬ 
wendet. Es ist deshalb bisher nicht möglich, mehrere AFTER-Inter- 
rupt-Anweisungen gleichzeitig zu verarbeiten. Die zuletzt verfügte 
AFTER GOSUB- bzw. EVERY GOSUB-Anweisung hebt also die 
vorangegangene auf. 

Beispiel: 

After 1000 Gosub Aa I Erster Aufruf 
After 400 Gosub Bb I Zweiter Aufruf 
Do ! Endlos-Schleife 

Loop 

Procedure Aa ! Prozedur für ersten Aufruf 

Print 11111 
Return 

Procedure Bb ! Prozedur für zweiten Aufruf 

Print 22222 
Return 

Hier im Beispiel wird nur einmal nach 2 Sekunden die Prozedur des 
zweiten Aufrufs angesprungen. Der erste Aufruf ist durch den zweiten 
ungültig geworden. PRINT 11111 wird also nicht mehr ausgeführt. 

Es gibt allerdings die Möglichkeit, aus einer AFTER x GOSUB-An¬ 
weisung eine zweite EVERY x GOSUB-Anweisung zu machen. Dazu 
muß ganz einfach die entsprechende AFTER x GOSUB-Prozedur vor 
ihrem RETURN wieder neu initialisiert werden. Dabei ist zu beach¬ 
ten, daß so nicht der gleiche regelmäßige Rythmus wie bei EVERY zu 
erreichen ist, da ja die Initialisierung selbst immer wieder Zeit in 
Anspruch nimmt. Eine solche - zu EVERY zusätzliche - Interrupt- 
Schleife ist jedoch in den meisten Fällen besser als keine. 

Beispiel: 

After 60 Gosub Procl ! AFTER initialisieren 

Every 100 Gosub Proc2 ! EVERY initialisieren 

Do ! Endlos-Schleife 

Loop 

Procedure Procl ! AFTER-Prozedur 

Print "AFTER-Procedure" 

After 60 Gosub Procl I AFTER neu initialisieren 
Return 

Procedure Proc2 ! EVERY-Prozedur 

Print "EVERY-Procedure" 

Return 
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Version 3.0 

AFTER CONT {AFCONT} Single-Interruptroutine freigeben 
AFTER CONT 

Setzt nach AFTER STOP die Single-Interruptkontrolle fort. Weiteres 
siehe AFTER STOP. 


Version 3.0 

AFTER STOP { AF STOP } Single-Interruptroutine sperren 
AFTER STOP 

Unterbricht die Single-Interruptkontrolle. 

Durch AFTER STOP kann veranlaßt werden, daß die Ausführung der 
aktuellen AFTER x GOSUB-Prozedur solange verzögert wird, bis 
wieder AFTER CONT verfügt wird. Wird AFTER CONT nicht ein¬ 
gesetzt, so bleibt AFTER x GOSUB bis zum Programmende inaktiv - 
es sei denn, durch einen neuen AFTER x GOSUB wurde ein neuer 
Timer gesetzt. 

Z.B. soll nach 3 Sekunden eine AFTER-Procedure angesprungen wer¬ 
den. Die Ausführung wird jedoch nach 2 Sekunden durch AFTER 
STOP unterbrochen und nach weiteren 2 Sekunden durch AFTER 
CONT wieder zugelassen, so wird AFTER x GOSUB erst nach diesen 
4 Sekunden ausgeführt, obwohl die Zeitspanne von 3 Sekunden schon 
verstrichen ist. Weitere AFTER CONT-Aufrufe für denselben Prozeß 
haben dann keine Wirkung mehr, da die Routine nur einmal ausge¬ 
führt wird. 

Beispiel: 

T*=Timer 

After 600 Gosub Proci I Nach 3 Sekunden 
Print "AFTER 600 GOSUB ist aktiv" 

Every 400 Gosub Proc2 ! Alle 2 Sekunden 
Do ! Endlos-Schleife 

Loop 

Procedure Proci 

Print "AFTER 600 GOSUB nach ";(Timer-TX);" Ticks ausgeführt!" 

Edit 

Return 

Procedure Proc2 

AX=AX Xor 1 I AX als Uechsel-Flag (1/0) 

If A%=1 

Print "AFTER 600 GOSUB unterbrochen" 
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After Stop ! AFTER GOSUB unterbrechen 

Else 

Print "AFTER 600 GOSUB wieder aufgenonmen" 

After Cont I AFTER GOSUB fortsetzen 

Endif 
Return 


EVERYx GOSUB { EV } Interrupt-Routinenaufruf 

EVERY Ticks [GOSUB] Prozedur 

Ruft stündig nach Ablauf von Ticks Zeiteinheiten (1 Sekunde > 200 
Ticks) die angegebene Prozedur auf. Der Befehl wird jedoch - gene¬ 
rell - immer erst nach vollständiger Abarbeitung eines BASIC-Befehls 
ausgeführt. Wenn z.B. durch SOUND x,x,x,x,Dauer, PAUSE, DELAY, 
INP() INPUT, BLOAD etc. die Programmausführung unterbrochen 
wird, so wird der Sprung zur angegebenen Prozedur ggfs, erst bei 
Wiederaufnahme des Programms wirksam. 

Die GFA-Fans mußten lange auf diesen Befehl warten. Beachten Sie 
außerdem die Anmerkung zu AFTER GOSUB. 

Beispiel; 


Every 50 Gosub Multi I Interrupt initialisieren 

Print At(1,3);"Bitte Text eingeben und mit Maus zeichnen." 
Print "(Die Zeit/Datum-Anzeige kann durch Klick"; 

Print "geöffnet und dann geändert werden.)" 

Do I Endlos-Schleife 

Keytest AX I Tastatur abfragen 

If (AX And 255) ! ASCII-Taste gedrückt? 

Out 5,AX And 255 I ASCII über Console ausgeben 

Endif 


If Mousek I Maustaste gedrückt? 

Repeat I Box-Schleife 

Box Housex,Mousey,Mousex+10,Mousey+10 
Until Mousek=0 I Bis Maustaste losgelassen 

Endif 


Loop 

Procedure Multi 
Every Stop 
Gosub Timdat(1,1,1) 
Every Cont 
Return 


I EVERY-Prozedur 

I EVERY unterbrechen (siehe unten) 
I Zeit-Prozedur aufrufen 
I EVERY fortsetzen (siehe unten) 


Die in diesem Beispiel verwendete Zeit-Routine Timdat finden Sie 
unter SETTIME beschrieben. Sie ist in dieses Demo-Programm vor 
Start einzubinden. 
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Hier können Sie einen Effekt beobachten, der mich fast zur Ver¬ 
zweiflung getrieben hat. Ich wußte genau, daß die Timdat- Routine 
einwandfrei funktionierte. Als ich den Timdat-Aufruf in die die 
Multi-Prozedur blauäugig eingebunden hatte, war ein Probelauf fällig 
—!!!— und es funktionierte garnichts mehr —!!!—!!! Immer, wenn 
ich das Datum oder die Zeit ändern wollte, brach das Chaos aus. 

Ich durchsuchte Timdat nach möglichen Fehlern und suchte und 
suchte... Als ich dann genug gesucht hatte, überprüfte ich mit TRON 
den Programmlauf. Da die Interrupt-Prozeduren von TRON ausge¬ 
schlossen werden (!), konnte ich so auch nichts erkennen. Nach einiger 
- haareraufend verbrachter - Zeit kam mir der Geistesblitz, daß ja die 
Timdat-Routine auch dann immer wieder durch EVERY aufgerufen 
wird, wenn man innerhalb von Timdat gerade mit der Zeit- oder Da¬ 
tumseingabe beschäftigt ist. Daraus entstand - quasi rekursiv - das 
Durcheinander. Erst als ich vor dem Timdat-Aufruf EVERY STOP 
und danach EVERY CONT einsetzte, funktionierte alles wieder so, 
wie es sollte. 


Version 3.0 

EVERY CONT { EV CONT } Interrupt-Routine freigeben 

EVERY CONT 

Nimmt nach EVERY STOP die EVERY-Interruptkontrolle wieder auf. 
EVERY GOSUB wird wieder ausgeführt. 


Version 3.0 

EVERY STOP { EV STOP } Interrupt-Routine sperren 

EVERY STOP 

Unterbricht die EVERY-Interruptkontrolle. EVERY GOSUB wird 
nicht mehr ausgeführt. Fortsetzung erst wieder durch EVERY CONT. 
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12.8 Debugging 


Version 3.0 

DUMP { DU } Variableninhalte/Namen ausgeben 

DUMP [DefstringS ] [TO Datei$] 

Wird DUMP ohne Optionen verwendet, werden die Inhalte aller Va¬ 
riablen, sowie die Dimensionierungen aller Felder ausgegeben. 

In DeftsringS kann optional eine nähere Spezifikation angegeben wer¬ 
den angegeben werden: 

"a" Die Inhalte aller Variablen, sowie die Dimensionierungen aller Felder, 

deren Name mit a beginnt, werden ausgegeben. 

Alle Label-Namen, sowie ihre Zeilennummer werden ausgegeben. 

":a" Alle Label-Namen, die mit a beginnen, sowie ihre Zeilennummer wer¬ 

den ausgegeben. 

Alle Prosedur- und Funktionsnamen, sowie ihre Zeilennummer werden 
ausgegeben. 

"^a" Alle Prosedur- und Funktionsnamen, die mit a beginnen, sowie ihre 

Zeilennummer werden ausgegeben. 


Ausgegebenen Prozedurnamen wird als Kennung @ angehängt, sowie 
dahinter - falls die Prozedur im aktuellen Programm noch existiert - 
die Nummer der Zeile, in welcher die Prozedur beginnt. Dasselbe ge¬ 
schieht bei Namen noch existierender Funktionen. Diese erhalten je¬ 
doch als Kennung ein FN. Die Namen von String-Funktionen werden 
zusätzlich noch mit einem $ gekennzeichnet. 

Prozeduren, Funktionen und Label, die definiert waren und wieder 
aus dem Programm gelöscht wurden, werden ohne Zeilennummern 
dargestellt. Dagegen sind nicht mehr existierende Variablennamen - 
die ebenfalls ausgegeben werden, solange sie noch in der internen Li¬ 
ste stehen - auf den ersten Blick nicht zu erkennen. Das einzige 
Merkmal ist, daß sie keinen Inhalt haben (0 bzw. ""), was jedoch bei 
noch existierenden Variablen ebenso der Fall sein kein. 

Durch Save,A, New und anschließendes Merge werden die überflüssi¬ 
gen Namen aus der internen Referenzliste entfernt (siehe 24.5 "Der 
Editor"). 

Bei String-Variablen werden max. 60 Zeichen ihres Inhalts ausgege¬ 
ben, die dann in " (Anführungszeichen) eingeschlossen sind. Ist der 
Inhalt länger als 60 Zeichen, steht am Textende das Zeichen >. Enthält 
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der String Zeichen mit einem ASCII-Wert unter 32, werden diese 
Zeichen durch einen Punkt . repräsentiert. 

Es kann außerdem - unabhängig von der Option DeftsringS - hinter 
dem Zusatz TO in DateiS der Name einer Datei angegeben werden, in 
welche dann die DUMP-Ausgaben umgeleitet werden. Diese Datei er¬ 
hält- sofern keine andere angegeben wird - die Extension .DMP. Ggfs 
schon existierende .DMP-Dateien gleichen Namens erhalten die 
Backup-Extension .BAK. 

Auch hier können, wie unter OPEN beschrieben, durch 

TO "VID:“ ... TO "CON:" ... TO “LST:" ... etc. 

die einzelnen Ports angesprochen werden (weiteres siehe unter OPEN). 

Statt TO kann wahlweise auch ein Komma verwendet werden, das der 
Interpreter dann automatisch in TO umwandelt. Ein Beispiel zu 
DUMP finden Sie unter TRON Proc. 

Da es in den V2.xx-Versionen kein DUMP gibt, folgt hier ein kleines 
Programm, das Ihnen die Variablen-, Label-, Prozedur- und Funkti¬ 
onsnamen eines .BAS-Programms von der Diskette liefert. Genau wie 
bei DUMP, erhalten Sie eine - fein säuberlich nach Typen getrennte - 
Liste. 

Den meisten von Ihnen wird bekannt sein, daß jedes .BAS-File bzw. 
auch jedes V3.0-.GFA-File über einen Vorspann verfügt, in welchem 
mehrere wichtige Daten vom Interpreter, abgelegt werden. Nur weni¬ 
gen wird bekannt sein, wie dieser Header aufgebaut ist. Machen Sie 
sich keine Hoffnung, ich werde es Ihnen auch nicht verraten. Aus ei¬ 
nem einfachen Grund. Mit genauen Kenntnissen über den Aufbau des 
Headers wäre es spielend möglich, mit PSAVE geschützte Programme 
zu "knacken". Da ich nicht davon ausgehe, daß schon jeder über einen 
GFA-BASIC-Compiler verfügt, muß diese Möglichkeit der Pro¬ 
grammsicherung erhalten bleiben. 

Was allerdings kein Geheimnis ist, ist die Organisation des Bereichs, in 
dem das BASIC die verwendeten Variablen-, Funktions-, Label- und 
Prozedurnamen abspeichert. Mit diesen Kenntnissen ist es in den 
V2.xx-Versionen dann wenigstens möglich, sich relativ leicht eine 
Referenzliste über die verwendeten Namen zu erstellen. Ich habe im 
Listing auch die entsprechenden Zeilen für die V3.0-Version einge¬ 
baut. Sie sind in REM-Zeilen verpackt und müssen nur anstatt der 
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V2.xx-Zeilen aktiviert werden. Bei den DATAs ist dagegen nur die 
DATA-Liste durch die V3.0-Zeilen zu ergänzen. Im folgenden habe 
ich die V3.0-relevanten Angaben in Klammern hinter die V2.xx-An- 
gaben gesetzt. 

Ab dem 10. Byte jeder BAS-Datei (GFA-Datei) liegen 13 (17) Long- 
words, die der Reihe nach die Offsets der einzelnen Variablentypen- 
Blöcke zum Byte 126 (164) der Datei enthalten. Ab Byte 126 (164) 
werden nämlich 12 (16) Blöcke gespeichert, die die Variablen-, Label- 
, Prozedur- und Funktionsnamen enthalten. In den Bytes 11 bis 14 
steht also der erste Offset, der in jedem Fall 0 ist, da ja der Offset 
sich auf Byte 126 (164) bezieht und der erste Block bei Byte 126 (164) 
beginnt. Dieser erste Block enthält alle Real-Variablennamen, die im 
Programm verwendet wurden. 

Daran schließen sich die Offsets für String-, Integer- und Boole-Va- 
riablennamen. Real-, String-, Integer- und Boole-Feldnamen, (Word- 
und Byte-Variablennamen) Label- und Prozedurnamen, (Word- und 
Byte-Feldnamen) Arithmetik- und String-Funktionsnamen an. Das 13. 
(17.) und letzte Longword dieser Reihe enthält den Offset vom 126. 
(164.) Byte zum ersten Byte des Programm-Listings. 

Das war es eigentlich schon. Mit diesen Informationen lassen sich nun 
alle Namen feststellen. Da ist nur noch das eine Problem: nämlich die 
Längen der einzelnen Namen, ohne die natürlich nicht viel auszurich¬ 
ten ist. Die Länge jedes Variablennamens steht in einem einzelnen 
Byte jeweils genau vor dem Namen. 

Das folgende Programm schreibt nun alle gefundenen Namen als 
REM-Zeilen in eine Datei mit dem Namen VARS.LST. Von dort kann 
diese Liste mit Merge in den Arbeitsspeicher geladen oder weiterver¬ 
arbeitet werden. 


Der Ausbau dieses Programms zu einem Programm, das eine echte 
Referenzliste aller verwendeten Variablen (evtl, mit Zeilennummern 


oder nach Prozeduren sortiert) 
Aufwand mehr darstellen. 


DIM b.len%(12),vtp*(12) ! 

• DIM b.len%(16),vtp$(16) I 

FILESELECT "*.BAS","",s$ ! 

' FILESELECT •'*.GFA“,‘"',s$ ! 

IF EXISTCsS) > 

OPEN ! 

SEEK #1,12 ! 

FOR i%=0 TO 11 ! 


enthält, dürfte keinen allzugroßen 


V2.XX: Feld für Blocklängen und Typen 
V3.0 : Feld für Blocklängen und Typen 
V2.XX: BAS-Programn wählen 
V3.0 : BAS-Progranm wählen 
Datei existiert? 

Datei öffnen 

File-Pointer auf Offset-Tabelle 
V2.XX: 12 Offsets 
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' FOR iX=0 TO 15 f V3.0 : 16 Offsets 

READ vtp$(iX) ! Typenbezeichnung lesen 

BGET #1,VARPTR(b.lenX(iX)),4 ! Block-Offset einiesen 
NEXT iX 

FOR iX=1 TO 12 I V2.XX: 12 Blöcke 

' FOR iX=1 TO 16 ! V3.0 : 16 Blöcke 

IF b.lenX(iX}>b.lenX(iX-1) IBlock belegt? 

SEEK #1,126+b.lenX(iX-l) IV2.xx: File-Pointer auf Blockstart 
' SEEK #1,164+b.lenX(iX-1)IV3.0 : File-Pointer auf Blockstart 
titel$=LEFT${vtp$(iX-1),LEN(vtp$(iX-1))-10) ! Blocktitel 
vblk*=vblk$+"' ■‘+CHR${13)+"' ■•+titel$+CHR$(13) !-j Titelzeile 
vblk»=vblk$+'‘' •'+STRING$(30,‘'=")+CHR$(13) l-j bilden 
FOR jX=1 TO b.lenX(iX)-b.lenX(iX-1) I Blocklänge durchgehen 
byteX=INP(#1) I Namenlänge einiesen 

ADD jX.byteX ! Zeichen-Zähler 

buff$=SPACE$(byteX) I Puffer vorbereiten 

BGET #1,VARPTR(buff*),byteX I Namen einiesen 
EXIT IF LEN(vblk$)HEN(RIGHT$(vtp$(iX-1),10)+CHR$(13))>32767 
' Exit, wenn maximale String-Länge überschritten 

IF buff$>"“ I Name gültig? 

IF LEFT$(titel$,3)<>"Pro" ! Kein Prozedurblock? 

' ... 

...(RIGHT$(vtp$(iX-1),10))+CHR$(13) I V3.0 : Zeile bilden 

..+boff*+RIGHT$(vtp$(iX-1),10)+CHRt(13) 

■ I V2.XX: Namen+Kennzeichnung einbinden 

ELSE I Prozedurblock? 

....... iX-1),9)+" ■■+buffl+CHR*( 13) 

' I Kennzeichnung+Namen einbinden 


ENDIF 

ENDIF 

NEXT jX I Nächster Name 

ENDIF 

EXIT IF LEN{vblk*)+LEN(RIGHT${vtp$(iX-1),10)+CHRS{13))>32767 
' Exit, wenn maximale String-Länge überschritten 


NEXT iX 
CLOSE 

OPEN "0",#1,"VARS.LST" 
PRINT #1;vblk* 

CLOSE 

ENDIF 

EDIT 

DATA "Real-Variablen 
DATA "String-Variablen $ 
DATA "Integer-Variablen X 
DATA "Boole-Variablen ! 

DATA "Real-Felder () 

DATA "String-Felder $() 

DATA "Integer-Felder X() 
DATA "Boole-Felder l() 

' DATA "Uord-Variablen & 
' DATA "Byte-Variablen j 


I Nächster Block 

I .LST-File öffnen 
I REM-Zeilenpoffer schreiben 


M 

II 

H 

M 

II 

II 

II 

II 

II 

II 


DATA "Labels : " 

DATA "Prozeduren Procedure" 


' DATA "Word-Felder &() " 

• DATA "Byte-Felder |0 " 

DATA "Numerische Funktionen (FN) 
DATA "String-Funktionen $ (FN$) " 



434 


Das große GFA-BASIC-Buch 


Version 3.0 

TRACE$ Im Trace-Modus aktuelle Befehlszeile liefern 

Var$=TRACE$ 

Innerhalb der durch TRON Proc bestimmten Prozedur kann durch die 
reservierte Variable TRACE$ der Text der aktuellen Programmzeile 
vor ihrer Ausführung ermittelt werden. Außerhalb dieser Prozedur ist 
TRACE$ ohne Inhalt. 

Ein Beispiel zu TRACES finden Sie unter TRON Proc. 


TROFF { TROF } Trace-Modus ausschalten 

TROFF 

Im Anschluß an TROFF ist das Programm wieder im normalen Aus¬ 
führungsmodus. TRON - sowie TRON Proc in Version V3.0 - werden 
ausgeschaltet. TROFF innerhalb einer TRON Proc-Routine hat keine 
Wirkung. 


TRON {TR} Trace-Modus einschalten 

TRON [#Kanal] 

TRON kann an jeder beliebigen Programmstelle eingesetzt werden und 
gibt ab dann während des Programmlaufs die jeweils aktuelle Pro¬ 
grammzeile aus. Der Programmablauf wird sozusagen protokolliert. 

Mit der Option #Kanal (siehe OPEN) wird in eine geöffnete Datei 
geschrieben, sonst auf dem Bildschirm. 

Beispiel: 

Open "0",#99,"TR0NFILE.LST" 

Tron #99 

Ab hier werden alle nachfolgend ausgeführten 
Progranmzeilen in die Datei TRONFILE.LST 
geschrieben. Da die TRON-Zeilen im ASCII- 
Format Merge-fähig ausgegeben werden, kann 
man diese Protokoll-Datei ohne weiteres in 
den Progranmspeicher laden. 

Troff 

Ab hier wird das Programm ohne Ausgabe der 
Zeilen fortgesetzt. 
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Version 3.0 

TRON Proc {TR} Trace-Modus in Prozedur lenken 

TRON Prozedurname 

Dies ist eine V3.0-Variante des bekannten TRON-Befehls. 

Sie lenkt den Trace-Modus in die durch Prozedurname angegebene 
Prozedur um. Dabei wird nicht - wie bei TRON - automatisch die 
aktuelle Befehlszeile ausgegeben, sondern es kann beliebig auf die 
durch TRACES ermittelte, als nächstes auszuführende Befehlszeile 
oder ggfs, auf die durch DUMP ermittelten Variableninhalte reagiert 
werden. 

Auch TRON Proc wird ggfs, durch TROFF deaktiviert. Von TRON 
und TRON Proc hat immer der jeweils zuletzt verfügte Befehl Priori¬ 
tät. TRON hebt also TRON Proc auf - und umgekehrt. 

Möchten Sie eine Debugging-Routine selbst schreiben, so kann Ihnen 
TRON Proc dabei nicht helfen, denn sowohl die Interrupt-Routinen 
AFTER X GOSUB und EVERY x GOSUB, als auch die hier angege¬ 
bene Debugging-Prozedur werden von der TRACES-Ausgabe ausge¬ 
schlossen. 


Beispiel 

Die folgenden beiden Prozeduren sind etwas umfangreicher (die zweite 
mehr als die erste), aber sie haben es auch in sich. Die erste Prozedur 
mitsamt des kleinen Demo-Programms dient hier eigentlich nur als 
Vordergrund-Programm für die TRON-Proc-Routine. Dieses "Hilfs"- 
Programm soll hier nicht näher erläutert werden. Was es kann und wie 
man damit umgeht, ergibt sich aus der Demonstration und aus dem 
Programm-Kommentar. 

Bei der TRON-Proc-Routine komme ich jedoch nicht um eine Bedie¬ 
nungsanleitung herum. Die Prozdur selber ist ausführlich kommentiert, 
wobei es jedoch in der gegebenen Kürze nicht möglich ist, jede Ein¬ 
zelheit zu erklären. Dazu ist die Routine zu komplex. Damit jene, die 
sich ernsthaft mit der Programmierung dieser Trace-Prozedur ausein¬ 
andersetzen möchten, nicht zu kurz kommen, folgt dem Listing eine 
Aufstellung der verwendeten Variablen und ihrer Bedeutungen. Diese 
Routine wurde übrigens hochoptimiert in einer V3.0-typischen Struk¬ 
tur geschrieben. Sie ist wohl hier im Buch neben der AES-Objekt- 



436 


Das große GFA-BASIC-Buch 


Programmierung das treffendste Beipiel für die Programmierung in 
V3.0. Die Prozedur ist nicht leicht zu durchschauen, in V2.xx wäre sie 
jedoch um ein vielfaches komplizierter. 

Sie ist übrigens in Hires, Midres und Lowres lauffähig. Ein Umstand, 
den viele Programmierer nicht bedenken bzw. nicht beherrschen. Es 
ist meist relativ einfach, Hires-Programme nach Midres zu übertragen, 
da hauptsächlich die Y-Koordinaten und Texthöhen etc. einfach nur 
halbiert und die Farbmöglichkeiten berücksichtigt werden müssen. 
Eine Übertragung nach Lowres ist dagegen aus vielen Gründen 
äußerst kompliziert, da es hier nicht mehr reicht, einfach die X-Ko- 
ordinaten zu halbieren. In diesem Fall müssen dermaßen viele Klei¬ 
nigkeiten bedacht werden (Textlängen, Texthöhen, max. Zeilenlänge, 
Bit-Planes, Farben etc.), daß die meisten Programmierer davor schlicht 
resignieren. 

Utilities dagegen - vor allem für eine Programmiersprache - sollten 
dagegen in allen Stufen lauffähig sein. Die Erfahrung zeigt, daß dies 
mit einiger Übung doch machbar ist. 


Bedienungsanleitung 

Die Prozedur läuft im Hintergrund mit. Merklich ist das daran, daß 
das Hauptprogramm sichtlich langsamer abläuft, als es unter normalen 
Umständen der Fall wäre. 

Die Trace-Routine wird aufgerufen, indem die <Control>- in Verbin¬ 
dung mit der linken <Shift>-Taste gedrückt wird. Das Programm 
stoppt dann ggfs, solange, bis diese Tastenkombination wieder losge¬ 
lassen wird. 

Es erscheint am unteren Bildrand die aktuell bearbeitete Befehlszeile, 
bevor sie ausgeführt wird. Beim ersten Aufruf erfolgt diese Ausgabe 
so schnell, daß nichts zu erkennen ist. Das braucht Sie nicht zu ärgern, 
denn jetzt geht es erst richtig los. Solange die Ausgabe "in Bewegung 
ist" können Sie über die vier <Pfeil>-Tasten, die <Undo>- sowie die 
<ClrHome>-Taste in Verbindung mit der linken (!) <Shift>-Taste fol¬ 
gende Aktionen auslösen: 

<Shift><Pfeil-linkB> 

Der AuBgabebereich wird um eine Zeile nach oben bewegt. 
<Shift><PfeiI~rechtB> 

Der AuBgabebereich wird um eine Zeile nach unten bewegt. 
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<Shift><Pfeil-hoch> 

Ist die unterste Ausgabeseile unterhalb der 6. Cursor-Zeile, wird der 
Ausgabebereich um eine Zeile erweitert. 

<Shift><PfeiI-hoch> 

Ist der Ausgabebereich höher als eine Zeile, so wird er um eine Zeile 
vermindert. 


Bei diesen vier Aktionen wird der Originalhintergrund des Programms 
weitestgehend restauriert. Bildschirmausgaben des Hauptprogramms 
innerhalb des geöffneten Debugger-Fensters können dabei jedoch 
nicht berücksichtigt werden. 

<Shift><ClrHome> 

Pausen-Einstellung. Bei jeder Betätigung dieser Kombination wird der 
PAUSE-Wert um 1 erhöht. Wird der Wert 20 überschritten, beginnt 
die Zählung wieder bei Null. Diese Pause ist nur wirksam, solange die 
Ausgabe geöffnet ist. 

<Shift><Delete> 

Schaltet die Variablen-Verfolgung (Follow) abwechselnd an und aus. 
Ist die Verfolgung angeschaltet, so wird das Programm immer dann in 
den Einielschrittmodus geschaltet, sobald der am Prosedur-Anfang an¬ 
gegebene Variablenname in TRACEt enthalten ist. Das kann natürlich 
auch der Fall sein, wenn die Variable in Ausdrücken enthalten ist, aber 
ihr Inhalt nicht verändert wird. Um eine Programmunterbrechung nur 
dann susulassen, wenn dieser Variablen etwas xugewiesen wird, ist als 
Suchbegriff die entsprechende Zuweisungsform ansugeben (x.B. Var= 
oder ADD Var). Wie auch bei der unten beschriebenen Sequene-Suche 
ist hier die Form der Schreibweise unerheblich. 

Im Falle, daß die angegebene Variable in TRACE$ enthalten ist, wird 
bei numerischen Variablen neben der angeseigten - als nächstes aus- 
xufUhrenden - Programmeeile der Inhalt der Variablen am rechten 
Bildrand angexeigt. Bei String-Variablen werden max. die ersten 74 (in 
Lowres 34) Zeichen des Inhalts angexeigt. 

Danach wartet der Debugger auf einen Tastendruck, woraufhin die als 
nächstes ausxuführende Zeile angexeigt wird. In beiden Fällen wird der 
Variableninhalt VOT der angegebenen Zeile ausgegeben. Sie können die 
nächste Zeile nun durch <Undo> ausführen lassen und daran an¬ 
schließend in den Direktmodus wechseln, um dort den neuen Inhalt xu 
erfragen oder sich über den DUMP-MenUpunkt (<Shift><Ineert>) den 
Inhalt anxeigen lassen. 

Damit die Proxedur den Variableninhalt ermitteln kann, müssen Sie die 
gewünschte Variable vor Programmstart in das Debugger-Listing ein¬ 
binden (siehe die beiden mit **FOLLOW** markierten Proxedurteile). 

<Shift><Undo> 

Step-Modus. 


Beachten Sie, daß die oben genannten Debugger-Funktionen nur bei 
laufender Anzeige möglich sind. Im letztgenannten Step-Modus sind 
dieses Funktionen außer Kraft. In diesem Modus bleibt die Ausgabe 
und das Programm stehen und Sie haben nun folgende Möglichkeiten: 
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<Undo> Nächste ProgramiriKeile ausfUhren. 

<Shift><Undo> 

Step'Modus aus. Weiter mit laufender Zeilenaneeige. 

<Shift><HeIp> 

Das Programm wird durch STOP unterbrochen. Sie befinden sich an¬ 
schließend in der Direkt-Eingabeebene, von wo aus Sie auch in den 
Programm-Editor wechseln können (<Esc><Retum>). Soll das Pro¬ 
gramm bei der aktuellen Befehlsteile fortgesettt werden, geben Sie im 
Direktmodus CONT ein. 

Bedenken Sie dabei, daß durch Änderungen im Listing sämtliche Vari¬ 
ablen gelöscht und offene Dateien geschlossen werden. 

<Shift><Insert> 

Es erscheint ein Menü. 


Dieses Menü hat vier Auswahl-Punkte: 

Sequene Ermöglicht die Eingabe einer Zeilen-Sequene. Sobald eine Zeile ausge- 
fUhrt wird, in deren Text die angegebene Sequent enthalten ist, schal¬ 
tet die Trace-Routine automatisch in den Step-Modus, auch wenn die 
Zeilenanteige geschlossen ist. 

Ist die Routine schon im Step-Modus, geschieht vorerst nichts. Diese 
Suchvorgabe eignet sich vor allem datu, eintelne Programmteilen tu 
überwachen. Da in TRAGE! der Text der als nächstes austuführenden 
Programmeeile steht, wird so erreicht, daß die tu überwachende Zeile 
vor Ausführung angeteigt wird, um dann mit dem Eintelschritt-Ver¬ 
fahren beobachten tu können, was diese Zeile bewirkt. 

Die tweite Möglichkeit besteht darin, einen oder mehrere "Breakpoints" 
in das Programm eintubauen (t.B. als Label: Breakpoint^l:), so daß 
das Programm immer dann unterbrochen wird, sobald es diese(n) 
Breakpoint(s) erreicht hat. Wird die Sequent-Abfrage ohne Eingabe 
einfach durch <Retum> quittiert, ist die Sequent-Überwachung aus¬ 
geschaltet. Die Form der Schreibweise (Groß/Klein) ist bei Angabe der 
Sequent unerheblich, da sowohl TRACEl als auch die Sequent vor der 
Überprüfung durch INSTR von der Funktion UPPERS in Großschrift 
umgewandelt werden. 

DUMP Erwartet die Eingabe eines 2 Zeichen langen DUMP-Parameter-Strings 
(siehe DUMP). 

Memo Erwartet die Eingabe einer Adresse, ab welcher der aktuelle Speicher¬ 
inhalt in Hex-Longs und ASCII-Zeichen ausgegeben wird. 

Screen Erwartet die Eingabe einer Adresse, ab welcher 32000 Bytes gelesen 
und anschließend in den Bildschirmspeicher übertragen werden. 


Ist die Zeilenanzeige geöffnet, kann generell durch erneutes Drücken 
der Anfangskombination <Control><Shift-links> das Programm normal 
fortgesetzt werden. Dies gilt auch im Einzelschritt-Verfahren. 

Von der Routine werden bis auf zwei Kleinigkeiten keinerlei Verän¬ 
derungen an vorhandenen Einstellungen vorgenommen. Die zwei Klei¬ 
nigkeiten bestehen darin, daß bei jedem Durchlauf der PRINT-Zei- 
lenüberlauf ein- (CHR$(27);"v" siehe PRINT) und ggfs, "revers"- 
PRINT ausgeschaltet wird (CHR$(27);"q" siehe PRINT). 
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Man soll sich ja nicht selbst auf die Schulter klopfen, aber diese Rou¬ 
tine ist für meine Begriffe so gut gelungen, daß ich ihr liebevoll den 
Namen "Debbie" gegeben habe. 



TRON debbie I Trace-Rout ine initialisieren 

xtX=2-SGN(XBIOS(4)) I X-Auflösungsteiler 

ytX=MIN(2,3-XBIOS(4)) I Y-Auflösungsteiler 

DEFFILL ,2,4 I DEFFILL grau 

PBOX 0,0,640/xtX,400/ytX 

DEFFILL ,0,0 ! DEFFILL weiB 

PBOX 10/xtX,3/ytX,275/xtX,36/ytX 

DEFTEXT ,1,,26/ytX I DEFTEXT Fett-Mammut 

TEXT 10/xtX,30/ytX,264/xtX,” DISTORT - Demo " 

adistort(9/xtX,3/ytX,265/xtX,34/ytX,300/xtX,120/ytX,... 

...6/ytX,2,22,0,0,1,1,12) 

adistort(28/xtX,7/ytX,145/xtX,30/ytX,310/xtX,220/ytX,... 

...-15/ytX,2,22,0,0,0,2,3) 

adistort(9/xtX,3/ytX,265/xtX,34/ytX,430/xtX,190/ytX,... 

...35/ytX,2,1,0,1,0,0.7,13) 

adistort(9/xtX,3/ytX,265/xtX,34/ytX,50/xtX,230/ytX,... 

...250,2,2,1,0,0,4,11) 

DIH b$(20) ! DIM Einzelbild-Puffer 

PRINT AT(2,24);"Bitte Geduld" 

GET 20/xtX,56/ytX,270/xtX,170/ytX,a$ ! Hintergrund sichern 
FOR iX=5 TO 100 STEP 5 ! 20 mal 

adistort(28/xtX,7/ytX,145/xtX,30/ytX,(20+IX)/xtX,... 

...110/ytX,-30+iX/2,1,1,0,1,0,2-(iX/50),7) 

GET 20/xtX,56/ytX,270/xtX,170/ytX,b*((iX-5)/5) ! GET Einzelbild 
PUT 20/xtX,56/ytX,a$ ! Hintergrund restauruieren 

NEXT iX 

DO ! Kino-Schleife 

FOR iX=0 TO 20 ! 20 mal vorwärts 

PUT 20/xtX,56/ytX+iX*2,b$(iX) ! Einzelbild zeichnen 
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MEXT iX 

FOR iX=20 DOUNTO 0 I 20 mal rückwärts 

PUT 20/xtX,56/ytX+iX*2,b$(iX) ! Einzelbild zeichnen 
NEXT iX 

LOOP 

PROCEOURE distort(dxslX,dysoX,dxsrX,dysuX,dxdX,dyxlX,... 

...dwhX,dps,dsp,dvhX,dmdX,dsfX,dss,drmX> 

' Verzerrt einen Bildausschnitt horizontal 
' oder vertikal als Sinuswelle oder Gerade. 

' dxslX = Linke Ouell-X-Koordinate 

' d/soX * Obere Quell-Y-Xoordinate 

' dxsrX = Rechte Ouell-X-Koordinate 

' dysuX = Untere Ouell-Y-Koordinate 

' dxdX = Ziel-X-Koordinate 

' dydX = Ziel-Y-Koordinate 

' dirfiX = VerzerrungsmaS (beliebig, auch negativ) 

' dps = PI-Steps (= Form: Realwert von 0 bis 2.00) 

' dsp = Sinus-Potenz (beliebiger Realwert) 

‘ dvhX = Richtungs-Flag (vertikal » 0/horizontal • 1) 

' ckndX = Modus (Gerade = 0/Kurve = 1) 

• dsfX = Spiegel-Flag (aus = 0/an » 1) 

' dss = Stretch-Faktor (Realwert beliebig) 

' Bei Dss-Uerten > 2 wird nicht mehr ganzflächig 

■ dargestellt. 

' drmX = Grafikmodus (0 bis 15 siehe PUT) 


LOCAL dblX,dbrX,dsX,dlX,dvh,di,dlxX I Lokale Variablen 
dblX=dxsrX-dxslX I Blockbreite 

dbrX=dysuX-dysoX I Blockhöhe 

xydX=dydX ! Vert. Zielkoordinate 

IF dvhX ! Horizontal? 

xydX=dxdX I Horiz. Zielkoordinate 

SUAP dblX.dbrX I Breite und Höhe tauschen 

EHDIF 

DIM darr$(dblX) l DIH Scan-Zeilen-Puffer 

FOR di=1 TO dbix ! Alle Scan-Zeilen 

IF dvhX I Horizontal? 

GET dxslX,dysoX+di,dxsrX,dysoX+di,darr$(di) ! Spalte lesen 
ELSE I Vertikall 

GET dxslX+di,dysoX,dxslX+di,dysuX,darrt(di) ! Zeile lesen 
ENOIF 
MEXT di 

FOR di=-PI TO PI STEP (PI/((dblX)/(dps+1.OE-10))) 

' Einmal rundum, alle Scan-Lines 

dlX=dwhX*ABS(SIN(di))'dsp4'xydX I Zielpunkt für Scan-Line 
INC dsX I Scan-Line-Zähler +1 

dlxX=dsX I _puffern 

IF dsfX ! Spiegel-Flag an? 

dlxX=(dblX-dsX)+1 I Dann rückwärts zählen 

ENOIF 

IF dtndX=0 I Als Gerade? 

dvh=dbrX/(dwhX+1.OE-10) I Neigungsverhältnis 

dlX=xydX-(dsX/dvh) ! Neuen Zielpunkt berechnen 


dlX=xydX-(dsX/dvh) 
ENOIF 
IF dvhX 


! Horizontal? 


PUT dlX,dydX+dsX*dss,darr$(dlxX),drmX I 2 Spalten... 
PUT dlX,dydX+dsX*dss+1,darr$(dlxX),drmX ! ...zeichnen 
ELSE ! vertikal! 

PUT dxdX')^dsX*dss,dlX,darrS(dlxX),drmX I 2 Zeilen... 
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PUT dxdX+dsX*dss+1,dlX,darr$(dlxX),drinX I _zeichnen 

ENDIF 

EXIT IF dsX=dblX I Exit, wenn alle Scans durch 

NEXT di 

ERASE darrSO I Scan-Zei len-Puffer löschen 

RETURN 

I 

I **************** Debugging’Prozedur ****************** ■ 

PROCEDURE debbie I Für alle drei Auflösungen !! 

I yYyYyYy******pQ^[_Qy******yYVVVW 
I 

• tron_var|=INSTR{UPPERt(TRACE$),UPPER$("VARIABLENNAME"))... 

' ...*ABS(tron_nof!) 

I ~ 

' Soll eine Variable verfolgt werden, so ist sie bzw. die 

' entsprechende Zuweisungsform (siehe oben unter <Shift><Delete>) 

' in dieser INSTRO-Zeile als Suchbegriff in der hinteren 

■ UPPERS-Klanmer als Text-String anzugeben ("VARIABLENNAME"} 

' und die Zeile zu aktivieren. 

I 

I ‘‘******pQ^^0|^******‘ 

IF (BI0S(11,-1) AND 15)=6 OR tron_new!=TRUE OR tron_varj 
' <Control><Shift-links> gedrückt oder neue Posititon 
■ oder Variablen-Überwachung aktiv und Variable gefunden? 

UHILE (BI0S(11,-1) AND 15)=6 ! Solange <Control><Shift> 

WEND I gedrückt wird -> WEND 

tron_xtlj=2-SGN(XBI0S(A)) I X-Auflösungsteiler 
tron_ytl!=HIN(Z,3-XBI0S(4)) I Y-Auflösungsteiler 
tron_yloX=XBI0S(2)+32000-1280! Adresse der untersten Zeile 
tron_clpj=16/tron_ytlj ! Höhe einer PRINT-Zeile 

tron_bytj=80*tron_ytlj ! Bytes pro Scan-Zeile 

tron_newl=FALSE I Positionsänderungs-Flag aus 

tron_onol=tron_ono! XOR TRUE ! On/Off-Uechsel-Flag 
IF tron_ono!=TRUE I Ausgabe öffnen? 

tron_clr$=STRING$(tron_bytI,0) I Scan-Zeilenlöscher 
tron_flg!=TRUE I Eingangs-Flag setzen 

ELSE I Ausgabe schlieBenI 

BMOVE V:tron_pic$,tron_staX,MAX(1,LEN(tronj3ic$)) I dann 
ENDIF I ...BiIdschirm restaurieren 

ENDIF 

tron_posj=INSTR(UPPER$(TRACE$),UPPER$(tron seqS)) I Sequenz.. 

■ I ...in TRAGES enthalten? 

IF tron_ono!=TRUE OR tron_poS| OR tron_var| I On/Off-Flag... 

' ...gesetzt, Follow-Variabie oder Sequenz gefunden? 

PAUSE tron_pau| I Ausführungspause 

IF tron_ono!=FALSE OR tron_flg!=TRUE ! Sequenz gefunden... 

' I ...oder Öffnungs-Flag gesetzt? 

tron_flg!=FALSE I Öffnungs-Flag löschen 

tron_ln2j=tron_ln1j ! Neue Zeilenposition 

tron_ln3S=tron_ln2j*1280 ! FenstergröBe in Bytes 

t ron_staX=t ron_yloX-1ron_ln3&-1 ron_scn j * t ron_byt j 
' Startadresse des Anzeige-Fensters 
tron_pic$=SPACE$(tron_ln3&+1280+tron_scnj*tron_byt j) 

' Hintergrund-Puffer vorbereiten 

BMOVE tron_staX, V: t ronji c$, MAX(1, LEN(tronjai c$) ) 

' Ausgabe-Hintergrurxl in Puffer übertragen 
tron_ono!=TRUE ! On/Off-Flag setzen 

ENDIF 

BMOVE V:tron_clr$,tron_yloX+1280-tron_ln3&-tron_byt j__ 
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.. .MAX(1,tron_byt|) 

' Unterste Scan-Zeile der Ausgabe löschen (Kosmetik) 
tron_sta5l=tron_yloX-tron_ln3&-tron_scn|*tron_byt j 
' Neue Startadresse des Ausgabebereichs berechnen 
FOR iX=0 TO 15/tron_ytl| ! 16 biu. 8 mal 
BMOVE tron_staX+tron_byt j,tron_staX,MAX(1,(1280-... 

...tron_byt j)+tron_scn[*tron_byt j) 

' Ausgabe-Fenster je um eine Scan-Zeile aufwärts 
NEXT iX 

PRINT CHR$(27);"w"; ! Zeilenuberlauf aus 

tron_cscj=CRSCOL ! Akt. Cursor-Spalte speichern 

tron csl{=CRSLIN I Akt. Cursor-Zeile speichern 

PRINT AT(1,25-tron_ln2|);LEFT$(TRACES,80/tron_xtlj); ITRACE* 
PRINT CHR$(27);"K"; ! Zeilenrest löschen 

IF tronjX)s| ! Such-Sequenz gefunden? 

PRINT CHR$(27);"p"; I PRINT revers 

FOR tron_cnt|=1 TO MIN(80/tron_xtl|,LEN(TRACE»)) 

' Alle Zeichen von TRACES einzeln... 

PRINT AT(tron_cnt|,25-tron_ln2|);MID$(TRACE$,tron_cnt|,1); 

' Schwarz schreiben (optisches Signal für "gefunden") 

NEXT tron cnt| 

PRINT CHR*(27);"q"; I PRINT schwarz auf weiB 

PRINT AT(1,25-tron_ln2|);LEFT$(TRACE$,80/tron_xtl|); 

' TRACES wieder normal ausgeben 

IF tron_poS|<(80/tron_xtlj)! Gefundene Sequenz im... 

' I _BiIdschirmbereich? 

PRINT CHR$(27);"p"; ! PRINT revers 

PRINT AT(tron_pos|,25-tron_ln2|);LEFT$(tron_seq$,... 

...(80/tron_xtl|-tron_posj+i)); 

■ Gefundene Sequenz schwarz markieren 

PRINT CHR$(27);"q"; I PRINT schwarz auf weiB 

ENDIF 
ENDIF 

IF (BI0S(11,-1) AND 15)=2 I Linke <Shift>-Taste gedrückt? 
KEYTEST tron_keyX I Tastatur Abfragen 

LPOKE XBIOS(H,1)+6,0 I Tastatur-Puffer löschen 

SELECT tron_keyX ! <Taste> selektieren 

CASE &H2480Ö38 I <Pfeil-hoch>-Taste gedrückt? 

IF tron_scn|<96/tron_ytlI AND tron_ln2j<19 

' Unterste Zeile unterhalb der 6. Cursor-Zeile und 
■ Ausgabehöhe kleiner als 6 Cursor-Zeilen? 

ADD tron_scn|,tron_clp| ! Fensterhöhe ♦ Cursor-Höhe 
tron_buf$=SPACE$(tron_clpj*tron_bytI) I Zeilen-Puffer 
tron_staX*tron_yloX-tron_ln34-tron_scnj*tron_bytI 
' Neue Startadresse des Ausgabebereichs berechnen 
BMOVE tron_staX,V:tron_buf$,MAX(1,tron_clp|*tron_byt j) 

' Zeilenhintergrund in den Puffer übertragen 
tron_pic$=tron_buf$+tronjDicS ! Neue Zeile in den... 

ENDIF ! ...Haupt-Puffer einbinden 

CASE &H2S00032 I <Pfeil-runter>-Taste gedrückt? 

IF tron_scn|>0 I Zusatzzeilen bereits offen? 

SUB tron_scnj,tron_clp[I Fensterhöhe - Cursor-Höhe 

tron_staX=tron_yloX-tron_ln34-tron_scn|*tron_byt j 
' Neue Startadresse des Ausgabebereichs berechnen 
BMOVE V:tron_pic$,tron_staX-tron_clpj*tron_byt|,... 

...MAX(1,tron_clp|*tron_byt]) 

' Zeilenhintergrund restaurieren 
tron_pic$=RIGHT$(tron_pic$,LEN(tron_pic$)-... 

...tron_clp|*tron_byt j) 
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■ Zeile aus dem Haupt-Puffer löschen 
ENDIF 

CASE &H24B0034 I <Pfeil-links>-Taste gedrückt? 

IF tron_scn|=0 I Keine Zusatzzeilen offen? 

tron_ofs|=24 I Dann Ausgabezeile bis... 

■ I ...ganz oben möglich 

ELSE I Zusatzzeile(n) offeni 

tron_ofs|=18 ! Dann nur bis zur 6. Zeile 

ENDIF 

IF tron_ln2|'<tron_ofs| I Ausgabezeile noch nicht oben? 
tron_ln1j=HIN(tron_ln2j+1,tron_ofsj) I Neue Zeilenposition 
tron_ono!=FALSE I On/Off-Flag ausschalten 

tron_neHl=TRUE I Positionsänderungs-Flag setzen 

PAUSE 2 I Kleine Pause, damit der Tasten-Code 

' nicht ans Hauptprogranm ueitergeht (nicht ganz vermeidbar). 
ENDIF 

CASE tH24D003ö I <Pfeil-rechts>-Taste gedrückt? 

IF tron_ln2j>0 I Ausgabezeile noch nicht unten? 

tron_ln1|=MAX(tron_ln2j-1,0) I neue Zeilenposition 
tron_onol=FALSE I On/Off-Flag ausschalten 

tron_newl=TRUE I Positionsänderungs-Flag setzen 

PAUSE 2 {Kleine Pause 

ENDIF 

CASE &H2470037 I <ClrHome>-Taste gedrückt? 

tron_pau|={tronjMuj+4) MOO 44 I PAUSE-Wert setzen 
PRINT AT<70-(40*(tron_xtl|-1)>,25-tron_ln2j);”PAUSE:";... 

...tron_pauj; I Pausenwert anzeigen 

CASE &H2610000 I <Undo>-Taste gedrückt? 

tron_stp!=TRUE I Einzelschrittmodus an 

CASE 4H253007F I <Dclete> gedrückt? 

tron_nofl=tron nof! XOfi TRUE I Follou an/aus 
ENDSELECT 
ENDIF 

IF tron_stpl=TRUE OR tron_posj OR tron_var[ lEinzelschritt- 
■ Modus an, bzu. Follou-Variable oder Sequenz gefunden? 
tron_stpl=FALSE I Einzelschritt-Flag aus 

I vvvvvvv******FOLLOW******vvvvwv 

I 

IF tron_varj ! Follou-Variable gefunden? 

' .Verfolge nunerische Variable. 

' Soll eine numerische Variable verfolgt werden, so ist 
' sie hier hinter tron_var= anzugeben und die beiden 
' Prograninzeilen zu aktivieren. 

' tron_var=dblX I Beliebiger Typ (XÜ,) 

' Z.B.: tron_var=Var& 

' PRINT AT(80/tron_xtl|-LEN(STR$(tron var))-7,... 

...25-tron_ln2|);CHR$(27);"K'',-" [VAR:";tron_var; 

' .Verfolge alphanunerische Variable. 

' Soll eine String-Variable verfolgt werden, so ist sie 
' hier hinter tron_vr2$= anzugeben und die folgenden 
' vier Programmzeilen zu aktivieren. 

' tron vartsaS I z.B.: tron_var$»Var$ 

' PRINT AT(1,25-tron_ln2|);CHR$(27);"K'';"VAR$:'';... 

...LEFT$(tron_var$,80/tron_xtlI-5); 

' KEYGET tron keyX I auf <Taste> warten 

' PRINT AT{1,25-tron_ln2|);LEFT$(TRACE$,80/tron_xtl|); 

ENDIF I TRACEt nochmal ausgeben 
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• .******F0LL0W******. 

REPEAT ! Einzelschritt-Schleife 

KEYTEST tron_lcey* ! Tastatur abfragen 

SELECT tron key* I <Taste> selektieren 

CASE &H2620Ö00 I <Shift><Help> gedrückt? 

SGET tron_scr$ I Bi Idschirtn sichern 

STOP ! In Direktmodus wechseln 

' Nach Fortsetzung durch CONT im Direktmodus: 

TRON debbie I TRON neu initialisieren 

SPUT tron_scr$ ! Bildschirm restaurieren 

CLR tron_scr$ I Puffer löschen 

GOTO tron_lab ! Zum Ausgangs-Label 

CASE &H2520Ö30 ! <Shift><Insert> gedrückt? 

SGET tron_scr$ ! BiIdschirm sichern 

PRINT AT(1,25-tron_ln2l);CHR${27);"K";CHR$(27);"w"; 

' Cursor positionieren, Zeile löschen und Überlauf aus 
PRINT "<1>=Sequenz|<2>=0UMP|<3>=Heitioj<4>Screenj"; I Menü 
KEYGET tron_modj I Auf <Taste> warten 

SELECT tron_mod| I <Taste> selektieren 

CASE "1" I "1“ gedrückt? 

PRINT AT(1,25-tron_ln2|);CHR$(27);"K";CHRt(27);"w"; 

‘ Cursor positionieren, Zeile löschen und Überlauf aus 
INPUT “Sequenz => ",tron_seq$ I Zeilensequenz eingeben 
CASE "2" I “2" gedrückt? 

PRINT AT(1,25-tron_ln2|);CHR$(27);"w"; 

' Cursor positionieren und PRINT "Überlauf aus" 

PRINT "DUMP => "; 

PRINT CHR$(27);"K"; ! Zeile löschen 

FORM INPUT 2,tron_dmp$! DUHP-Parameter eingeben 

CLS ! Bildschirm löschen 

DUMP tron_ckTip$ I DUMP ausführen 

PRINT CHR$(10);CHR$(13);" Weiter mit <Taste>"; 

KEYGET tron_keyX I Auf <Taste> warten 

CASE "3" 

PRINT AT(1,25-tron ln2j);l Cursor positionieren 

PRINT "Start-Adresse (HEX='$_') => "; 

PRINT CHR$(27);"K"; ! Zeilenrest löschen 

FORM INPUT 7,tron_Bdr$ I Startadresse eingeben und... 

tron_adrX=INT(VAL(tron_adr$)/2)*2 I Auf "gerade" trimmen 

CLS I Bildschirm löschen 

PRINT "Start-Adresse :"'tron_adrX;CHR$(10) 

FOR tron_cnt]=0 TO 69-(42*(tron_xtl|-1)) I Nach Auflösung 
IF tron_cnt| MOO 10=0 ! Alle zehn Longwords... 

PRINT "Offset : +";tron_cnt]*4 ! ...neue Zeile 
ENDIF 

tron_lonX=LPEEK(tron_adrX+tron_cnt|*4) I LPEEKen 
PRINT 'RIGHT*{"00000000"+HEX*(tron_lonX),8);' 

' HEX-Uert formatieren und ausgeben 

OUT 5,BYTE{V:tron_lonX>,BYTE{V:tron_lon*+1},... 

...BYTE{V:tron_lon%+2>,BYTE{V:tron_lonX+3> 

' Einzel-Bytes als Textzeichen ausgeben 
PRINT •"I";SPACE$(4*(tron_x111 -1)); 

NEXT tron_cntj 

PRINT CHR$(10);CHR$<13);" Weiter mit <Taste>"; 

KEYGET tron_key* I Auf <TBSte> warten 
CASE "4" ! "4" gedrückt? 

PRINT AT(1,25-tron ln2[);! Cursor positionieren 

PRINT "Start-Adresse (HEX=*$_■) => "; 

PRINT CHR*(27);"K"; ! Zeile löschen 
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FORM INPUT 7,tron adr$ ! Startadresse eingeben 
tron_adrX=MAX(2048,IMT(VAL(tron_adr$)/2)»2) I "trinmen" 
' minimale Adresse = 2048 (nur im User-Bereich) 

BMOVE tron_adrX,XBI0S{2),32000 I 32000 Bytes in den 
' Bildschirmspeicher übertragen 
PRINT AT(1,1);" Weiter mit <Taste>"; 

KEYGET tron_ltey* I Auf <Taste> warten 

ENOSELECT 

SPUT tron_scr$ I Bildschirm restaurieren 

CLR tron scrS I Puffer löschen 

ENOSELECT “ 

IF tron_keyX=&H610000 ! <Undo> gedrückt? 

tron_stp!=TRUE ! Einzelschritt-Flag wieder an 

PAUSE 10 I Kleine Pause 

ENDIF 

EXIT IF tron_key*=&H2610000 I Exit, wenn <Shift><Undo> 

EXIT IF (BIOS(11,-1) AND 15)=6 I Exit, wenn 
‘ <Control><Shift-links» gedrückt 
UNTIL tron stp!=TRUE I Exit, wenn neues Flag gesetzt 

LPOKE XBIOS{14,1)+6,0 I Tastatur-Puffer löschen 

ENDIF 

PRINT AT(tron_csc|,tron_cslI);CHR$(27);"v"; ! Cursor auf... 

' ...alte Position setzen und Zeilenüberlauf "an" 

IF tron_ono!=FALSE I On/Off-Flag aus? 

BMOVE V:tron_pic$,tron_staX,MAX{1,LEN(tron_pic*)) ! dann... 

■ I ...Bildschirm restaurieren 


ENDIF 


ENDIF 


tron lab: 


I Ausgangs-Label für CONT-Sprung 


RETURN 


und zurück 


Und nun die versprochene Variablenliste: 

tron_adr$ String-Eingabepuffer für Adresse bei Memo, Screen. 
tron_adr% Startadresse für Memo und Screen. 
tron__buf$ Zwischenpuffer für eine Hintergrund-Zeile. 
tron_byt| Enthält die Ansahl der Bytes pro Scan-Zeile 
(Hires=80/Midres=160/Lowres=160). 
tron__clp| Enthält die Höhe einer Cursor-Zeile in Pixel 
(Hires=16/Midres=8/Lowre8=8). 

tron_^clr$ Enthält eine Scan-Zeile mit Null-Bytes sum Löschen der untersten 
Ausgabe-Scan-Zeile (Bildschirmkosmetik). 
tron_cnt| Schleifeneähler für die verwendeten Zähl-Schleifen. 
tron_c8c| Gemerkte Cursor-Spalte vor der Aneeige. 
tron_CBl| Gemerkte Cursor-Zeile vor der Anaeige. 
tron_dmp$ String-Eingabepuffer für DUMP-Parameteraeile. 
tron_flg! Flag sum Öffnen der Ausgabe (quasi der Schlüssel). 
tron_key% Puffer für gedrückte Tastatur-<Taate>. 
tron_lnl| Bei Positionsänderung ist dies die neue Cursor-Zeile. 
tron_ln2| Enthält die aktuelle Ausgabe-Cursor-Zeile. 

tron_ln3^ Enthält die Grö8e des Ausgabe-Fensters in Bytes (Anaahl der Scan- 
Lines * Bytes pro Scan-Line). 
tron_lon% Jeweils gelesenes Longword bei Memo. 
tron_mod| Die beim Einaelschritt-Menü gedrückte <Ta8te>. 
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tron_newl 
tron nofi 


tron_of8| 
tron ono! 


tron_pau| 

tron_pic$ 

tron_po8| 

tron_scn( 

tron^fcrl 

tron_8eq$ 

tron__8ta% 

tron_8tp! 

tron_var| 

tron_var 

tron_var$ 

tron_xtI| 

tron_ylo% 

tron_ytl| 


Flag, das aussagt, dafi b«i Positions&ndarung das Ausgababaraichs baim 
nlichstan Durchlauf dia Ausgaba automatisch wiadar gaöffnat wird. 
Wechsel-Flag, das darüber antschaidat, ob dia angagabana Follow-Va- 
riabla überwacht werden soll oder nicht (siehe oben unter <Shift>- 
<Delete>). 

Dieses Flag ist bei Programmstart ausgeschaltat, da ggfs, bei Überwa¬ 
chung von Feld-Variablen erst dia tugahüriga DIM-Anwaisung über¬ 
sprungen werden mu6, um eine *Fald nicht dimansioniert"-Fahlermel- 
dung EU vermeiden. 

25 minus tron^ofsj ergibt dia Cursor-Zeile, bis eu welcher dia unterste 
AusgabaEeile verschoben werden kann. 

Wechsel-Flag, dafi bei jedem Druck auf <Control> und <Shift-link8> 
an- und ausgeschaltet wird. entscheidet darüber, ob das Fenster ge¬ 
öffnet wird. 

PAUSE-Wert für versögerte ProgrammausfUhrung. 

Enthält den aus Eintel-Cursor-Zeilen tusammengesettien Fensterhin¬ 
tergrund. 

Ggfs. Position der gesuchten Zeilensequent. 

Enthält die Ansahl der Scan-Lines, die die tusättlichen Ausgabeteilen 
benötigen. 

Puffer für die Fullscreen bei DUMP, Memo, Screen. 

Enthält ZeilensequenE, auf die gewartet werden soll. 

Startadresse des Ausgabefensters. 

Wechsel-Flag, das darüber entscheidet, ob im Eintelschrittmodus ver¬ 
harrt werden soll. 

Enthält ggfs, die Position des Follow-Variablennamens in der aktuelle 
TRACEI-Zeile. 

Numerische Real-Puffervariable für numerische Follow-Variablen be¬ 
liebigen Typs. 

String-Puffervariable für alphanumerische Follow-Variablen. 
X-Auflösungsteiler (Hires = 1/Midres = 1/Lowres = 2). 

Startadresse der untersten Ausgabeseile. 

Y-Auflösungsteiler (Hires = 1/Midres = 2/Lowres = 2). 


übrigens ist keine dieser Variablen lokal deklariert, da ich meine, daß 
bei der Wahl der Namen (alle beginnen mit tron_) die Gefahr einer 
Kollision mit den Hauptprogramm-Variablen nicht gegeben ist. 


12.9 Diverses 

Version 3.0 

$ Textbereicb für V3.0-Compiler deklarieren 

$Text 

Deklariert beliebige Programmzeilen als Textspeicher zur Weiterverar¬ 
beitung durch den V3.0-Compiler. Im Interpreter-Betrieb wird eine 
solche Zeile wie REM bzw. ’ behandelt. Nähere Informationen sind 
erst mit Erscheinen des V3.0-Compilers zu erwarten. 
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DEFLIST { DEFLIS } Listing-Format festlegen 

DEFLIST Format 

Format: 

0 Befehlenamen werden groß, Variablennamen klein geschrieben (PRINT 

var$). In V3.0 wird bei global deklarierten Variablennamen das Postfix 
vernachlässigt (Postfix siehe DEFxjcx-Befehle DEFBYT etc.). 

1 Anfangsbuchstaben von Befehls* und Variablennamen werden groß 
geschrieben (Print Varl). In V3.0 wird bei global deklarierten Vari¬ 
ablennamen das Postfix vernachlässigt. 

In V3.0: 

2 Wie 0, jedoch wird bei Variablennamen ggfs, das Postfix mit angeseigt. 

3 Wie 1, Jedoch wird bei Variablennamen ggfs, das Postfix mit angeseigt. 

DEFLIST kann nur im Interpreter-Direktmodus verwendet werden. 


DEFNUM { DEFN } Rundung von Zlffern-Ausgaben 

DEFNUM Stelle 

Stelle gibt die Ziffernstelle an (in V2.xx: 3 - 11/in V3.0: 3 - 13), auf 
die alle folgenden, - durch PRINT etc. - auszugebenden Werte gerun¬ 
det werden sollen. Diese Einstellung wird erst durch den nächsten 
DEFNUM-Befehl verändert. Durch Angabe der maximalen Stellenan¬ 
zahl (11 bzw. 13) wird die normale Werteausgabe wieder angeschaltet. 

Bei Realzahlen wird der Vorkomma-Anteil, der ggfs, hinter Stelle 
liegt, als Nullen ausgegeben. Liegt Stelle im Nachkommabereich, wer¬ 
den alle dahinterliegenden Nachkommastellen ignoriert bzw. die näch¬ 
ste Stelle hinter Stelle wird zur Rundung verwendet. 

Die Rundung erfolgt mathematisch exakt (Int(A+0.5)). In diesem For¬ 
mat ausgegebene Variableninhalte bleiben von DEFLIST unberührt. 
Die interne Rechengenaugkeit wird hierdurch nicht beeinträchtigt. 

Beispiel: 

A=Randoni( 1000000)+Rnd 

Print "Originalwert: ";A;Chr${10) 
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For IX=3 To 11 
Defnun IX 

Print A,"DEFHUH ";IX 
Hext IX 


FALSE Unwahr-Konstante 

Var=FALSE 

Reservierte Variable. Enthält konstant den Un-Wert 0. 


LET { LE Daten zuweisen 

LET Var=Wert 
LET Var$=Text 

Es wird Wert bzw. Text der angegebenen Variablen zugewiesen. 

Die Benutzung von LET birgt bei der Version 2.0 den Vorteil, daß die 
Variable Var mit einem beliebigen Namen (auch Befehlsnamen, außer 
Namen reservierter Variablen wie PI, ERR, FATAL, TIMER etc.) be¬ 
nannt werden kann. 

Ab V2.02 ist LET überflüssig, da es dort bei Variablennamen keine 
Einschränkungen (außer PI, ERR, FATAL, TIMER etc.) mehr gibt. 
Hier hat LET nur noch den Zweck der Kompatibilität zu den BASIC- 
Dialekten (z.B. ST-BASIC), deren Programme man durch Merge in 
den GFA-Arbeitsspeicher laden kann. 


Version 3.0 

MODE {MOD} Zahlen/Datum-> £uröpa/USA wählen 

MODE Modus 

In der Grundeinstellung werden in GFA-BASIC durch PRINT USING 
Werte im Europa-Format ausgegeben. D.h. ggfs, daß als Tausender¬ 
trennung ein Komma und als Dezimaltrennung ein Punkt verwendet 
wird. In den USA gelten die umgekehrten Konventionen. Ähnliches 
gilt für die Darstellung des Datums (siehe SETTIME). 

Modus ist als 2-Bit-Vektor anzusehen, dessen Bit 0 die Darstellung des 
Datums durch DATES und FILES bzw. über das Eingabeformat des 
Datums bei SETTIME und DATE$= bestimmt. Bit I entscheidet über 
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die zu verwendende Art der Werte-Darstellungsart bei PRINT 
USING-Ausgaben bzw. bei Verwendung von STR$(). 


Modus 

USING 

DATES 

&X00 

# ###.## 

25.05.1988 

&X01 

# ###.## 

05/25/1988 

&X10 

## 

25.05.1988 

&X11 

#.###,## 

05/25/1988 


OPTION {OPT} Compiler-Steuerung 

OPTION "Anweisung' 

- Gilt vorerst nur für die Versionen V2.xx - 

Dem GFA-BASIC-V2.xx-CompiIer können Arbeitsanweisungen über¬ 
mittelt werden, die darüber entscheiden, ob bestimmte Compileroptio¬ 
nen in das jeweilige GFA BASIC-Compilat eingebaut werden sollen 
oder nicht. 

Anweisung: Bedeutung; 

"UO** Die Break'Funktion <Control/Shift/AUernate> wird nicht in daa 

Compilat eingebaut. Eine Programmversweigung durch ON BREAK 
GOSUB ist nicht möglich. 

"Ul" An der Programmstelle, wo "Ul" verfügt wird, wird nur einmal 

überprüft, ob die Break*Tasten gedrückt wurden. 

"U2" Vor jedem Schleifen-Wendepunkt (LOOP,UNTIL,WEND,NEXT), sowie 

vor jedem GOTO-Befehl wird eine Abfrage eingebaut. 

"US" Es werden nach jedem Befehl einmal die Breaktasten abgefragt. Das 

Compilat reagiert dann wie der Interpreter, ist jedoch wesentlich lang* 
samer als bei "UO" bsw. "Ul". 

"T-" Ein evtl, auftretender Integer-Überlauf (e.B. A%=2*32) wird nicht 

kontrolliert. 

"T+" Es wird eine Routine in das Compilat eingefügt, die den Integer-Über¬ 

lauf kontrolliert und ggfs, eine Fehlermeldung produsiert. 

"E-" Bei Fehlermeldungen wird lediglich die Fehlemummer (siehe ERR), 

sowie der Hinweis "PC>|00xxxxxx" ausgegeben. 

"E+” Es werden im Compilat ausführliche Fehlermeldungen ausgegeben. 

"B-" Bei Bomben-Fehlern (ERR > 100) erolgt der schon fast vergessene 

Parade-Absturs. Der ON ERROR GOSUB-Befehl bleibt wirkungslos. 

"B+" Es werden Routinen in das Compilat eingebaut, die auch Bomben- 

Errors abfangen und ggfs, eine Fehlermeldung ausgeben bsw. eu einer 
angegebenen ON ERROR GOSUB-Routine vcrsweigen. 


Bei allen "+”-Optionen ist mit teilweise erheblichen Geschwindigkeits¬ 
verlusten und umfangreicheren Compilaten zu rechnen. 

Widersprechen sich die Options-Verfügungen, registriert der Compiler 
nur die letzte Verfügung. Wurde z.B. zuerst "U3" verfügt und an spä- 
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terer Programmstelle "UO", wird die Break-Routine nicht eingebunden, 
da nur die letzte Verfügung ("UO") Gültigkeit behält (vgl. 24.1 "Der 
V2.xx-Compiler"). 


TRUE Wahr-Konstante 

Var=TRUE 

TRUE ist eine reservierte Variable, die konstant den Wert -1 enthält. 


Bei verschiedenen Funktionen (z.B. EXIST) wird ein Wahrheitswert 
zurückgegeben. Zur besseren Übersichtlichkeit kann bei Bedingungs¬ 
abfragen dieser Art, bei Bit-Flag-Verwaltung oder Zuweisungen etc., 
statt des Wertes -1 die Konstante TRUE verwendet werden (siehe 
auch FALSE). 


Beispiel 1: 


Fileselect I Datei wählen 

If Exist(F$)=True I Datei auf Disk? 

... weiteres 
... Progranml 


Beispiel 2; 

Do I Endlos-Schleife 

If Mousek^l I Linke Maustaste gedrückt? 

Bitflagl=Bitflagt Xor True I Flag bei jedem Mausklick 
' I Abwechselnd an- und ausschalten 

OnoffX=Abs(Bitflag!=True) I Ergibt: An = 1/Aus = 0 
Print At(1,1);Right$("an ",3*OnoffX) 

Print At(1,1);Right$("aus",3*Abs(OnoffX=False)) 

Pause 6 I Kleine Klickpause 

Endif 

Circle Mousex*OnoffX,Mousey*OnoffX,10*0noffX 
Loop 


Vielleicht können Sie im obigen Beispiel auf Anhieb nicht viel mit 
den beiden PRINT-Zeilen anfangen. Dadurch, daß ich eine Wahr¬ 
heitsabfrage in die Zeilen mit einbaue, erspare ich mir eine entspre¬ 
chende IF-Abfrage. Die Variable Onoff% enthält je nachdem, ob das 
Bitflag! -1 oder 0 ist, den Wert 1 oder 0. Mit der RIGHTS-Konstruk- 
tion lasse ich nur dann die Ausgabe des Strings zu, wenn der Wert 3 
(Länge des Strings) mit 1 multipliziert wird. Steht in Onoff% der Wert 
Null, ist die zu ermittelnde RIGHT$-String-Länge ebenfalls Null und 
es wird kein String ausgegeben. 

Im Normalverfahren würde die Konstruktion so aussehen: 
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If Bitflagl=True 
Print At(1,1);"an " 
Else 

Print At(1,1);"aus" 
Endif 


SWAP {SW} Variablen/Felder/Pointer tauschen 


SWAP Varl,Var2 

SWAP Element(x),Element(y) 

SWAP Feldl0,Feld20 
SWAP *Pointer,FeldO 

Dies ist der SWAP-Befehl, in V3.0 gibt es SWAP() auch als Funktion. 


SWAP tauscht die Inhalte zweier gleichartiger Variablen, Felder oder 
Feldelemente (numerische oder alphanumerische), bzw. einen Zeiger 
auf einen Feld-Descriptor (siehe *) mit dem Descriptor des angegebe¬ 
nen Feldes (Feldübergabe an Prozeduren). Bei Feldern wird auch die 
Dimensionierung vertauscht. 


Beispiel 1: 

AX^tOO 

BX=1000 

Print "AX, BX vor SUAP:'';AX'BX 
Swap AX,BX 

Print "AX, BX nach SWAP:";AX'BX 


Beispiel 2: 

Ab der Version V3.0 ist es bei Pointer/Feld-SWAP nicht mehr nötig, 
das angegebene Feld vorher zu dimensionieren. 

Dirn AX(10) 
aRcHJtine(*AX()} 

Procedura Routine(XX) 

' Dirn DunnyXd) ! <— Nur in V2.xx nötig! 

Swap *XX,DuniTi/XO 

... Ab hier ist das vorherige Feld AX() unter 
... dem Namen DuinyXO ansprechbar. Feld AX() 

... ist leer. 

... Routinentext 

Swap *XX,DuninyX() 

... Ab hier ist Feld DimmyXO wieder Feld AX() 

... und Feld DumnyXO ist wieder leer. 
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' Erase DunmyXO I <— Nur in V2.xx nötig! 

Return 

Diese indirekte Übergabe von Feldern an Prozeduren hat den Vorteil, 
daß das durch SWAP in die Prozedur "hineingetauschte" Feld nicht 
unter seinem eigentlichen (globalen) Namen angesprochen werden 
muß, sondern innerhalb der Prozedur unter einem lokalen Namen an¬ 
gesprochen und bearbeitet werden kann. 

Genaugenommen ist diese Kontruktion jedoch in V3.0 überflüssig, da 
hier Felder genauso wie Variablen durch VAR direkt an die Prozedur 
übergeben werden können: 

DIH feldXd) 
xyz(feldXO) 

PRINT FeldXd) 

PROCEDURE XyztVAR DimnyfeldXt)) 

DunmyfeldXd >=100 
RETURN 

Weitere Beispiele hierzu finden Sie unter GET (Prozedur Menue), 
BMOVE (Prozedur Screen), SSORT (Prozedur Sort), sowie in 9.5.1 
"Organisation eines PUT-Strings" in der Prozedur Gplane. 


VOID { VO > Dummy-Zuweisung 

lnV3.0;{~} 


VOID Funktion 

VOID ist ein Ersatz für eine sogenannte Dummy-Zuweisung, jedoch - 
vor allem in Compilaten - ergeblich schneller. Es wird eine Funktion 
aufgerufen, ohne dieser eine Rückgabe-Variable zur Verfügung stellen 
zu müssen. In vielen Fällen ist die Zuweisung des Funktionsergebnis¬ 
ses an eine Aufnähme-Variable bei Funktionsaufrufen unnötig, da das 
Ergebnis nicht von Interesse ist. Um Speicherplatz (und Zeit) zu spa¬ 
ren, können diese Funktionen mit VOID aufgerufen werden. 

Beispiel: 

statt: A=Inp(2} I Auf Taste warten 

--> Void Inp(2) 

Statt: A=Fre(0} I Garbage-Collection 

--> Void FrefO) 

Statt: A=Gemdos(&HE,1) I Disk B aufrufen 

--> Void Geindos(&HE,1) 


In Version V3.0 kann ~ verwendet werden (~GRAF_GROWBOX). 
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13. Interaktionen (Programm/Benutzer) 


ALERT {A} Alert-Box erstellen 

ALERT,lcon%,B_oxtext$,Def_Button%,Buttontext$,Backvar% 

Diese GEM-Funktion erlaubt es, mit dem Anwender unkompliziert zu 
kommunizieren. Prinzipiell lassen sich damit sogar umfangreiche 
Menüs verwalten. Da die ALERT-Box (engl.: wachsam,alarmbereit) 
aber nur maximal drei Auswahlmöglichkeiten zur Verfügung stellt, ist 
sie eher für kleinere Abfragen oder Hinweistexte geeignet. 

Icon% 

0 = Kein Symbol 2 = Frageseichen 

1 = Ausrufungseeichen 3 = STOP-Schild 

B_oxtext$ 

Hier wird der eigentliche Text (Mitteilung/Frage) an die Funktion 
übergeben. Daa Pipe-Zeichen | gilt darin als Trennungsseichen swi- 
schen den einseinen Zeilen. Es können insgesamt 4 Zeilen su maximal je 
SO Zeichen dargestellt werden. Der Text kann direkt in den Befehl ge¬ 
schrieben, als String-Ausdruck oder auch als String-Variable überge¬ 
ben werden. 

Def_Button% 

Es wird die Nummer (1,2,3) des Buttons Übergeben, welcher außer 
durch Mausklick auch durch die <Return>-Taste (default) bestätigt 
werden kann. Dieser Button wird in der Box stark umrandet geseichnet 
(0 = Kein Default-Button). 


Buttontextl 

Hierdurch erfolgt die Beschriftung der Buttons. Jeder Button kann mit 
jeweils maximal 8 Zeichen beschriftet werden. Auch hier gilt das |- 
Zeichen als Trennstrich swischen den einselnen Button-Texten. 


Backvar96 

Numerische Variable, in welcher der Befehl die Nummer des bestätigten 
Button (1,2,3) Burückgibt. 


Beispiel: 

B_oxtext*="Klicken Sie bitte einesjder unteren Kästchen an!" 
B_oxtext$=B_oxtextt+"IIch sage Ihnen dann, welchesjes war!" 
Buttontext$="XX 1 XX|XX 2 XXjXX 3 XX" 

Alert 1,B_oxtext$,0,Buttontext$,Backvar* 

B_oxtext$="Es war : | |das Kästchen "+Str$(Backvar*) 

Buttontext$=" OKAY | OKAY | OKAY " 

Alert 1,B_oxtext$,2,Buttontext$,BackvarX 
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♦ 


Clicken Sie bitte eines 
der unteren Kästchen an! 

Ich sage Ihnen dann, uelches 
es uar! 


XX i KXI IXX 2 XX IXX 3 XXI 


Diese Form der Alert-Box ist aus Gründen der Sicherheit nicht beson¬ 
ders variabel. Vom Interpreter werden sämtliche Eingaben auf ihre 
Zulässigkeit überprüft. Werden z.B. mehr als 30 Zeichen Boxtext in 
einer Zeile angegeben, wird die Zeile vom Interpreter nach dem 
30sten Zeichen abgeschnitten. 

Wer die eigentliche GEM-Alert-Box kennt, der wird diese Sicher¬ 
heitsmaßnahmen verstehen. Wer trotzdem etwas mehr Freiheit in der 
Gestaltung einer Alert-Box genießen möchte, hat in V3.0 die Mög¬ 
lichkeit, die entsprechende GEM-Routine als Funktion 
FORM_ALERT() aufzurufen. 

Wer weiter in V2.xx programmiert und diese "echte" Alert-Box ver¬ 
wenden will, kann sich der folgenden Prozedur Form_alert bedienen, 
die (fast) dasselbe macht wie die V3.0-Funktion FORM_ALERT. 

Während in V3.0 versucht wird, die Eingaben bis zu einem gewissen 
Grad auf Ihre Zulässigkeit zu überwachen, wird bei dieser Prozedur in 
V2.XX von Systemseite aus keine Rücksicht auf falsche Eingaben oder 
zu große Textlängen genommen. Ist der Text bei dieser "echten" 
GEM-Alert-Box zu lang, macht das System schlicht und ergreifend 
eine Bauchlandung, vor der Sie auch der Interpreter mit seinem Ab¬ 
sturzverhinderer nicht mehr retten kann. 

Von Digital Research vorgegeben ist hier ebenfalls eine Zeilenlänge 
von 30 Zeichen bei insgesamt 5 Zeilen und eine Buttontextlänge von 
10 Zeichen je Button. Das sind immerhin 30 Zeichen mehr an reinem 
Boxtext. Allerdings ist in V2.xx auch folgende Variante möglich, die 
jedoch in V3.0 gnadenlos abstürzt: 

aForin_alert(0,String$(8, "BOXTEXT»),!, StringSC 12, "BUTTON"),*BackX) 
Procedura Form_alert(SyiTibol%,Bxtxt$,Button%,Bttxt$,Done%) 

Local AlstringS 
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Alstringt="[''+Str${SymbolX)+"] I"+Bxtxt»+"] I"+Bttxt$+"]''+Chr*(0) 
Lpoke Addrin,Varptr(Alstring$) 

Dpoke Gintin.ButtonX 
Gemsys 52 

*DoneX=Dpeek(Gintout) 

Return 


In diesem Zusammenhang ist ein kleiner Trick von Interesse. Nämlich, 
wie man die recht eintönigen Alert-Symbole nach eigenen Wünschen 
verändern kann. Durch viele verschiedenartige Symbole läßt sich der 
Zweck der jeweiligen Alert-Box natürlich wesentlich besser zum Aus¬ 
druck bringen als durch !, ? und STOP. 

Das GEM legt bei Systemstart Kopien bestimmter ROM-Bereiche im 
RAM ab, da ja viele GEM-Daten veränderbar sein müssen, was im 
ROM nicht möglich ist. Zu diesen Daten gehören auch die ALERT- 
und Desktop-Symbole. 

Die folgende Prozedur Atari hat nun die Aufgabe, einen bestimmten 
Zentralpunkt in diesem GEM-Bereich zu finden und fünf Adressen 
zurückzugeben. Als Zentralpunkt fungiert das Atari-Symbol, das Sie 
bewundern können, wenn Sie auf dem Desktop unter dem Menü 
DESK INFO den Menüpunkt "Desktop Info.." anklicken. 

Es ist nötig, diesen Punkt zu suchen, da die Lage des GEM im RAM 
von verschiedenen Umständen abhängig ist. Dies sind vor allem die 
verschiedenen TOS-Versionen sowie Anzahl und Größe von Program¬ 
men, die vor GEM-Start aus dem Auto-Ordner geladen v.urden. Ac- 
cessories können dagegen im allgemeinen keine Veränderung bewir¬ 
ken, da diese ja erst ausgeführt werden, wenn das GEM bereits instal¬ 
liert ist. 

Die Suche geht im Normalfall relativ schnell vonstatten, kann jedoch 
bei vielen vorgeladenen Auto-Ordner-Programmen etwa eine ganze 
(!?) Sekunde in Anspruch nehmen. Da die Routine jedoch nur einmal 
am Programmanfang auszuführen ist, nimmt man diese Wartezeit in 
Hinblick auf den positiven Effekt gern in Kauf. 

Die fünf gelieferten Adressen sind folgende: 

1. Adresse des Atari-Symbols. Die Proeedur ist darauf angewiesen, daß 

das Bit-Image des Atari-Schriftsuges innerhalb des Symbols in Lage 
und Form unverändert bleibt, da das Schriftsug-Image als Suchkrite¬ 
rium verwendet wird. Außerdem darf dasselbe Image (wohlgemerkt: ich 
rede nur von dem Schriftsug innerhalb des Atari-Images) an keiner an¬ 
deren Speicherstelle auftauchen, es sei denn, es liegt definitiv hinter dem 
Original. 
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Das Symbol hat insgesamt ein Bit-Raster von 32 mal 32 Punkten. Ab 
der Adresse belegt es also mit seinen 32 Rastereeilen die folgenden 32 
Longwords. 

2. Startadresse der Desktop-Symbole. Ab dieser Adresse liegen nachein¬ 
ander fünf Desktop-Icons aus ebenfalls 32 mal 32 Punkten. Hier ist je¬ 
doch SU beachten, daß su einem Symbol immer iwei Images gehören. 
Da die Icons auf weißem bsw. grau gerastertem Untergrund frei ver¬ 
schiebbar sind, erhalten sie eine Hintergrund-Maske, die die Aufgabe 
hat, den Hintergrund für das eigentliche Bit-Muster "freisumachen**. 

Die Desk-Symbole sind folgendermaßen organisiert: 

Adresse +0 Maske des Disk-Symbols. Dies ist das Symbol 
auf dem Desktop, das Sie anklicken, wenn Sie 
e.B. eine Station (Fenster) öffnen möchten. 

" +128 Bit-Image des Disk-Symbols 

Adresse +256 Maske des Ordner-Symbols im Fenster 
" +384 Bit-Image des Ordner-Symbols 

Adresse +512 Maske des Müll-Symbols 
" +640 Bit-Image des Müll-Symbols 

Adresse +768 Maske des PRG-Syml^ls im Fenster 
(sog. "Waschmaschine") 

" +896 Bit-Image des PRG-Symbols 

Adresse +1024 Maske des Datei-Symbols im Fenster 
" +1152 Bit-Image des Datei-Symbols 

3. Startadresse der Alert-Icons. Dies sind wiederum Icons mit einem 
32x32er Bit-Raster. Hier gibt es allerdings keine Hintergrund-Masken, 
da diese Symbole generell innerhalb einer ALERT-Box, also auf 
"weißem" Untergrund verwendet werden. 

Adresse +0 Bit-Image des Ausrufungsseichens 
Adresse +128 Bit-Image des STOP-Schilds 
Adresse +256 Bit-Image des Frageseichens 

4. Startadresse der Maus-Def-Strings. Hier finden Sie acht aufeinander¬ 
folgende Maus-Definitions-Strings, die durch DEFMOUSE 0 bis 7 auf¬ 
gerufen werden. 

Die Definitions-Strings sind im Aufbau mit den unter DEFMOUSE 
beschriebenen DEFMOUSE-Strings identisch. Ab dieser GEM-Adresse 
liegen also 8 Mausdatenblöcke (5 Header-Words, 16 Masken-Words 
und 16 Image-Words) im 74-Byte-Intervall. Die durch DEFMOUSE 2 
aufrufbare "Biene" liegt also s.B. ab Mausstartadresse+2*74. 

Adresse +0 Def-String für DEFMOUSE 0 
Adresse +74 Def-String für DEFMOUSE 1 
Adresse +148 Def-String für DEFMOUSE 2 
Adresse +222 Def-String für DEFMOUSE 3 
Adresse +296 Def-String für DEFMOUSE 4 
Adresse +370 Def-String für DEFMOUSE 5 
Adresse +444 Def-String für DEFMOUSE 6 
Adresse +518 Def-String für DEFMOUSE 7 

5. Startadresse eines 14-Zeichen-Strings. Der String wird in einer File- 
select-Box über die Index-Zeile mit dem Suchpfad geschrieben. Übli¬ 
cherweise ist dies die Zeile OBJEKT AUSWAHL. Indem man diese 
Zeile ersetzt hat man eine Möglichkeit, den Zweck der FILESELECT- 
Box Bu kommentieren. Dabei ist jedoch streng darauf bu achten, daß 
der an diese Adresse geschriebene String nicht mehr als 14 Zeichen lang 
ist. 

Atari (*Atari%,*Dsymbols%,*AsyirbolsX,*MsymbolsX,*FcofiinX) 

For IX=0 To 31 ! Je 32 Bit-Zeilen 

Lpoke Xbios(2)+lX*80,Lpeek(AtariX+lX*4) 

' Atari-Symbol auf den Bildschirm schreiben 
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Lpoke Xbi os( 2 )+2560+1 X*80 , Lpeek (Dsymbo l s%+128+151*4 ) 

' Disketten-Synbol auf den Bildschirm schreiben 
Lpoke Xbios(2)+5120+1 X*80, Lpeek(Asymbol sX+151*4 ) 

' Alert-Ausrufungszeichen auf den Bildschirm schreiben 
Dpoke XbiOS(2>+7920+1X*80,Dpeek(MsymbolsX+10+1X*2) 

' Hauspfeil+Maske auf den Bildschirm schreiben 
Next IX 
Print At<1,7); 

For IX=0 To 13 ! 14 Zeichen FILESELECT-String 

Print Chr$(Peek(Fco(iiiiX+IX)); I Lesen und schreiben 
Next IX 

I 

C$=Space$(74) I Haus-Image-Puffer 

Bmove HsymbolsX,Varptr(CS),74 I Alte Maus retten 

A$=Mki$(1)+Mki$(1}+Hkl$(1)+Hki$(0) I Haus-Header bi Iden und.. 

Bmove Varptr(AS),MsymbolsX,10 I ..Original-Header überschreiben 
For IX=0 To 31 I 16 Masken- und 16 Image-Zeilen 

Read AX I aus DATAs lesen 

Dpoke MsyrnbolsX+10+IX*2,AX I und den Standard-Hauspfeil.. 

Next IX I ..überschreiben 

Data 65520,65520,65520,65504,65472,65504,65520,65528 
Data 65532,65534,63487,58367,511,255,127,62 
Data 0,32736,27328,21888,27392,21888,27328,23904 
Data 30384,25432,16812,214,106,54,28,0 

For IX=0 To 31 I 32-Bit-Zeilen 

Read AX I aus DATAs lesen 

Lpoke AsymbolsX+IX*4,AX ! und das Alert-Ausrufungs- 

Next IX t Zeichen überschreiben 

Data 16777152,64312672,113245872,91226968,111393192,98438872 
Data 109052008,94322264,523314046,828848611,1305162991 
Data 2077105401,1774980301,1221332165,1220807109,1219758917 
Data 1218186821,1820592205,646187851,814619078,478884044 
Da ta 126476920,8929856,8930880,11013184,11303232,6783360 
Data 3160832,1369600,919040,461824,129024 
Alert 1,"Neues ALERT-Symbol[u. neuer Zeiger I", 1,"OKAY",BX 

I 

A$=" * KOMMENTAR *" 

I 

Bmove Varptr(A*),FcommX,14 
Fileselect "\*.*","",B$ 

For IX=0 To 63 I 64-Bit-Zeilen (Maske u. Image) 

Read AX I aus DATAs lesen und das 

Lpoke DsymbolsX+IX*4,AX I Disk-Symbol überschreiben 

Next IX 

Data 2147483646,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 
Data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,2147483646 
Data 0,1073741820,1572264822,2032439902,1380525206,1955744062 
Data 1495568982,1917396126,1418873142,2109135742,1610612726 
Data 1789569710,1431655766,1611311790,1343575382,1611311790 
Data 1343575382,1611399166,1343619126,1611661294,1431655766 
Data 2147483646,1073741830,1074265862,1341654006,1341129718 
Data 1075837958,2147483646,1073741838,1073741822,536870908,0 ' 

Bmove DsymbolsX+128,AsymbolsX+128,128 I 128 Bytes aus dem 
' I Disk-Image-Puffer in den 

' I Alert-Image-Puffer schreiben 

A$="Uenn Sie zum Desktopjzurückkehren, wird das{" 

AS=AS+"Disketten-Symbol verändert|seinl" 


I 14 Zeichen FILESELECT- 
I Kommentar in den 
I GEM-String-Puffer schreiben 
I FILESELECT-Box 
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Alert 2,A$,1,"0KAY",BX ! ALERT-Box aufrufcn 

I 

Bmove Varptr(C$),MsymbolsX,74 ! Alte Haus restaurieren 

I 

Procedure Atari(Aptr1X,Aptr2X,Aptr3X,Aptr4X,Aptr5X) 

' AptrIX = Pointer auf A-Byte-Integer-Rückgabevariable, die 
' nach Abschluß die Atari-Symbol-Adresse enthält. 

' Aptr2X = Pointer auf A-Byte-Integer-Rückgabevariable, die 
' nach AbschluB die Startadresse der Desk-Synt>ole 

' enthält. 

' Aptr3X = Pointer auf A-Byte-Integer-Rückgabevariable, die 

■ nach AbschluB die Startadresse der Alert-Synix>le 

' enthält. 

' AptrAX = Pointer auf A-Byte-Integer-Rückgabevariable, die 
' nach AbschluB die Startadresse der Maus-Images 

' enthält. 

' AptrSX = Pointer auf A-Byte-Integer-Rückgabevariable, die 

■ nach AbschluB die Adresse des FILESELECT-Koninentars 

' enthält. 

Local Ataris,BlenX,IposX,Ipos2X,Buff$,AcntX 

Atari$=MklS(»H9F90F8C) I.. 

AtariS=AtariS+Mkl$(&H1DFB8FCC)'^Hkl$(&H1C638CEC) I Bit-Image 
Atari$=AtariS+HklS(&H3666CCEC}'^HklS(&H3666CDCC) I- des Atari- 
AtsriS=Atari$+Mkl$(&H7F6FED8C}+Hkl$(&H7F6FEDCC) I Schriftzugs 
AtariS=AtariS+MklS(&H636C6CEC)+HklS(&H636C6C6C) I 

• !.' 

BlenX=Min(Fre(0)-1000,32000) I max. Suchblocklänge 

Buff$=SpaceS(BlenX) I Suchblockpuffer vorbereiten 

For AcntX=0 To Int(200000/BlenX)+1 I Suchblockanzahl 
Bmove 10000+AcntX*(BlenX-A0),Varptr(BuffS),BlenX I Suchblock 
' I in Puffer übertragen 

IposX=Instr(BuffS,Atari$) I Atari-Schrift-Image suchen 

If IposX I Gefunden? 

*Aptr1X=10000+AcntX»(BlenX-A0)+IposX-1-88 I Offset 1 
*Aptr2X=10000+AcntX*(BlenX-A0)+IposX-1+3A86 I Offset 2 
*Aptr3X=10000+AcntX*(BlenX-A0)+IposX-1-7086 I Offset 3 
•AptrAX=10000+AcntX*(BlenX-A0)+IposX-1-6702 I Offset A 
*Aptr5X=10000+AcntX»(BlenX-A0)+IposX-1-930A I Offset 5 
Endif 

Exit if IposX 
Hext AcntX 
Return 
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FILESELECf {FiLESE} Datei auswähteii 

lnV3.0:{FILE} 

FILESELECT‘Pfad’,"Auswahl",Backvar$ 

Erstellt ein Dialog-Formular zur Datelauswahl und liefert den ge¬ 
wählten Dateinamen (ggfs. inkl. Pfad). 

Bei Rückkehr zum Programm sind vier verschiedene Eintragsmöglich¬ 
keiten in BackvarS möglich: 

1. Wurde vom Anwender eine Datei gewählt, steht ihr Name auch an¬ 
schließend in Backvar$. 

2. Wurde die OK-Box ohne Auswahl bedient, gibt es ewei Varianten: 

2a. Es wurde durch Auswahl ein Dateiname Ubergeben, der noch in der 

Eintragsseile steht und die Ok-Box bedient, dann steht dieser Name 
auch in Backvarl. 

2b. Ea wurde keine Auswahl getroffen und auch kein Name übergeben, bsw. 

die Eintragseeile wurde vom Anwender gelöscht und die OK-Box wurde 
bedient, dann wird in Backvarl ein Backslash (\) geliefert. 

8. Wird Abbruch angeklickt, ist Backvarl absolut leer. 
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QBXKT nJSURHL 
INDEX: 

\*.* _ 


Rusuahl: 
DRTEI.Z .LST 


I "< I 

I ABBRUCH 


9 «.« 


S ORDNER—- 

D 

8 DRONER-Z 

DRTEl 1 


1DRTEI-2 .LST ■ 


DRTEI.3..D0C 
DflTEI-4_ 


DATEI 


0RTEI.6 .BRS 


DATEI - 

0 


Dies ist einer der wichtigsten Befehle zur Bewältigung von 
Diskettenoperationen. Die Menge an Funktionen, die dieser so einfach 
scheinende Befehl in sich vereinigt, kann man nur ermessen, wenn 
man schon einmal versucht hat, auf die herkömmliche Weise Dateien 
zu speichern, zu laden, zu löschen oder zu verändern. 

Diese Box listet in einem Fenster die unter dem angegebenen 
Pfadnamen (Zeile über dem Fenster) verfügbaren Dateien auf. Die 
links neben dem Namen gekennzeichneten Dateien stellen sogenannte 
Subdirectories (engl.: Unter-Inhaltsverzeichnis) dar, in denen weitere 
Dateien unter dem für dieses Subdirectory typischen Pfadnamen ab¬ 
gespeichert sein können. Durch Anklicken des Sub-Dir-Namens wird 
es geöffnet und die darin befindlichen Dateien können angewählt 
werden. Verlassen wird ein Unter-Verzeichnis, indem man das kleine 
Feld links neben dem Kopfbalken anklickt. 

Da GFA-BASIC immer die Disk-Station zur aktuellen erklärt, von 
welcher das Programm geladen wurde, kann es notwendig werden, im 
Pfadnamen die Stationsangabe zu ändern. Sie können dazu mit dem 
Mauszeiger in die Zeile unter INDEX klicken. Der Strich-Cursor be¬ 
gibt sich dann in diese Zeile und Sie können nun durch die Tasten 
<Esc>, <Backspace>, <Delete> oder die <Cursor>-Tasten die Zeile oder 
einzelne Zeichen löschen oder den Cursor an eine bestimmte Stelle 
bewegen. Haben Sie das getan, können Sie nun die Pfadbezeichnung 
ändern und sich so z.B. den Inhalt einer anderen Diskette anzeigen 






Interaktionen (Programm/Benutzer) 


461 


lassen. Nach der Änderung brauchen Sie jetzt nur noch den grauen 
Balken über dem Directory-Fenster anzuklicken und das neue Direc¬ 
tory wird angezeigt. 

Es folgt eine fast unscheinbare Routine, die es aber in sich hat. Wie 
oft stellt sich die Aufgabe, die Richtigkeit einer Dateinamen-Eingabe 
zu überprüfen oder ein Backup-File anzulegen. Während der eigentli¬ 
che Dateiname in den allermeisten Fällen für den Anwender frei be¬ 
stimmbar ist, hat man als Programmierer doch oft ein Interesse daran, 
daß die Extension richtig gesetzt ist. Es nützt meist wenig, die Exten¬ 
sion mit dem zweiten Parameter-String der FILESELECT-Box vorzu¬ 
geben, wenn anschließend bei der Eingabe die Extension gelöscht oder 
verändert wird. Um sicherzustellen, daß garantiert die richtige Exten¬ 
sion verwendet wird, kann man nun diese Prozedur folgendermaßen 
auf rufen; 

Fileselect "\*.ABC",".ABC",A$ I Eingabe des Dateinamens 
aExtend(A$,"ABC",*N file$) . I Extension überprüfen 
Print M_file$ 

• ” 

Procedure Extend(Pr$,Ex$,PsX) 

' PrS = Dateipfad u. -name 
' Ex$ = gewünschte Extension 
' PsX = String-Rückgabe 

I 

Local NlX,Dn$,IX 

If Right$(Pr$)<>"\'' And Right$(Pr$,5)<>"\."+Ex$ And Pr$>'"' 

' I Gültiger Dateiname? 

For IX^LenCPrS) Downto 1 I Namen von hinten aus nach dem 

' I erstem Backslash durchsuchen 

Inc NIX I Zeichen mitzählen 

Exit if Mid${Pr$, IX, ! Exit, wenn Backslash erreicht 

Next IX 

Dn$°Right$(Pr$,NlX) I Reinen Dateinamen bi Iden 

If In8tr<Dn*,".")=0 I Keine Extension enthalten? 

*PsX=Pr$+''.“+Ex$ I Pfad und Extension zurückgeben 

Dn$=DnS+“."+Ex$ I Namen komplettieren 

Endif 

If Right*(Dn*,4)<>"."+Ex* I Falsche Extension? 

If Left${Dni,2)<>"\.'' I Name größer als nur Extension? 

*PsX=Left$(Pr$,Len(Pr$>-NlX)+Left$(Dn$,Instr<Dn»,"."))+Ex$ 

' I Pfad + Name + Extension zurück 

Else I Name besteht nur aus Extension! 

*PsX="000" ! Unbrauchbaren Namen zurückgeben 

Endif 

Else I Richtige ExtensionI 

•PsX=Left*(Pr$,Len(Pr$)-NlX)+Dn$ ( Pfad + Name zurück 
Endif 

Else I Ungültiger Dateiname! 

*PsX="000" ! Unbrauchbaren Namen zurückgeben 

Endif 
Return 
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Wurde in diesem Beispiel in der FILESELECT-Box ohne Änderung 
einfach die OK- oder ABBRUCH-Box angeklickt, erhält man in 
N_file$ nach Extend-Aufruf den Ausdruck 000. Das gleiche ge¬ 
schieht, wenn vom Anwender entweder die Auswahlzeile ersatzlos ge¬ 
löscht wurde (<Esc>) oder nur die Extension geändert, aber kein Name 
dazu eingegeben wurde. In allen anderen Fällen wird die Extension 
des eingegebenen Namens mit der Vorgabe im zweiten Parameter- 
String des Extend-Aufrufs verglichen und bei Nicht-Übereinstimmung 
durch die Vorgabe ersetzt. Anschließend erhalten Sie dann den ge¬ 
samten Dateinamen mit evtl, geänderter Extension in N_file$ zurück. 

Bei Backup-Files kommt noch eine zweite Mini-Routine zum Einsatz. 
Die Auswirkung einer Backup-Routine begegnet Ihnen immer dann, 
wenn Sie ein .GFA- oder .LST-File abspeichern, dessen Name bereits 
auf der Diskette exisitiert. GFA-BASIC ändert dann automatisch die 
Extension der bereits bestehenden Datei in .BAK um. 


Diese Routine Backup erwartet zwei Parameter-Strings. Der erste gibt 
den Namen an, unter welchem die Datei abgelegt werden soll. Der 
zweite bestimmt die Extension, die Sie jener Datei geben wollen, die 
evtl, unter demselben Namen wie die neue Datei schon auf Diskette 
existiert und nun als Backup gesichert werden soll. 


Die Backup-Routine erledigt nun das Finden und Umbenennen mit 
Hilfe der Extend-Routine, so daß Sie anschließend Ihre neue Datei 
anlegen können. Als Beispiel lege ich hier das obere Viertel des Bild¬ 
schirms auf Diskette ab. Der Backup-Effekt wird erst deutlich, wenn 
Sie das Programm zweimal starten und sich die Dateien mit FILES im 
Direktmodus anschauen. Sie haben nun zwei Dateien mit gleichem 
Namen, aber unterschiedlicher Extension. 


Fileselect "\*.SCR" ''.SCR'',A$ ! Eingabe des Oateinamens 


aBackup(A$,"BAK") 

aextend(A*,"SCR",*Nt) 

If M$<>“000“ 

Bsave N$,Xbios(2),8000 
Endif 


I Evtl. Backup anlegen 
! Extension überprüfen 
I Brauchbarer Pfad + Name? 
I Datei anlegen 


Procedure Backup(Pr>,Ex$) 

■ Pr$ = Dateipfad u. -name 
' Ext = Backup-Datei-Extension 


Local XnS 

If Exist(Pr$) 
aExtend(Pr$,Ex$,*Xn$) 
If Xn$<>"000" 

If ExistCXnS) 

Kill XnS 
Endif 


I Datei auf Diskette vorhanden? 
I Backup-Extension einbauen 
I Brauchbarer Dateiname? 

I Schon Backup-File vorhanden? 

I Darm löschen 


Name PrS As XnS ! Alte Datei auf Backup umbenennen 
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Endif 

Endif 

Return 

Ein weiteres - schon bei ALERT angedeutetes - Problem im Umgang 
mit der FILESELECT-Box ist, die Box bzw. den Zweck Ihres Aufrufs 
zu kommentieren. Aus vielen kommerziellen Programmen kennt man 
diesen grauen Textbalken, der oberhalb der Box angezeigt wird, um 
dem Benutzer Informationen darüber zu bieten, was er denn nun mit 
der FILESELECT-Box auswählen soll. Dieser Balken sieht recht 
zweckmäßig aus und ist es auch. Nur ist es nicht immer einfach, den 
gewünschten Kommentartext innerhalb der Box bzw. die Textbox 
oberhalb der FILESELECT-Box zu zentrieren, da sich durch die ver¬ 
schiedenen Bildschirm-Auflösungen jeweils andere Offsets ergeben. 

Die folgende Prozedur erledigt diese Aufgaben in allen drei Auflösun¬ 
gen. Innerhalb der Routine wird GRAPHMODE 1, DEFTEXT 1,0„13 
und DEFFILL 1,0,0 eingestellt. Vergessen Sie also nicht, ggfs, hinter¬ 
her die vor Aufruf gültigen Einstellungen zu restaurieren. 

XrsX=2-Sgn(Xbios(4)) I X-Auflösungsteiler 

Yrs!t=Min(2,3-Xbios(4)) I Y-Auf lösungstei ler 

Deffill ,2,4 I DEFFILL grau 

Pbox 10/Xrs*,10/YrsX,630/XrsX,390/YrsX ! Hintergrund zeichnen 
aHead(1,"K0HHENTAR ZUR FI LE-AUSWAHL») I Head aufrufen 
Fileselect "\*.*","»,A$ I Datei-Auswahl 

aHead(0,»") I Head wieder löschen 

Procedure HeadCH.flgX,H.txt$) 

' Zeichnet eine graue Box mit vorgegebenen Text über 
' eine FILESELECT-Box (in Hires/Hidres/Lowres). 

' H.flgX = Flag, gibt an, ob die Box gezeichnet (1) 

' oder gelöscht (0) werden soll. Wurde Head mit 

' H.flgX = 1 zwei- oder mehrmals hintereinander 

■ aufgerufen, ohne jedesmal hinterher die Box mit 

' H.flgX = 0 wieder zu löschen, kann der Hintergrund 

' nicht mehr retauriert werden. 

' H.txtS = Konmentartext zur Fileselect-Box (max. 38 Zeichen) 

Local H.resX,H.hlfX,H.disX,H.reX,H.xrX,H.yrX,H.bxrX 
H.txt*=Left$(H.txt$,Min(38,Len(H.txt$))) Textlänge trimmen 
H.xrX=2-Sgn(Xbios(4)) I Lokaler X-Auflösungsteiler 
H.yrX=Min(2,3-Xbios(4)) ! Lokaler Y-Auflösungsteiler 
If H.xrX<>2 ! Kein Lowres? 

H.reX=1 ! Box-X-Offset-Multiplikator 

Endif 

If H.flgX=1 I Text-Box darstellen? 

H.hlfX=Len(H.txt$)*4 ! Halbe Textlänge in Pixel 
H.disX=2-H.yrX ! Box-Y-Offset-Hultiplikator für Hires 

If H.xrX<>2 I In Hires/Midres? 

H.bxrX=481 I Rechte Box-Koordinate setzen 

Else ! In Lowres 

H.bxrX=319 I Rechte Box-Koordinate setzen 

Endif 

Graphmode 1 ! GRAPHHOOE 1 




464 


Das große GFA-BASIC-Buch 


Deftext 1,0,,13 I Standard-Text einschalten 

Get 158*H.reX,0,H.bxrX,399/H.yrX/6,H.bg$ I Hintergrund sichern 

DeffiU 1,2,2 I DEFFILL hellgrau 

Pbox 158*H.reX,16/H.yrX+H.di8X*16,H.bxrX,... I Box 

...(50/H.yrX-H.disX*12)+H.disX*16 I zeichnen 

DeffiU 1,0,0 I DEFFILL weiS 

Pbox 320/H.xrX-H.hlfX-2,16/H.yrX+H.disX*16,320/H.xrX... 

...+H.hlfX+2,(50/H.yrX-H.disX*12)+H.disX*16 
' I Textbalken zeichnen 

Text 320/H.xrX-H.hlfX,(44/H.yrX-H.disX*10)+H.disX*16,H.txt$ 

' I Text zentriert in Box einsetzen 

Else I Text-Box löschen! 

Put 158*H.reX,0,H.bgS I Hintergrund restaurieren 

Clr H.bgS I Hintergrund-Puffer löschen 

Endif 
Return 


MOUSE{m } . Maus-Stätus ermitteln (gesamt) 

V3.0: { MOU > 

MOUSE Xpos,Ypos,Tasten 

In Xpos und Ypos wird die aktuelle X-, bzw. Y-Koordinate des 
Mauszeigers, sowie in Tasten der Status der Maustasten übergeben. 

0 > Keine Taste gedrückt 

1 > Linke Taste gedrückt (Bit 0 -> 2'0 = 1) 

2 = Rechte Taste gedrückt (Bit 1 -> 2"1 = 2) 

3 = Beide Tasten gedrückt (Bit 0+1 -> 2'0+2'1 « 3) 

Als Bit-Vektor betrachtet, sind von Tasten nur die untersten 2 Bits 
interessant. Dabei steht Bit 0 für die linke Maustaste und Bit 1 für die 
rechte. 

Anmerkung; In Version V3.0 werden bei geöffneten GEM-Windows 
(bzw. bei CLIP OFFSET) in Xpos und/oder Ypos auch negative Werte 
geliefert, wenn sich der Mauszeiger links und/oder oberhalb des Win¬ 
dows (bzw. des CLIP-Nullpunkts) befindet. 

Beispiel: 

Im Zusammenhang mit der Maus stellt sich immer wieder das Pro¬ 
blem, einen Bildschirmbereich zu umrahmen, um ihn für spätere 
Zwecke zu definieren oder zu kennzeichnen. In V3.0 kann dazu leicht 
die AES-Funktion GRAF_RUBBERBOX() verwendet werden. Diese 
hat allerdings drei Nachteile. Der erste ist, daß die Rahmenbox in ei¬ 
nem Punkt-Linienmuster gezeichnet wird und so nicht auf jedem 
Untergrund leicht zu erkennen ist. Der zweite besteht darin, daß bei 
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der Box-E>efinition nur die linke Maustaste zugelassen ist und als 
dritten Nachteil empfinde ich, daß aufgrund bestimmter GEM-inter- 
ner Gründe der Mausklick bei Aufruf nicht immer registriert wird, so 
daß die Maustaste schon als losgelassen betrachtet wird, bevor die Box 
überhaupt definiert werden konnte. 


Aus diesem Grund habe ich eine Prozedur entworfen, die Ihnen weit¬ 
gehend freie Hand läßt und die nach eigenem Bedarf verändert oder 
erweitert werden kann. Diese Routine stellt allerdings DEFLINE 
0,0,0,0, COLOR 1 und GRAPHMODE 1 ein, so daß ggfs, nach Auf¬ 
ruf die vorher gültigen Einstellungen restauriert werden müssen. Sie 
können diese Einstellungen natürlich auch in der Routine verändern, 
um andere Effekte zu erzielen (z.B. in GRAPHMODE 3 oder COLOR 
0 ). 


Grundsätzlich funktioniert die Prozedur exakt genauso wie die AES- 
Funktion. Hier ist es allerdings gleichgültig, ob die linke, die rechte 
oder beide Maustasten gedrückt wurden. Ebenso wie die AES-Funk- 
tion muß die Prozedur mit gedrückter Maustaste aufgerufen werden, 
da Sie sonst sofort wieder beendet wird. Ein wesentlicher Unterschied 
ist, daß diese Prozedur auch negative Minimalwerte verarbeitet, daß 
heißt, die Koordinaten der Endposition des Mauspfeils können kleiner 
sein als die Koordinaten der Startposition. In diesem Fall erhält man 
in den beiden Rückgabevariablen auch negative Box-Ausmaße. 


DeffiU ,2,4 

Pbox 10,10,200,200 

Do 

If Housek 
Mouse XX,YX,KX 


I DEFFILL grau 
I Hintergrund zeichnen 
I Endlos-Schleife 
I Maustaste gedrückt? 

I Startkoordinaten holen 


Rubberbox(XX,YX,-30,-30,*XxX,*YyX) I Aufruf 
Box XX,YX,XX+XxX,YX+YyX! Box zeichnen 
Endi f 
Loop 


Procedure Rubberbox(XpX,YpX,XniinX,YminX,XretX,YretX) 

' XpX = X-Startkoordinate 
' YpX = Y-Startkoordinate 

' XminX = Minimale Breite der Gunni-Box (auch neg.) 

' YminX = Minimale Höhe der Gumni-Box (auch neg.) 

' XretX = Pointer auf 4-Byte-Integer, die nach Abschluß 
' die letzte Breite der Box enthält (auch neg.) 

' YretX = Pointer auf 4-Byte-Integer, die nach Abschluß 
' die letzte Höhe der Box enthält (auch neg.) 

Local Sc1$,Sc2$,Sc3$,Sc4$,Hx1X,Mx2X,Mx2X,My2X,MkX 
Defline 0,0,0,0 I DEFLINE voll/dünn 

Color 1 I COLOR schwarz 

Graphmode 1 I Replace-Modus 

Repeat 

Mouse Mx1X,My1X,MkX I Neue Koordinaten holen 

Mx2X=Hax(XpX+XminX,Mx1X) ! X-Koordinate auf Minimum trinmen 
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My2X=Hax(YpX+YminX,My1X) I Y-Koordinate auf Hinlmum trimnen 
Get Min(xpX,Mx2X),Min(ypX,Hy2X>,... Es wird der 

...Hax(Mx2X,xpX),Min(ypX,My2X),Sc1$ I Hintergrund 
Get Max(xpX,Nx2X),Min(ypX,Hy2X),... I jeder Box-Linie 
...Max(Mx2X,xpX),Max(ypX,My2X),Sc2$ I einzeln 
Get Min(xpX,Mx2X),Max(ypX,My2X),... I gesichert 
...Max(Mx2X,xpX),Max(ypX,My2X),Sc3$ I (Speicherplatz- 
Get Kin(xpX,Mx2X},Min(ypX,Hy2X},... I Ersparnis!) 

...Min(Mx2X,xpX>,Max(ypX,Hy2X),ScA$ I 
Box XpX,YpX,Mx2X,My2X !--• 

Repeat I Warte... 

On menu ! Ereignis-Überwachung ! 

Until MousexoHxlX Or HouseyoMylX Or Mousek=0 
' ...bis die Maus bewegt oder ein Mausknopf gedrückt wird 
Put Hin(XpX,Hx2X),Min(YpX,My2X),Sc4* !--. 

Put Hin(XpX,Mx2X),Max(YpX,My2X),Sc3$ I Box-Hintergrund 
Put Max(XpX,Hx2X),Min(YpX,Hy2X>,Sc2$ I restaurieren 
Put Min(XpX,Mx2X),Min{YpX,My2X),Sc1$ !--■ 

Until HkX=0 I Exit, wenn Maustaste = 0 

•XretX=Mx2X-XpX ! Letzte Breite der Box zurück 

*YretX=My2X-YpX I Letzte Höhe der Box zurück 

Return 


Weitere Beispiele zur Maus-Abfrage finden Sie in Hülle und Fülle im 
Buch verteilt. 


MOUSEX, MOUSEY, MOUSEK 

Maus-Status ermitteln (einzeln) 

Var=MOUSEX = > X-PosHion 

Var=MOUSEY = > Y-Position 

Var=MOUSEK = > Maustastenstatus (siehe MOUSE) 

Einzelabfrage-Funktionen für den jeweils gewünschten Maus-Status. 
In Version V3.0 siehe Anmerkung zu MOUSE. 

Version 3.0 

SETMOUSE{setm} Maus simulieren 

SETMOUSEXpos.Ypos [,Button] 

Setzt den Mauszeiger auf die Position mit den Koordinaten Xpos/Ypos 
und schaltet ihn ein. Wird optional der Parameter Button verwendet, 
wird dadurch das Drücken der darin angegeben Maustaste (0 - 3) si¬ 
muliert (funktioniert in den AES nur eingeschränkt). 

Als V2.xx-Anwender beachten Sie bitte die Setmouse-Prozedur unter 
PSET. Das dortige Beispiel kann auch für den SETMOUSE-Befehl 
dienen. 
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Wer es möchte oder für notwendig hält, kann mit diesem Befehl den 
Mauszeiger auch zu einem zusätzlichen Sprite umfunktionieren; 

A$^kl$(0)+Mkl$(1)+Mlci$(0)+String$(16,Mkl$(-349S3)) 

Do 

For IX=0 To 319 
Vsync 

Sprite AS,IX,100 
Showtn 

Setmouse IX,120 
Next IX 
Loop 


Version 3.0 


STICK { STI } Maus-Port-Abfragemodus bestimmen 

STICK(Modus) - Befehl - 

Bestimmt den Abfragemodus der Maus-/Joystick-Ports. 

Modus; 

0 Mausmodus (fUr V2.xx: entspricht OUT 4,8 ). 

1 Joystick-Modus (für V2.xx: entspricht OUT 4,20). 

MOUSE-Befehle (in V2.xx und V3.0) und STICK() schalten automa¬ 
tisch den entsprechenden Modus ein, wodurch der Befehl STICK in 
den meisten Fällen überflüssig ist. Ist bei Programmende oder vor 
AES-Aufrufen (FILESELECT, ALERT etc.) STICK I aktiv, sollte 
STICK 0 (oder OUT 4,8) verfügt werden, da sonst die Mausmeldung 
ausbleibt. 

Bei ALERT-Boxen, die keinen Default-Button vorsehen, kann das 
dann fatale Folgen haben, wenn aus irgendwelchen Gründen (norma¬ 
lerweise unmöglich) die Maus-Steuerung über die <Alternate>- in 
Verbindung mit den Cursor-Block-<Tasten> gestört sein sollte. Im 
Normalfall kann jedoch die Maus auch bei aktivem STICK 1 über die 
<Alternate>-Taste gesteuert werden; 

<Alternate><Pfeil-lmk8> 

<AItemate><Shift><Pfeil-link8> 

< AltematexPfeil-recht8> 

<AItemate><Shift><Pfeil-recht8> 

< AltematexPfeil-hoch> 

<AItemateXShiftxPfeil-hoch> 

<AltemateXPfeiI-runter> 

<AItemateXShiftxPfeil-runter> 

<AitemateXln8ert> 

<AltematexClrHome> 


Mau8 8chnell nach linke. 
Mau8 langsam nach linke. 
Maue echnell nach rechte. 
Maue langsam nach rechte. 
Maue echnell nach oben. 
Maue langsam nach oben. 
Maue echnell nach unten. 
Maue langsam nach unten. 
Entepr. linkem Maueknopf. 
Entepr. rechtem Maueknopf. 
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Ein Beispiel finden Sie unten unter STICK(). 


Version 3.0 

STICKO Maus-Port im Joystick-Modus abfragen 

Var=STICK(Maus-Port) - Funktion - 

Ermittelt den aktuellen Status des angegebenen Maus-Ports (0 oder 1). 
STICK(l) kann auch abgefragt werden, wenn durch den STICK-Be- 
fehl nicht der Joystick-Modus eingeschaltet ist. STICK(O) liefert dage¬ 
gen nur im Joystick-Modus brauchbare Werte. 

Es werden folgende Werte geliefert; 

5 1 9 

\ I / 

\ 1 / 

4--- 0 ---8 

/ I \ 

/ I \ 

6 1 10 

Als Bit-Vektor betrachtet, sind von STICK() nur die untersten 4 Bits 
interessant: 


Bit 0 

Joystick hoch. 

Bit 1 

Joystick runter. 

Bit 2 

Joystick links. 

Bit 3 

Joystick rechts. 


Für V2.xx: 

Var=astick(Maus-Port) 

DEFFN Stick(HpX)=Peek(3592+HpX) 

' Im Gegensatz zur V3.0-Funkt1on muB bei 
' dieser DEFFN-Funktion für den Port 0 
' erst CXJT 4,20 eingesetzt werden. 

' Weiterhin liefert diese Funktion auch 
' gleichzeitig den Status des Fire-Buttons 
' (siehe STRIGO). Wurde er gedrückt, erhöht 
' sich der oben beschriebene Joystick-Wert 
' un den Wert 128. D.h, sobald der Fire-Button 
' gedrückt wird, ist das höchste Bit (Bit 7) 

' des LO-Bytes von Var gesetzt. 


Beispiel; Dieses Beispiel erwartet, daß ein Joystick in Port 0 (eigentlich 
Maus-Port) angeschlossen ist. 

Circle 7,7,6 ! --. 

Circle 7,7,4 ! 
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Line 1,7,13,7 
Line 7,1,7,13 
Get 0,0,15,15,A$ I 

XX=160 I 

YX=100 I 

On Break Gosub Ende I 

Stick 1 I 


' in V2.XX: OUT 4,20 I 
Do 


I- Pseudo-Sprite bauen 
I 

... I 

X-Startkoordinate 
Y-Startkoordinate 
Break-Funktion abfangen 
Joystick-Modus einschalten 

II II II 


Print At{1,1);'' ";At(1,1); 

If Stick(O) And 1 I Joystick nach oben? 

• in V2.XX: If Peek(3592) And 1 

YX*Max(0,YX-1) I Y-Koordinate vermindern 

Out 5,1 I Hoch-Pfeil zeigen 

Endif 

If Stick(O) And 2 I Joystick nach unten? 

■ in V2.XX: If Peek(3592) And 2 
YX=Min(199,YX+1) I Y-Xoordinate erhöhen 
Out 5,2 I Runter-Pfeil zeigen 

Endif 

If Stick(O) And 4 I Joystick nach links? 

> in V2.XX: If Peek(3592) And 4 
XX=Max(0,XX-1) I X-Koordinate vermindern 

Out 5,4 I Links-Pfeil zeigen 

Endif 

If StickfO) And 8 I Joystick nach rechts? 

• in V2.xx: If Peek(3592) And 8 

XX=Min(319,XX+1) I X-Koordinate erhöhen 
Out 5,3 I Rechts-Pfeil zeigen 

Endif 

Vsync 

If StrigfO) ! Fire-Button gedrückt? 

• in V2.XX: If Peek(3592) And 128 
Print At(1,1);“Feuer " 

For IX=0 To 6 I .. 

Circle XX+7,YX+7,IX I- Grafischer Effekt 

Hext IX I .• 

Print At(1,1);" •' 

Endif 

Put XX,YX,A$ I Pseudo-Sprite setzen 

Loop 

Procedure Ende 

' Diese Prozedur und das oben eingesetzte ON BREAK GOSUB 
' kann ueggelassen werden, wenn nach Programmende im 
' Direktmodus STICK 0 (bzw. in V2.xx: OUT 4,8) eingegeben 
' wird. Geschieht dies nicht, erfolgt keine Hausmeldung. 
Stick 0 ! Mausmodus wieder einschalten 

• in V2.XX: OUT 4,8 ! ■■ ■■ " " 

Edit 

Return 
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Version 3.0 

STRIGO Joystick-Fire-Buttons sbfragen 

Var=STRIG(Mau8-Port) 

Ermittelt den aktuellen Status des Fire-Buttons am angegebenen 
Maus-Port (gedrückt = 1, nicht gedrückt = 0). 

Ein Beispiel finden Sie oben unter STICK(). 
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14. Window-Programmierung mit BASIC-Befehlen 


CLEARW{ CLEW} Fenster- 

CLEARW Nummer 

CLEARW [#] Nummer (nurV3.0) 

Das Fenster, dessen Nummer (0 - 4) hiermit übergeben wird, wird 
gelöscht. Der Befehl CLS kann ebenfalls verwendet werden. Allerdings 
kann dadurch nur das jeweils aktuelle Window gelöscht werden. 

Das Löschen des Fensterinhaltes ist immer dann notwendig, wenn das 
Fenster bewegt oder verkleinert wurde. Sie werden feststellen, daß bei 
Bewegungen oder Größenänderungen der Fenster die Inhalte der übri¬ 
gen Fenster dabei überzeichnet werden. Die Verwaltung der jeweiligen 
Fensterinhalte ist allein Ihre Aufgabe, da niemand außer Ihnen wissen 
kann, was mit den Inhalten bei bestimmten Zuständen geschehen soll. 

PRINT- sowie sonstige Text-Ausgaben können leicht durch eine 
Schleife restauriert werden, die die Textinhalte des Fensters neu in das 
Fenster hineinschreibt. Dagegen ist die Restauration von Grafik-In¬ 
halten allerdings eine recht komplizierte Angelegenheit. Beachten Sie 
dazu WIND GETO. 

Ein Beispiel für die Window-Befehle finden Sie am Ende des Kapitels. 


CLOSEW {CLW} Fenster schließen 

CLOSEW Nummer 

CLOSEW [#] Nummer (nurV3.0) 

Das Fenster mit der angegebenen Window-Nummer wird geschlossen. 


Ein Beispiel für die Window-Befehle finden Sie am Ende des Kapitels. 
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FULLW { FU } Fenster auf maximale Größe bringen 

|nV3.0:{FUL} 

FULLW Nummer 

FULLW [#]Nummer (nurV3.0) 

Nummer bestimmt die Nummer des Windows (1 - 4), welches bis an 
die Menüzeilen-Aussparung am oberen Bildrand vergrößert werden 
soll. 

Am Ende des Kapitels finden Sie ein Beispiel für alle Window-Be¬ 
fehle. 


INFOW {INF} Fenster-Informationszeile bestinimen 

INFOW Nummer,“Text" 

INFOW [#]Nummer,"Text“ (nur V3.0) 

Ein GEM-Window kann eine Informationszeile erhalten, die sich dann 
direkt unterhalb der Titelzeile (grauer MOVE-Balken) befindet. 
Nummer bestimmt die Nummer des anzusprechenden Windows. 

Text enthält den gewünschten Text der Info-Zeile und kann als 
String-Konstante, String-Ausdruck oder String-Variable übergeben 
werden. 

Soll diese Infozeile genutzt werden, wird sie vor dem entsprechenden 
OPENW durch INFOW angelegt. Wurde ein Fenster ohne Infozeile ge¬ 
öffnet, so muß es erst wieder geschlossen werden, um INFOW dort 
einsetzen zu können. Soll die Infozeile gelöscht werden, muß ebenfalls 
vorher das Fenster geschlossen werden, um mit INFOW einen Null- 
String ("") übergeben zu können (anschließend wieder OPENW). 

Am Ende des Kapitels finden Sie ein Beispiel für alle Window-Be¬ 
fehle. 


OPENW {OW} Fenster öffnen 

OPENW Nummer [,Xcenter,Ycenter] 

OPENW #Nummer,Xpos,Ypos,Breite,Höhe,Attribute (nur V3.0) 

OPENW ’Nummer’ öffnet bzw. aktiviert das Window, dessen Nummer 
(0-4) übergeben wird.. 
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Die Fenster sind dabei zuerst ohne Überlappungen folgendermaßen 
angeordnet; 


I I 

Window 1 Window 2 

I 

I 

. BiIdschirmmitte . 

I 

I 

Window 3 Window 4 

I 


Wird die optionale Koordinatenangabe Xcenter.Ycenter eingesetzt, so 
berühren sich die Fenster an dem Bildschirmpunkt, der durch Xcen- 
ter/Ycenter bestimmt wurde. Dieser Schnittpunkt kann beim öffnen 
oder Aktivieren jedes Windows durch neue Xcenter/Ycenter verändert 
werden. Er ist dabei unabhängig von einem evtl, durch OPENW 0 
vorgegebenen Grafik-Nullpunkt (siehe unten). 

OPENW 1,200,150 
oder OPENW 2,200,150 
oder OPENW 3,200,150 
oder OPENW 4,200,150 

hätte folgende Wirkung: 


<- 200 


I 

I 

150 


Window 1 
.Xcenter/' 

Window 3 


Window 2 
Ycentei- 

Window 4 


I_..........I....._ 


Die Windows werden dabei nicht in ihrer eigentlichen Lage verändert, 
sondern nur in ihrer Größe. Ihre relative Stellung zueinander bleibt 
erhalten. 

Die zweite Syntax-Variante gilt nur für V3.0 und ermöglicht es, über 
einen einzigen Befehl das gesamte Fenster zu definieren. Dadurch 
kann die folgende Vorgehensweise aus den V2.xx-Versionen ersetzt 
werden: 
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Dpoke Windtab+2+(Nunmer-1)*12,Attribute 
Dpoke Uindtab«'4+(NLimier-1)*12,Xpos 
Dpoke Uindtab<-6+(Numner-1)*12,Ypos 
Dpoke Uindtab«-8+{Nuniner-1)*12,Breite 
Dpoke Windtab+10+{Nummer-1)*12,Höhe 
O^nu 1 

Die hiermit übergebenen Koordinaten beziehen sich dabei absolut auf 
die linke obere des jeweiligen Fensters und lassen die übrigen Fenster 
unverändert. 

Die Bedeutung der einzelnen Parameter finden Sie unter WINDTAB 
beschrieben. 

Beim ersten öffnen eines Fensters mit den Nummern 1 - 4 wird au¬ 
tomatisch ein nicht sichtbares Fenster mit dem Nummer 0 geöffnet, 
das den Menüzeilenbereich am oberen Bildrand ausspart. 

Window 0 ist kein Fenster, das Sie in der Größe definieren können. Es 
bildet nur den Hintergrund zu einem evtl, vorhandenen Pull-Down- 
Menü. Würde das Window 0 nicht geöffnet und Sie benutzen keine 
weiteren Fenster, so würde die Menüleiste von Text- oder Grafik- 
Ausgaben überschrieben werden, öffnen Sie dagegen Window 0, wird 
der Bildschirm am oberen Rand einfach um 18 Pixel abgeschnitten. In 
diesem 18 Pixel breiten Streifen hat jetzt ggfs, die Kopfzeile eines 
Pull-Down-Menüs Platz und alle Ausgabe-Befehle nehmen nun Pixel 
X=0/Y=19 des gesamten Bildschirms als Ursprung an. 

Bei Programmende oder im Falle, daß der gesamte TOS-Bildschirm 
aktiviert werden soll, ist dieses Window vorher mit CLOSEW 0 zu 
schließen. Sind alle anderen Fenster geschlossen, kann durch OPENW 
0,X_pos,Y_pos der Bildschirm-Nullpunkt beliebig bestimmt werden 
(siehe CLIP). Auf diesen Nullpunkt beziehen sich dann alle weiteren 
GEM/VDI-Ausgaben (TEXT, CIRCLE, BOX etc.). 

Am Ende des Kapitels finden Sie ein Beispiel für alle Window-Be¬ 
fehle. 


TITLEW {TIT} Fenster-Titelzeile besiimnien 

lnV3.0:{TI} 

TITLEW Nummer,"Text" TITLEW [#] Nummer,"Text" (nur V3.0) 

Das Fenster mit der angegebenen Nummer erhält in dem grauen 
MOVE-Balken die Überschrift Text. 
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Bis auf zwei Abweichungen gelten hier dieselben Erläuterungen wie 
zu INFOW. Die Abweichungen zu INFOW sind; 

Text = ” “ => 2 Space = Keine Überschrift 
Text = => NuU-String = Fenster ist unbeweglich. 


Version 3.0 

TOPW {TO} Fenster aktivieren 

TOPW #Nummer 

Dieser V3.0-Befehl aktiviert das Fenster mit der Nummer #Nummer. 
Das Fenster muß vorher durch OPENW geöffnet worden sein. Liegt es 
vor TOPW-Aufruf unter einem anderen Fenster, wird es "nach oben" 
gelegt und aktiviert. Im Gegensatz zu OPENW wird dabei intern keine 
Ab- und Anmeldung vorgenommen, was die Absturzgefahr bei 
"leichtsinniger" Fenster-Programmierung erheblich verringert. 

Version 3.0 

W_HAND0 GEM-Window-Handle ermitteln 

Var=W_HAND(Nummer) 

Liefert in V3.0 das Original-GEM-Handle des durch die GFA-Fen- 
sternummer Nummer angegebenen Windows. W_HAND() ist die Um¬ 
kehrfunktion zu W_INDEX(). 


Version 3.0 

WJNDEXO GFA-Window-Nummer ermitteln 

Var=WJNDEX(Handle) 

Liefert in V3.0 die GFA-Fensternummer des durch das Original- 
GEM-Handle Handle angegebenen Windows. W_INDEX() ist die Um¬ 
kehrfunktion zu W_HAND(). 
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WiNDtAB Fenster-Verwaltungstabelle 


Var=DPEEK(WINDTAB) 

DPOKE WINDTAB,Wert 

Die ist die Start-Adresse eines Speicherbereichs, aus welchem 
Window-Verwaltungsdaten gelesen, bzw. in den solche nach Bedarf 
auch geschrieben werden können. 


WINDTAB-Tabelle (je ein Word): 


Offset: Bedeutung: 

+0 GEH-Handle für Window 1 

♦2 Attribute für Window 1 (siehe 'Attribut') 


+4 

X-Koordinate für Window 1 




+6 

Y-Koordinate für Window 1 




+8 

Breite Window 1 




+10 

Höhe Window 1 




+12 





bis 

j-- Entsprechende Angaben 

für Window 2 


+22 

• 1 




+24 

• , 




bis 

|-- Entsprechende Angaben 

für Window 3 


+34 

. 1 




+36 





bis 

i-- Entsprechende Angaben 

für Window 4 


+46 

. 1 




+48 

Reserviert (inner -1) 




+50 

Reserviert (immer 0) 

Hi res 

Hidres 

Lowres 

+52 

GEM-BiIdschirra-X-Koordinate 

(0) 

(0) 

(0) 

+54 

GEM-BiIdschirm-Y-Koordinate 

(19) 

(10) 

(10) 

+56 

GEH-Bildschirmbreite 

(639) 

(639) 

(319) 

+58 

GEM-BiIdschirmhöhe 

(381) 

(190) 

(190) 


*60 X-Schnittpunkt der vier Fenster (siehe OPENW) 

+62 Y-Schnittpunkt der vier Fenster (siehe OPENW) 

+64 X-Nullpunkt für Grafikbefehle 

+66 Y-NuUpunkt für Grafikbefehle 

Durch die letzten beiden Elemente der Tabelle hat man eine weitere 
Möglichkeit in V2.xx den Grafik-Nullpunkt selbst zu bestinmen (siehe CLIP 
und OPENW). 


Bestimmung der aktiven Randelemente: 
In V3.0: 

WINDTAB(Nuniner,1)=Attribut 


In V2.xx: 


DPOKE WINDTAB+2+(Nuniner-1)*12,Attribut 
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Nuimer = GFA-UindowNuirier (1-4). 


Attribut ist ein 12-Bit-Wert, dessen gesetzte Bits 
die Komponenten des Fensters bestimmen: 


Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 8 
Bit 9 
Bit 10 
Bit 11 

Z.8.: 


NAME des Fensters (Titelzeile) 

CLOSE-Feld links o^ 

FULL-Feld rechts oben 
HOVE-Balken oben (grauer Balken) 

INFO-Zeile unter dem HOVE-Balken 
SIZE-Feld rechts unten 
UPARROU rechts (Aufwärtspfeil) 

DNARROU rechts (Abuärtspfei l) 
VSLIDE-Balken rechts (Vertikalschieber) 
LFARROU unten (Linkspfeil) 

RTARROU unten (Rechtspfeil) 

HSLIDE-Balken unten (Horizontalschieber) 


Dpoke Uindtab«^2,&X111111111111 

=*> Es werden alle Komponenten von 
Window 1 aktiviert. 


Dpoke Uindtab<’2,&X001001001001 

»> Es wird nur NAME,MOVER,PFEIL hoch 
und PFEIL links von Window 1 gesetzt. 

usw. 


Wurde bei Programmstart mit TITLEW eine Kopfzeile, bzw. mit IN- 
FOW eine Infozeile eingerichtet, bleibt sie auch aktiv, wenn hier die 
entsprechenden Bits nicht gesetzt werden. 


Version 3.0 

WiNDTABQ Fenster-Yerwaltungstabelle als Ariray 

Var=WINDTAB(Nummer,Index) 

WINDTAB(Nummer,Index)=Wert 

Dies ist eine Funktion, mit welcher die WINDTAB-Tabelle bis zum 
46. Element auch über einen zweidimensionalen Index angesprochen 
werden kann. 


Mit Nummer gibt man im ersten Parameter die GFA-Nummer des 
gewünschten Windows an (0 - 4). Der zweite Parameter Index steht 
für das Element der Tabelle, das ausgelesen oder verändert werden 
soll: 
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0 Window-Nummer. 

1 Window-Attribute. 

2 Window-X-Koordinate. 

S Window-Y-Koordinate. 

4 AuBere Window-Breite. 

5 AuBere Window-Höhe. 


Beispiel: 


Openw #1,100,100,100,80,&HFFF 

Pause SO 

Closeu 1 

Uindtab(1,1)=0 

Uindtab(1,2)=10 

Uindtabd,3)^20 

Uindtab(1,4)=200 

Uindtab(1,5)*175 

Openw 1 

Clearw 1 

Pause 50 

Closew 1 

Closeu 0 


I Window öffnen 
I Kurz anschauen 
I Window schlieBen 
I Neue Attribute 
I Neue X-Koordinate 
I Neue Y-Koordinate 
I Neue Breite 
I Neue Höhe 

I Fenster wieder öffnen 
I Fenster säubern 
I Kurz anschauen 
! Fenster schließen 
I GEM-Fenster schlieBen 


Beispiel zur Menü-, Window- und Ereignis-Verwaltung 

Wer sich schon mal mit GEM-Programmierung befaßt hat, wird annä¬ 
hernd ermessen können, was es heißt, BASIC-Befehle zu entwickeln, 
die die Erstellung von Pull-Down-Menüs und Fenstern dermaßen 
vereinfachen, wie es mit diesem BASIC möglich ist. 

Als Grundlage zur Erläuterung dieser Befehle soll uns ein Programm 
dienen, das mit einfachen Mitteln ein Pull-Down-Menü und die Ver¬ 
wendung von bis zu vier verschiedenen Fenster ermöglicht. Der Be¬ 
griff "einfach” ist in diesem Fall relativ zu betrachten. Der Einsatz 
dieser Befehle birgt schon einige Klippen, die erst einmal, und das gilt 
speziell für Einsteiger, vorsichtig zu umgehen sind. 

Dieses Programm ist so ausgelegt, daß es als Grundkonzept für Win¬ 
dow- und Menüprogrammierung verwendet werden kann. Experimen¬ 
tieren Sie damit und beachten Sie die verschiedenen Effekte im Menü 
und in den Windows, wenn Sie z.B. Menüpunkte anwählen oder die 
Randelemente der Fenster anklicken. 
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On break gosub Ende I Break abfangen 

' Damit alle Fenster in jedem Fall ordnungsgemäB geschlossen 
' werden, bzu. das Menü ausgeschaltet wird, ist sicherzustellen, 
' das auch bei der Break-Funktion <Control><Shift><Alternate> 

' zur AbschluB-Prozedur verzweigt wird. 

■ Werden diese AbschluBarbeiten nicht ausgeführt, kann das zu 
' Abstürzen führen. 

Dirn M.punkt$(32) I Menü-Array dimensionieren 

' Es muB ein Text-Array angelegt werden, das die verschiedenen 

■ Menütexte aufzunehmen hat. Dabei ist auf eine ausreichende 

' Dimensionierung zu achten. Es werden hier alle übergebenen 

' Strings gerechnet (also auch Leer-Strings). 

Restore M.datas I Menü-DATA-Zeiger setzen 

• Die einzelnen Menüpunkt-Texte werden hier in DATA-Zeilen 

' abgelegt, aus denen Sie nun mit der folgenden Schleife 
' ausgelesen werden. 

For 1=0 To 31 I 31 Menü-Texte 

Read M.punktSd ) I ...lesen 

' Durch diese Schleife werden die einzelnen Data-Strings dem 
' Menütextfeld zugeordnet. 

Exit if M.punktSd)=" " I Exit, wenn Endmarkierung erreicht 

Next I 

M.punktSd)*"" ! Letztes Menü abschlieBen 

M.punktSd>1)="" I Gesamtes Pull-Down-Menü abschlieBen 

M.datas: 

Data DESKTOP 

Data Information 

Data. 

DAtA "" 

vaia ,,,,,, 

Data DISKETTE 
Data Datei laden 

Data Datei speichern 

Data Datei einrichten 

Data Datei löschen 
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Data., Quit,'"' 

Data SERVICE 

Data - BLOCK 1 . 

Data Menüpunkt 1a 

Data Henüpunkt 1b 

Data Menüpunkt 1c 

Data-BLOCK 2. 

Data Menüpunkt 2a 

Data Menüpunkt 2b 

Data Menüpunkt 2c 

Data.BLOCK 3. 

Data Menüpunkt 3a 

Data Menüpunkt 3b 

Data Menüpunkt 3c 

Data ■■■■ 

Menu M.punktSO ! Menü installieren 

Openw 0 I GEM-Haupt-Uindou öffnen 

Dpoke Contrl+2,0 I . 

Dpoke Contrl+6,1 I Textart wählen 

Dpoke Contrl+12,1 I- siehe Prozedur Ttype 

Dpoke Intin.l I unter DEFTEXT 

Vdisys 106 I .' 

Dpoke Contrl+2,0 ! . 

Dpoke Contrl+6,1 I Texthöhe wählen 

Dpoke Contrl+12,1 I- siehe Prozedur Tsize 

Dpoke Int in,9 ! unter DEFTEXT 

Vdisys 107 I -' 

Deftext ,1,0,13 I PRINT-Texteinstellung 

' Mit dieser DEFTEXT-Einstellung können auch die PR INT-Ausgaben 
' im Fenster modifiziert werden. Wird die Schrifthöhe verändert, 
' verändern sich entsprechend auch die Cursor-Positionen (siehe 
■ PRINT AT(x,y) bzw. CRSCOL/CRSLIN). Dies ist auch bei Window 0 
' möglich, ohne das weitere Fenster geöffnet werden. Die Ausgabe 

‘ von Text geht dann allerdings erheblich langsamer vor sich, da 

• dann auch PRINT-Texte über das VDI ausgegeben werden und nicht 
' mehr über das TOS. 

XtX°2-Sgn(Xbios(4)) I X-Auflösungsteiler 

YtX=Min{2,3-Xbios(4)) I Y-Auflösungsteiler 

Deffill ,2,4 I DEFFILL grau 

Pbox 0,0,639/Xt*,380/YtX ! Desktop zeichnen 

For 1=1 To 4 ! 4 Fenster 

Dpoke Windtab+2+(I-1)*12,&Xl11111111110 I definieren 
' Hier werden die aktiven Window-Randelemente festgelegt. 

' Die Bedeutung der Bits erfahren Sie unter WINDTAB. 

Infow #1," INFO-Zeile "+Strt(I) I Info-Zeile setzen 
Titlew #1,*' TITEL-Zeile '•+Str*(I) I Titel-Zeile setzen 
Openw I I Fenster öffnen 

Clearw I I Fenster klar 

Next I 

Count=4 I Fenster-Zähler setzen 

' Diese Zählvariable hat den Zweck, festzustellen, ob alle 
' geschlossen wurden. 

On menu gosub M.deal I Bei Pull-Down-Menü-Ereignis verzweigen 


On menu message gosub M.essage I Bei Message-Puffer-Ereignis " 
On menu key gosub K.ey ! Bei Tastatur-Ereignis " 

On menu ibox 1,10,10,100,100 Gosub I.box I Bei Ibox-Ereignis " 
On menu obox 2,10,10,100,100 Gosub O.box ! Bei Obox-Ereignis " 
Do ! Endlos-Schleife 
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' Dies ist die Hauptschleife des Programms. Innerhalb 
‘ dieser Schleife wird nun je nach Bedarf das eigentliche 
' Programm installiert. 

On menu ! Ereignisse feststellen 

Mouse X,Y,K I Haus-Status abfragen 

Xr=Dpeek(Windtab<-8+(Menu(A)-1)*12)-20/XtX I Window-Breite holen 
Yr=Dpeek(Windtab+10+(Henu(4)-1)*12)-60/YtX I Window-Höhe holen 
If K=1 And X=>0 And Y=>0 And X<Xr And Y<Yr 

■ Linker Hausklick innerhalb des aktuellen Windows? 

Print X'Y I Xoordinaten ausgeben 

Endif 
Loop 

Procedure H.essage I Ziel-Prozedur für Hessage-Ereignisse 

If Henu(1):21 I Window aktualisieren (angeklicktj? 

Infow #Henu(4),"(TOPPER) Window "+Str$(Henu(4))+" gewählt" 
Openw HenulA) I Gewünschtes Fenster öffnen 

Clearw Henu(4) I _und säubern 

Endif 

If Henu(1)s:22 I Window schließen (CLOSE-Feld)? 

Closew Henu(4) I Aktuelles Window schließen 

Oec Count I Fensterzähler minus 1 

If Count=0 I Alle Fenster zu? 

Alert 2,"Programm-Ende ?",1,"0KAY|HEIN",DX 
If DX°1 I Abbruch? 

SEnde I Dann Ende 

Else 

Alert 1,"Fenster öffnen:[Tasten 1 - 4",1,"0KAY",D* 

Endif 

Endif 

Endif 

If Henu(1)=23 I Window auf Haximal-Haß (FULL-Feld)? 

Closew Henu(4) I Aktuelles Window schließen 

Dpoke Windtab+4+(Henu(4)-1)*12,0 I Neue X-Koordinate 

Dpoke Windtab<-6+(Henu(4)-1)*12,19/YtX I Neue Y-Koordinate 
Dpoke Windtab»8+(Henu(4)-1)*12,639/XtX ! Neue Breite 

Dpoke Windtab*10+(Henu(Ö-1)*12,380/YtX I Neue Höhe 
' In dieser Routine würde eigentlich allein der Befehl 
' FULLW HandleX ausreichen. Dieser Befehl arbeitet 
' leider nicht immer korrekt. 

' Er läßt sich Jedoch leicht simulieren, indem man das 

• betreffende Fenster schließt, in die WIHDTAB-Elemente, 

' welche die Fenster-Koordinaten enthalten, die gewünschten 
' Koordinaten einträgt und dann das Fenster wieder öffnet. 
Infow #Henu(4),"(FÜLLER) Volte Größe !" I neue Info-Zeile 
Openw Henu(4) I Fenster wieder öffnen 

Clearw Henu(4) I ...und säubern 

Endif 

If Henu(1)=24 I Window-Inhalt scrollen? 

' I (siehe unter HENU(I) -> 24) 

Infow #Henu(4),"(ARROWS) Pfeil:"+Str$(Henu(5)) 

Endif 

If Henu(1)=25 I Window-Inhalt horizontal verschieben? 

• I (siehe unter HENUd) -> 2S) 

Infow #Henu(4),"(SLIDE)H-Schieber : "+Str$(Heno(5)) 

Endif 

If Henu(1)=26 I Window-Inhalt vertikal verschieben? 

' I (siehe unter HENUd) -> 26) 

Infow #Henu(4),"(SLIDE)V-Schieber : "+Str$(Henu(5)) 

Endif 
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If Menu(1)°27 I Uindow-GröBe ändern (SIZE-Feld)? 

Closeu Menu(4) I Aktuelles Fenster schlieBen 

Dpoke Uindtabt8+(Menu(4)-1)*12,Henu(7) ! Neue Breite eintragen 
Dpoke Uindtat>4'10'f(Menu(4}-1}*12,Menu(8)l Neue Höhe eintragen 
' Falls das GröBenfeld rechts unten gewählt wurde, werden 
' den ensprechenden Elementen der UINDTAB-Tabelle die 
' neuen Uindow-MaBe übergeben. 

Infow #Menu(A),"{SIZER) FenstergröBe verändert" 

Openw Henu(4) I Fenster wieder öffnen 

Clearw Menu(4) I Fenster säubern 

acet.wholearea I Koordinaten und HaBe der inneren 

' I Arbeitsfläche holen 

Print "X-Koordinate der Arbeitsfläche bei: ";Uorkx 
Print "Y-Koordinate des Arbeitsfläche bei: ";Uorky 
Print "Breite der Arbeitsfläche: ";Uorkb 
Print "Höhe des Arbeitsfläche: ";Uorkh 

Endif 

If Henu(1)°28 I Window verlegen (H0VE-Balken)7 

Closew Henu(A) I Aktuelles Window schlieBen 

Dpoke Windtab+A+(Menu(4)-1)*12,Henu(5) I Neue X-Koordinate 
Dpoke Windtab+6+(Henu(A)-1)*12,Menu(6) I Neue Y-Kooridnate 
Dpoke Windtab*8+{Menu(A)-1)*12,Henu(7) I Neue Breite 
Dpoke Windtab+10t(Henu(Ä)-1}*12,Menu(8)l Neue Höhe 
Infow i(Menu(A),"(MOVER) Fenster wurde bewegt" 

Openw Henu(Ä) I Window wieder öffnen 

Clearw Menu(A} I Window säubern 

' Das Fenster wurde bewegt. Die Windtab-Tabelle und die 
' Info-Zeile werden aktualisiert und das Fenster mit den 
' neuen Koordinaten gezeichnet. 

Endif 


Return 

Procedure M.deal 
Menu off 
Cls 

Print "Menu 0 : 
Print "Menu 2 : 
Print "Menu 4 : 
Print "Menu 6 : 
Print "Menu 8 : 
Print "Menu 10: 
Print "Menu 12: 
Print "Menu 14: 
Print "Menu 
MpX=Menu(0) 


I Ziel-Prozedur bei Menü-Ereignissen 
I Titel-Zeile wieder weiß schalten 
I Aktuelles Fenster säubern 
;Menu(0);" Menu 1 :";Menu(1) I--. 

;Menu(2)," Menu 3 :",-8600(3) I 

,-8600(4);" Menu 5 :";Menu(5) I 

;Menu(6)," Menu 7 :";Menu(7) I Gesamten 

;Menu(8);" Menu 9 :";Menu(9) (- Message- 

;Menu(10)," Menu 11:";Menu(11) I Puffer 

;Menu(12)," Menu 13:";Henu(13) I ausgeben 

;Menu(14)," Menu 15:";Menu(15) I 

1 (Objektbauredresse) :";Henu(-1) I--' 

I Index des gewählten Menüpunktes 


In Menu(O) wird generell der Index des angewählten 
Menüpunktes abgelegt. Dieser Index ist identisch mit 
dem Index des entsprechenden Menüpunkt-Textelementes 
im Menütext-Feld. 


' Die folgenden Abfragen beziehen sich auf das jeweils 
' stattgefundene Ereignis und verwenden zur Feststellung 
' den im entsprechenden Menütext-Element enthaltenen Text. 

• Der zur Abfrage verwendete String muB dabei mit dem 
' Menütext-String absolut (inkl. Leerzeichen) identisch sein. 
If M.punktS(MpX)=" Information" 

Al.str$="Geschlossene Fenster könnenjüber die Ziffern" 

Al.str$=Al.strS+"tasten 1 - 4]wieder geöffnet werden I" 

Alert 1,Al.str$,1,"0KAY",DiJiriy 
Endif 
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Henu MpX,2 I Henüpunkt grau (inaktivieren) 

Henu MpX,1 I Henüpunkt "abhaken" (markieren) 

Menu Mp.inemX,3 I Vorherigen Menüpunkt (aktivieren) 

Menu Hp.memXfO I Markierung d. vorherigen Menüpunkts 

■ I löschen 

Mp.memX=HpX I Index des aktuellen Henüpunkts merken 

If H.punkt$(MpX)=" Datei laden" 

' •• Lade-Routine ** 

Endif 

If H.punkt$(MpX)=" Datei speichern" 

' *• Speicher-Routine ** 

Endif 

If M.punkt$(HpX)=" Datei einrichten" 

' ** Init-Routine *• 

Endif 

If H.punkt$(MpX)=" Datei löschen" 

' •• Kill-Routine ** 

Endif 

If H.punkt$(MpX)>" Quit" 

' •• Quit-Routine *• 
aEnde 
Endif 

If M.punkt$(MpX)=" Menüpunkt 1a" 

' •* Menü-Routine 1 ** 

M.punkt$(MpX)=" 1a umgekehrt" I Neuen Text zuordnen 
Menu H.punktSO I Menü neu initialisieren 

' Es ist auch eine nachträgliche Änderung des Menütextes 
' möglich. Dies wird interessant, wenn ein angeklickter 
' Menüpunkt nach Ausführung der ihm zugeordneten Funktion 
' z.B. in die gegenteilige Funktion verwandeln soll (z.B. 

' von "schwarz" zu "weiB" - und umgekehrt). 

' Dazu muB das Element des Menütext-Feldes mit dem Index 
' des gewählten Menüpunktes verändert werden. Den Index 
' des Punktes finden Sie in MENU(O). 

' Beim Auswechseln des Textes ist darauf zu achten, daB 
' der neue Henütext nicht länger ist als der alte (Absturz). 

' Ist der Text ausgewechselt, muß mit MENU'ArrayS' das Menü 
' neu initialisiert werden. Durch eine Operation dieser Art 
' mit allen Henüpunkt-Texten kann man folglich während des 
' Progranms such das komplette Menü auswechseln, womit also 

■ auch der Einsatz mehrerer Menüs gleichzeitig möglich ist. 

' Wenn mehr Menüpunkte existieren, als mit einem Menü auf 

' dem Bildschirm grafisch darstellbar sind, kann man so 

■ mehrere Menüs aufbauen, die sich dann gegenseitig aufrufen 
' bzw. sich miteinander ergänzen. 

Else 

If M.punkt$(MpX)=" 1a umgekehrt" 

' •* Alternative zu Menü-Routine 1 ** 

M.punkt$(MpX)=" Henüpunkt 1a" 

Henu H.punktSO 
Endif 
Endif 

If M.punkt$(MpX)=" Henüpunkt 1b" 

' ** Menü-Routine 2 •* 

Endif 

If M.punkt$(MpX)=“ Menüpunkt 1c" 

' •* Menü-Rout ine 3 ** 

Endif 

If M.punkt$(MpX)=" Menüpunkt 2a" 
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' ** Menü-Rout ine 4 •• 

Endif 

If M.punkt$(HpX)=“ Menüpunkt 2b“ 

' ** Menü-Routine 5 *• 

Endif 

If M.punkt$(MpX)=" Menüpunkt 2c“ 

' *• Menü-Rout ine 6 ** 

Endif 

If M.punkt$(MpX)=“ Menüpunkt 3a“ 

' ** Menü-Rout ine 7 *• 

Endif 

If M.punkt$(MpX)=“ Menüpunkt 3b“ 

' *• Menü-Routine 8 ** 

Endif 

If M.punkt$(MpX)=“ Menüpunkt 3c“ 

' ** Menü-Routine 9 ** 

Endif 

Return 

Procedure K.ey I Ziel-Proiedur bei Tastatur-Ereignissen 

Print “Scan- + ASCII-Code : ";Menu<K) ! Code anzeigen 
Taste$=Right$(Mki$(Menu(U))) ! ASCII-Zeichen 

Print “Scan-Code : “'Peek(Varptr(Taste$)) ! Scan-Code ausgeben 
Print “ASCII-Code : “'PeekfVarptrCTasteST+DI ASCII-Code " 

If Taste$=>“1“ And Taste$=<“4“ I 1 bis A gedrückt? 

Openw Val(Right$(Tastet)) I Entsprechendes Window öffnen 
Clearu VaURightSCTasteS)) I Entsprechendes Window säubern 
Inc Count I Fensterzähler plus 1 

Endif 
Return 

Procedure I.box I Ziel-Prozedur bei Ibox-Ereignissen 

If Flag^O I Ibox-Flag nicht gesetzt? 

Print “Mauszeiger befindet sich in der Box.“ 

Flag=1 I Ibox-Flag setzen 

Endif 
Return 

Procedure O.box I Ziel-Prozedur bei Obox-Ereignissen 

If Flag=1 I Maus war in der Box? 

Print “Mauszeiger befindet sich außerhalb der Box.“ 

Flag=0 I Ibox-Flag löschen 

Endif 
Return 

Procedure Get.wholearea 

' In dieser Prozedur wird die Größe und Position der 
' Arbeitsfläche des jeweiligen Fensters ermittelt. Dies 
' ist eine AES-Funktion, die Sie nach Bedarf verwenden 
' können. 

' Die Ermittlung der Arbeitsflächen-Koordinaten und 
' -Maße ist zur Restauration von Fensterinhalten 
' (Window-Redraw) unumgänglich. 

Dpoke Gintin,Menu(A) 

Dpoke Gintin+2,A 
Gemsys 10A 

Workx=Dpeek(Gintout+2) 

Worky=Dpeek(Gintout+A) 

Workb=Dpeek(Gintout+6) 

Workh=Dpeek(Gintout+8) 

Return 

Procedure Ende I Break-Abfang-Prozedur 

Closew A !--. 
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Ctoseu 3 
Closew 2 
Closew 1 
Closew 0 
Henu kill 
Cls 
Edit 
Return 


I Alle Fenster 
I- schlieBen 
I 

|..i 

I Henü ausschalten 
I Bildschim löschen 
I Zurück zum Editor 
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15. Menüprogrammierung mit BASIC-Befehlen 


MENU menü MenQpunkt-Attribute bestimmen 

MENU Menüpunkt,Attribut 

Mit diesem Befehl kann bestimmt werden, ob ein Menüpunkt grau 
(inaktiv) dargestellt werden soll oder schwarz (aktiv). Außerdem kön¬ 
nen vor einem Menüpunkt-Text Häkchen (Checkmarks) gesetzt wer¬ 
den. Diese kennzeichnen üblicherweise, daß die Funktion, die durch 
den gewählten Menüpunkt repräsentiert wird z.Zt. aktiv ist. 

Dazu wird dem Befehl in Menüpunkt der Index des zu markierenden 
bzw. des zu invertierenden Menüpunktes (siehe MENU(O)), sowie nach 
einem Komma das gewünschte Attribut übergeben. 

Attribut: 

1 Checkmark löschen. 

1 Checkmark setzen (abhaken). 

2 MenUpunkt deaktivieren (hell). 

3 Menüpunkt aktivieren. 

Bei MENU MenütextS sind für den Fall, daß Checkmarks (Häkchen) 
gesetzt werden sollen, vor der jeweiligen Menüpunkt-Bezeichnung 
zwei Leerzeichen vorzusehen. 

Als Beispiel beachten Sie das Abschluß-Beispiel der Window-Befehle 
im Anschluß an WINDTAB(). 


MENU menütext$0 Pull-Down-MenU erstellen 

MENU ArraySO 

Mit diesem Befehl wird dem Interpreter gesagt, wo er im Speicher die 
einzelnen Menüeinträge findet. Sie übergeben ihm dazu in Klammern 
den Namen eines eindimensionalen String-Arrays, das die Menütexte 
enthält. Dieses Array muß soviele Elemente aufweisen, wie insgesamt 
an Menüpunkt-Texten zugewiesen werden sollen. 

Hierbei ist zu beachten, daß das erste Menü (Desktop-Menü für Ac- 
cessories) folgenden Aufbau hat: 
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1. String = Menütitel (evtl. Programmname). 

2. String = Beliebige Überschrift (üblich: Programm-Info). Unter diesem 
Menüpunkt können Sie eine beliebige Programm-Funktion einordnen. 
Da es aber der einsige verwendbare Menüpunkt in diesem ersten Menü 
ist, wird es normalerweise für die Ausgabe einer allgemeinen Pro¬ 
gramm-Information (b.B. Copyright) verwendet. 

3. String = Reihe von Minusseichen (bsw. Bindestrichen). Die Ansahl der 
Striche bestimmt hier die Menübreite. Da in diesem Menü grundsKts- 
lich die evtl, vorhandenen Desk-Accessories aufgeführt werden, sollten 
Sie hier die L&nge des längsten Accessory-Titels berücksichtigen. 

4 . String = Sechs Leer-Strings (mind. " "), die als Platehalter für die 

bis Accessory-Titel dienen. Es dürfen hier keine Null-Strings ("") überge¬ 

ben werdeni 

9 . 

10. String = Null-String. Dieser Null-String gilt als Abschluß für Jede ein- 
selne Menüreihe. 


An diesen ersten Menüaufbau werden nun die von Ihnen frei benenn¬ 
baren weiteren Menüs angehängt. Diese sind so aufgebaut, daß sich an 
den Menütitel (der String der immer in der Menüleiste sichtbar bleibt) 
die einzelnen Menüpunkt-Bezeichnungen anschließen. Dabei muß auch 
hier, wie beim ersten Menü, ein Null-String ("") den Abschluß zu je¬ 
dem einzelnen Menü bilden. 

Nachdem alle Menüeinträge gelesen wurden, muß als Endmarkierung 
dem gesamten Menüaufbau noch ein Null-String als Endmarkierung 
angehängt werden. Wollen Sie, daß bei Anwahl eines Menüpunktes 
dieser mit einem Häkchen (Checkmark siehe MENU Menü¬ 
punkt,Attribut) versehen wird, sollten Sie vor dem Text des ge¬ 
wünschten Menüpunktes zwei Leerzeichen vorsehen, damit dieses 
Checkmark genügend Platz hat. 

Außerdem ist es möglich, einen Menüpunkt-Text invers (grau = inak¬ 
tiv) darzustellen. Dazu muß das erste Zeichen des Text-Strings ein 
Minuszeichen (bzw. Bindestrich: -) sein. Nachdem das Menü eingele¬ 
sen wurde, wird es durch diesen Befehl auch gleichzeitig aktiviert. 


OESKTITEL 


Punkt1 
Punkt2 




Beispiel: 


DIM Array$(30) 
REPEAT 

READ ArraySdX) 
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INC IX 

UNTIL Array»(IX)="XXX" 
Array$(IX)="" 

DATA DESKTITEL,Menüpunkt 
DATA. 


DATA Acc1,Acc2,Acc3,Acc4,Acc5,Acc6,"" 
Punkt2, Punkts, 


DATA MENÜ1, Punkt1 
DATA MENÜ2, Punkt 1 
DATA HENU3, Punkt 1 
DATA HENÜ4, Punkt 1 
DATA XXX 
MENU ArraySO 


Punkt2, Punkts,'"' 
Punkt2, Punkts,"" 
Punkt2, Punkts,"" 


Als weiteres Beispiel beachten Sie das Abschluß-Beispiel der Window- 
Befehle im Anschluß an WINDTAB(). 


Zu jedem besseren Programm gehört unvermeidlich, daß die evtl, vor¬ 
handenen Desktop-Accessories angewählt werden können. Dazu muß 
man nicht "unbedingt" reine GEM-Programme mit Windows, Menüs 
und allem Drum und Dran schreiben, sondern es reicht, das Pull- 
Down-Menü mit den Accessories nur dann zur Verfügung zu stellen, 
sobald es vom Anwender gewünscht wird. 

Zu diesem Zweck folgt nun eine Prozedur, die diesen Vorgang selbst¬ 
ständig erledigt, wobei auch der Hintergrund nach Rückkehr zum 
Programm selbsttätig wieder restauriert wird. Sollten während der 
Warteschleife weitere ON MENU GOSUBs aktiv sein, ist darauf zu 
achten, daß wieder zur Warteschleife zurückgekehrt wird, da sonst das 
Menü und der Hintergrund nicht korrekt restauriert werden können. 

DeffiU ,2,2 

Pbox 10,10,630,390 

Print "Maustaste drücken" 

Do 

Repeat 

Until Mousek 

aAccessC'ACCESSORY"," ZURÜCK ZUM PROGRAMM") 

Loop 

I 

Procedure Access(Ac.titel$,Ac.exit$) 

• Ac.titelS = gewünschter Titel für das Accessory-Menü. 

• Ac.exitS = Text des ersten Menüpunkts im Accesory-Menü. 

' Gilt hier als Exit-Menüpunktl 

Local M.iX,M.bg$ ! Lokale Variablen 

Pause 6 ! Kleine Klickpause 

Sget M.bgS I Hintergrund sichern 

For M.iX=Xbios(2)+160 To Xbios(2)+1520 Step 160 

Bmove Vsrptr(M.bg$),M.iX,Max(1,32000-(M.iX-Xbios(2))) 

' Bildschirm-Inhalt "soft" abwärts scrollen 

Next M.iX 

Dirn M_feld*{10) I Menütext-Feld einrichten 

M_feld${0)=Ac.titel$ ! Accessory-Menütitel zuordnen 

M_feld$(1)=Ac.exit$ I Ersten Menüpunkt zuordnen 
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H feld$(2)=".! Henübreite 

FÖr H.iX==3 To 8 I 6 mal 

H feld*(M.i*)=" " I 2-Space-String übergeben 
Next M.iX 

M_feld$(9)="" I 1. Endnarkierung setzen 

M_feld*(10)="'' I 2. Endnarkierui^ setzen 

Menu M_feld$() I Menü initialisieren 

On menu gosub Acc_menue_xxx I Menü-Überwachung amelden 
Do ! Endlos-Schleife 

On menu I Ereignisse überwachen 

Exit if M_feld$(Menu(0)}=Ac.exitS I Exit, wenn 
Loop I Exit-Menüpunkt gewählt wurde 

Menu kill I Menü ausschalten 


For M.iX=Xbios(2)+1520 To Xbios(2)+160 Step -160 
Bmove Varptr(M.bg$),M.iX,Max(1,32000-(M.iX-Xbios(2)>) 

' Bi Idschirm-Inhalt "soft“ aufwärts Scrollen 
Next M.iX 

Sput M.bgS I Screen restaurieren 

Erase M_feldS() I Menütext-Feld löschen 

Return 

Procedure Acc_menue_xxx I Ziel-Prozedur für ON MENU GOSUB 
Menu off I Menütitel wieder weiB schalten 

Return 


MENU KILL MenQzeile löschen 

MENU KILL 

MENU KILL deaktiviert das Pull-Down-Menü. Es kann keine Aus¬ 
wahl mehr vorgenommen werden, obwohl der Menütext stehen bleibt. 
Auf den Inhalt des Menütext-Arrays hat dieser Befehl keinen Einfluß. 
Das deaktivierte Menü kann also jederzeit durch MENU menütextS 
wieder installiert werden. 

Als Beispiel beachten Sie das Abschluß-Beispiel der Window-Befehle 
im Anschluß an WINDTAB(). 


MENU OFF ^ Invertieren 

MENU OFF 

Dieser Befehl sollte immer dann eingesetzt werden, wenn ein Menü 
geöffnet und ein Menüpunkt gewählt wurde. Dadurch wird der bei 
der Öffnung invertierte Menütitel wieder auf "schwarz auf weiß" ge¬ 
schaltet. Wurde kein Menüpunkt gewählt und außerhalb des offenen 
Menüs ins Window geklickt, so ist diese Maßnahme nicht nötig. Als 
Beispiel beachten Sie das Abschluß-Beispiel der Window-Befehle im 
Anschluß an WINDTAB(). 
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16. Ereignis-Überwachung mit BASiC-Befehlen 


MENU(lndex) : Event-Puffer (Menü- und Fensferverwnitung) 
Var=MENU(lndex) 

Hinter dieser Funktion verbirgt sich ein Vektor (Event-Buffer = Inte¬ 
gerfeld), in welchem permanent verschiedene Daten zum aktuellen 
GEM-Multi-Ereignis eingetragen werden. 

Index steht für das jeweils interessante Feldelement. MENU(l) bis 
MENU(8) ist auf den aktuellen Message-Puffer gelegt und MENU(9) 
bis MENU(15) auf das INTOUT-Array. In MENU(5) kann die Be¬ 
deutungen des Eintrags von Fall zu Fall variieren. Bei Events, die ein 
Fenster in Größe und Lage verändern, werden in MENU(5) bis 
MENU(8) die entsprechenden Window-Koordinaten abgelegt. Bei den 
MENUO)-Ereignissen 20-29 kann grundsätzlich in MENU(4) das ak¬ 
tuelle GEM-Window-Handle ausgelesen werden. Die übrigen geän¬ 
derten MENU-Einträge sind unten unter dem jeweiligen MENU(l)- 
Identifikator (siehe "dann:") verzeichnet. 

Die Inhalte von MENU(Index): 

MENU(-2) Startadresae des Message-Puffera. 

MENU(-l) Adreaae dea aktuellen MenU-Objektbaumea. 

MENU(O) MenUtext-Index dea gewählten MenUpunktea. 

MENU(l) Kenn-Nummer dea jeweiligen Ereigniaaea: Mögliche Einträge: 

10 = WM_SELECTED: Pull-Down-MenU wurde angewählt. 

Dann: MENU(O) = MenU-Array-Index: 

MENU(4) = Menütitel-Objektindex. 

MENU(&) = MenUpunkt-Objektindex. 

20 = WM_REDRAW: Window-Bereich neu zeichnen. 

Dann: MENU(6) bia MENU(8) = X. Y, Breite. Höhe 

21 = WM_TOPPED: Ein Window aoll aktiviert werden. 

22 = WM_CLOSED: SchlieSfeld linka oben wurde gewählt. 

23 = WM_FULLED: Vollfeld rechte oben wurde gewählt. 

24 = WM_ARROWED: Window-Inhalt aoll geacrollt werden. Ea wurde einer der 

vier Pfeile oder einer der beiden grauen Scroll-Balken angeklickt. 

Dann: MENU(5) = Ereignia-Index: 

0 = GEuize Seite hoch (Klick auf vert. Scroll-Balken oberhalb dea 
Schiebera). 

1 = Ganze Seite runter (Klick auf vert. Scroll-Balken unterhalb dea 
Schiebera). 

2 = Eine Zeile hoch (Klick auf Aufwärtapfeil). 

3 = Eine Zeile runter (Klick auf Abwärtapfeil). 

4 = Ganze Seite nach linka 

(Klick auf horia. Scroll-Balken linka dea Schiebera). 
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MENU(2) 

MENU(S) 


MENU(4) 

MENU(5) 

MENU(6) 

MENU(7) 

MENU(8) 

MENU(9) 


MENU(IO) 

MENU(ll) 

MENU(12) 

MENU(13) 


MENU(14) 


5 = Ganze Seite nach rechts 

(Klick auf horiz. Scroll-Balken rechts des Schiebers). 

6 = Ein Zeichen nach links (Klick auf Linkspfeil). 

7 = Ein Zeichen nach rechts (Klick auf Rechtspfeil). 

25 = WM_HSLID; Horizontaler Schieber wurde bewegt. 

Dann: MENU(5) = Schieberposition (1 = links/1000 = rechts). 

26 = WM_VSLID: Vertikaler Schieber wurde bewegt. 

Dann: MENU(6) = Schieberposition (1 = oben/1000 = unten). 

27 = WM_SIZED: GröBenfeld rechts unten wurde gewählt. 

Dann: MENU(5)/MENU(6) = Alte Fenster-X/Y-Koordinate. 
MENU(7)/MENU(8) = Neue Fensterbreite/-höhe. 

28 = WM_MOVED: Grauer Kopfbalken wurde gewählt. 

Dann: MENU(5)/MENU(6) = Neue Fenster-X/Y-Koordinate. 
MENU(7)/MENU(8) = Alte Fensterbreite/-höhe. 

29 = WM_NEWTOP: Fenster wurde geschlossen. Das nächste vorhan¬ 
dene wird automatisch geöffnet. 

30 = AC_OPEN: Accessory wurde angewählt (nur für das betroffene 
Accessory lesbar). 

Dann: MENU(4) = Accessory-Identifikator: 

(Index im Accessory-MenU) 

Ist in MENU(4) die Kennziffer des lesenden Accesories enthalten, weiB 
es, daß es geöffnet werden soll. 

31 = AC_CLOSE: Accessory wurde geschlossen (nur für das betroffene 
Accessory lesbar). 

Dann: MENU(4) = Accessory-Identifikator 
(Index im Accesso^-MenU) 

Ist in MENU(4) die Kennziffer des lesenden Accessories enthalten, weiß 
es, daß es geschlossen werden soll. 

VDI-Handle der auslösenden Applikation. 

Message-Länge in Bytes. Wenn 0, dann wurde nur MENU(l) - (8) ge¬ 
ändert, sonst gibt MENU(3) die Länge der Message minus 16 Bytes für 
MENU(l)-(8) an. 

GEM-Window-Handle oder MenUtitel-Index. 
X-Koordinate/Schieberposition/Randobjekt. 

Y-Koordinate. 

Breite. 

Höhe. 

Event-Flag: 

0 = Kein Ereignis 
Bit 0 gesetzt =: Tastatur-Ereignis 
Bit 1 gesetzt = Maustasten-Ereignis 
Bit 2 gesetzt = I/Oboxl-Ereignis 
Bit 3 gesetzt = I/Obox2-Ereignis 
Bit 4 gesetzt = Message-Ereignis 
Bit 6 gesetzt = Timer-Ereignis 

Maus-X'Koordinate bei Maus- und I/Obox-Events 
(rel. zur linken oberen Bildschirmecke). 

Maus-Y-Koordinate bei Maus- und I/Obox-Events 
(rel. zur linken oberen Bildschirmecke). 

Maustasten-Status bei Maus-Events (siehe MOUSEK). 
Wechseltasten-Status bei Tastatur-Events: 

Bit 0 = <Shift> rechts 
Bit 1 = <Shift> links 
Bit 2 = <Control> 

Bit 3 = <Altemate> 

Tastatur-Code (16-Bit-Wert) bei Tastatur-Events. 

Highbyte (MENU(14) AND &HFF00 = Scan-Code 
Lowbyte (MENU(14) AND &HFF = ASCII-Code 
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HENUdS) Mausklickanzahl zum Zeitpunkt des Button-Events. 

Als Beispiel beachten Sie das Abschluß-Beispiel der Window-Befehle 
im Anschluß an WINDTAB(). 



ONMENU Verzweigung ziir Ereignisfeststellüng 

ON MENU 

ON MENU [Zeit] (nur V2.02/V3.0) 

GFA-Multi-Event-Funktion: Stellt fest, ob ein AES-Multi-Ereignis 
(Mausbewegung, Tastatur, Window- und Fensteraktionen usw.) einge¬ 
treten ist. Dies sollte an häufig wiederkehrenden Programmstellen (in¬ 
nerhalb von Schleifen) geschehen, da der Mitteilungs-Puffer perma¬ 
nent erneuert wird. Wird nicht unverzüglich auf das eingetretene Er¬ 
eignis reagiert und der Puffer ausgelesen, können neuere Puffer-Ein¬ 
träge die Mitteilung überschreiben und somit ein falsches Ergebnis 
liefern. 

Wird der Befehl nicht eingesetzt, kann auch keine der ON 
MENU...GOSUB-Prozeduren angesprungen werden. 

Ab V2.02 kann optional der Parameter Zeit eingesetzt werden. Dieser 
Wert gibt in lOOOstel Sekunden an, nach welcher Zeitspanne ON 
MENU (siehe EVNT_MULTI) spätestens abgeschlossen werden soll 
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und die Kontrolle wieder an BASIC zurückgegeben wird. Bei ausrei¬ 
chender Zeitvorgabe hat so das AES Zeit, ggfs, das Loslassen des 
Mausknopfes zu registrieren. Dazu ist allerdings unbedingt erforder¬ 
lich, ON MENU BUTTON GOSUB einzusetzen, da sonst der Zeitwert 
unberücksichtigt bleibt. 

Vergessen Sie nicht, diesen Befehl auch innerhalb von internen War¬ 
teschleifen anzuführen (z.B. REPEAT...UNTIL MOUSEK), da sonst 
solange kein Ereignis bearbeitet werden kann, wie sich das Programm 
in dieser Warteschleife befindet. 

Als Beispiel beachten Sie das Abschluß-Beispiel der Window-Befehle 
im Anschluß an WINDTAB(). 


ON MENU GOSUB Proc.-Bestimmung (MenO-Event) 

ON MENU GOSUB Prozedurname 

Prozedurname gibt die Prozedur an, zu welcher verzweigt werden soll, 
wenn ein Pull-Down-Menüpunkt (Menüeintrag) angeklickt wurde 
(sofern es kein Accessory war). Über MENU(O) kann dann dort der 
gewählte Menüpunkt ermittelt und dementsprechend reagiert werden. 

Existiert Prozedurname nicht, wird die Menü-Überwachung abge¬ 
schaltet. Als Beispiel beachten Sie das Abschluß-Beispiel der Window- 
Befehle im Anschluß an WINDTAB(). 


ON MENU fUTTON GOSUB 

Proc.-Bestimmung (Mausknopf-Eveiii) 


ON MENU BUTTON Anz,Taste,Status GOSUB Prozedumame 

Durch diesen Befehl kann eine Prozedur bestimmt werden, zu welcher 
verzweigt werden soll, sobald eine oder mehrere Maustasten ein- oder 
mehrmals gedrückt oder auch nicht gedrückt werden. Anz bestimmt 
die max. Anzahl an Mausklicks, die berücksichtigt werden sollen. Dies 
ist ein Maximalwert, der angibt, bis zu welcher Klickanzahl überhaupt 
reagiert werden soll. 

Taste gibt an, auf welche Maustasten reagiert werden soll: 
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0 Kein« 

1 Linke 

2 Rechte 

S Beide 

Status bestimmt den Tasten-Status, der zum Ereignis führen soll: 

0 Eb muS kein« Tute gedrückt worden sein. 

1 Linke Tute muß gedrückt werden. 

2 Rechte Tut« muß gedrückt werden. 

S Beide Tuten müuen gedrückt werden. 

Die tatsächlich ausgeführten Klicks können in Prozedurname aus 
MENU(15) gelesen werden. In MENU(15) steht allerdings fast immer 
der Wert 1, so daß Einzelklicks daraus kaum zu erkennen sind. 

Allgemein werden sogenannte Doppelklicks eingesetzt, um irgendwel¬ 
che erweiterten Maustastenfunktionen auszulösen. Auf dem Desktop 
wird z.B. ein Klick auf ein Programmsymbol als "aktiviert/gewählt" 
gewertet. Über das Desktop-Menü kann man nun bestimmte Aus¬ 
künfte über diese Datei erhalten. Wird dagegen zweimal kurz hinter¬ 
einander auf ein solches Symbol geklickt, so wird das Programm ge¬ 
startet. 

Ähnliches können Sie bei der Dateiauswahl in einer FILESELECT-Box 
beobachten. Ein Einfach-Klick führt dazu, daß der gewählte Da¬ 
teiname in die Eintragszeile geschrieben wird, während ein Doppel¬ 
klick dazu führt, daß die Box mit dem angeklickten Namen verlassen 
wird. 

Bei der Wahl der Klick-Anzahl sollten Sie bedenken, daß ein "Drei- 
fach-Klick" schon sehr schwer zu bewerkstelligen ist. Auch wenn Sie 
selbst derart "flinke Finger" haben, heißt das nicht, daß ein anderer 
Anwender Ihres Programms dieselben Klick-Kunststücke vollbringt. 

Die Parameter dieses Befehls und ihre Auswirkungen sind nicht leicht 
zu durchschauen, da sich Taste und Status anscheinend widersprechen. 
Mir ist es bisher auch nicht gelungen, in allen Fällen klar vorher zu 
sagen, was die Parameterkonstellationen im einzelnen bewirken. Bei 
Verwendung ist es daher ratsam, die Wirkung jeweils zu testen. 

Beispiel: 

On menu button 3,2,2 Gosub Hausknopf I Prozedur bestimnen 
Print "Exit durch Dreifachklick der rechten Maustaste" 

Do ! Endlos-Schleife 

On menu ! Ereignis-Überwachung 
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Loop 

Procedure Mausknopf ! Ziel-Prozedur für Hausklick-Ereignisse 
Print At{10,10);Henu(15);" Klick(s) bei ";Menu(10);'7";Menu(11) 
If Menu(15)=3 ! Dreifachklick? 

Edit I Dam Programnende 

Endif 
Return 


ON MENU IBOX GOSUB 

Procedure-Bestimmung (IBox/Maus-£vent) 

ON MENU OBOX GOSUB 

Procedure-Bestimmudg (OBox/Maus-EVeot) 

ON MENU IBOX ld,X,Y,B,H GOSUB Prozedurname 
ON MENU OBOX ld,X,Y,B,H GOSUB Prozedurname 

Mit diesen beiden Befehlen können unabhängig voneinander vier 
Bildschirmbereiche definiert werden, die - vorausgesetzt, die Ereignis- 
Überwachung ist durch ON MENU aktiv - vom GEM ständig darauf¬ 
hin überwacht werden, ob der Mauszeiger sie betritt (IBOX), bzw. 
verläßt (OBOX). Tritt eines dieser Ereignisse ein, wird zu Prozedur¬ 
name verzweigt. 

Id bestimmt, welcher der jeweils zwei unabhängigen Bereiche (Id 1 
oder 2) überwacht werden soll. 

X/Y geben die Koordinate der linken, oberen Ecke des jeweiligen 
Bereichs an. Die Koordinaten beziehen sich dabei nicht auf den Null¬ 
punkt eines evtl, geöffneten Fensters, sondern auf den absoluten Null¬ 
punkt in der linken, oberen Ecke des Bildschirms. 

B/H geben die gewünschte Breite und Höhe des Rechtecks an. Exi¬ 
stiert Prozedurname nicht, wird die Box-Überwachung abgeschaltet. 


Als Beispiel beachten Sie das Abschluß-Beispiel der Window-Befehle 
im Anschluß an WINDTAB(). 
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ON MENU KEYGOSUB Proc.-Bestimmung (Ta$tatur-Event) 
ON MENU KEY GOSUB Prozedumame 

Die Tastatur wird überwacht und bei eingetretenem Ereignis (ON 
MENU nicht vergessen) zu Prozedurname verzweigt, wo man dann 
durch MENU(14) den Code der gedrückten Taste erfahren kann. 

Existiert Prozedurname nicht, wird die Tastatur-Überwachung abge¬ 
schaltet. Als Beispiel beachten Sie das Abschluß-Beispiel der Window- 
Befehle im Anschluß an WINDTAB(). 


ON MENU MESSAGE GOSUB 

Procedure-Bestimmung (Multi-Event) 
ON MENU MESSAGE GOSUB Prozedurname 

Überwacht die möglichen Multi-Events und verzweigt ggfs, zu Proze¬ 
durname. Über MENU(Index) (siehe dort) kann dann auf das jewei¬ 
lige Ereignis reagiert werden. 


Existiert die angegebene Prozedur nicht, wird die Event-Überwachung 
abgeschaltet. Als Beispiel beachten Sie das Abschluß-Beispiel der Win¬ 
dow-Befehle im Anschluß an WINDTAB(). 
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17. GDOS/VDI-Bibliothek 


Die in diesem Kapitel beschriebenen Funktionen (außer 
VQT_EXTENT() und VQT_NAME()) stehen dem GFA-Program- 
mierer nur zur Verfügung, wenn bei Systemstart im Auto-Ordner das 
Programm GIX)S.PRG (Digital Research ab Version 1.1, besser: 1.8) 
enthalten war. Findet dieses Programm bei Ausführung - vor der ei¬ 
gentlichen System-Initialisierung - auf der Hauptebene der Boot-Sta¬ 
tion die (gültige) Datei ASSIGN.SYS vor, wird das GDOS in die 
GEM-Systemebene ge’linkt’ und meldet sich (kurz vor Aufbau des 
Desktops) mit "GDOS Vl.x resident". 

Mit dieser GEM-Erweiterung ist - bei richtiger Anwendung - dann 
z.B. die gleichzeitige Verwaltung mehrerer Zeichensätze oder/und 
mehrerer Ausgabe-Einheiten (z.B. sämtliche Grafik- und Text-Ausga¬ 
ben auf dem Drucker oder in ein übertragbares Metafile etc.) oder die 
Grafik-Ausgabe in NDC-Koodinaten etc. möglich. Grundsätzlich ist 
das GDOS (Graphic-Device-Operating-System) dazu gedacht, GEM- 
Programme zwischen verschiedenen GEM-Rechnern (IBM, Apple, 
Atari) übertragbar zu machen. 

Das Thema "Metafile" ist zu umfassend, um es hier näher beschreiben 
zu können. Ausführlichere Informationen finden Sie im Data Becker 
"Supergrafik"-Buch. Nun aber erst mal einige grundlegende Informa¬ 
tionen zum Thema "GDOS". 

Es gibt mehrere, immer wieder überarbeitete GDOS-Versionen. Die - 
nach meiner Kenntnis - neueste Version trägt die Bezeichnung "1.8". 
Die Versionen 1.1 ist in mancher Hinsicht mit Vorsicht zu genießen. 
Die Version 1.8 funktionierte bei meinen Tests fehlerfrei und ist bei 
der Drucker-Ausgabe erheblich schneller als 1.1. 

Das A und O der GDOS-Anwendungen ist die ASSIGN.SYS-Datei. In 
dieser Header-Datei werden alle Informationen abgelegt, die zum Be¬ 
trieb einer Workstation wichtig sind. 

Hierin sind der Reihe nach die Treiber-Bezeichnungen und daran an¬ 
schließend die Namen der jeweils dafür vorgesehenen Fonts eingetra¬ 
gen. Die Treiber-File-Namen enden mit der Extension .SYS und die 
Font-File-Namen mit .FNT. Die zweistellige Zahl vor dem Treiber¬ 
namen stellt den Identifikator dar, der beim V_OPNWK()-Aufruf 
anzugeben ist: 
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01 Für Bildschirm. 

11 Für Plotter. 

21 Für Drucker. 

31 Für Metafile. 

41 FUr Kamera. 

61 FOr Grafik-Tablett. 


Der Id 01 ist dabei jedoch nur bei V_OPNVWK.() einsetzbar, hat dann 
jedoch dieselbe Wirkung wie 04 (siehe unten). 

Die vor den Kommentar-Zeilen stehenden Semikolons haben dieselbe 
Wirkung in ASSIGN.SYS wie das REM-Zeichen ’ in GFA-Program- 
men: die damit beginnenden Zeilen werden ignoriert. 

Ein ASSIGN.SYS-Datei ist eine "ganz normale" ASCII-Datei, die mit 
jedem besseren Textverarbeitungsprogramm problemlos geladen, bear¬ 
beitet und wieder abgespeichert werden kann und kann z.B. folgen¬ 
dermaßen aussehen: 


path a D:\F0NTS 

; Der hier angegebene Suchpfad beschreibt dem GOOS den Ueg zu 
; den Treibern und - ggfs. - zu den unter den Treibernamen 
; aufgeführten Fonts. Fehlt die Pfadangabe, so werden die Treiber- 
; und Font-Files auf der aktuellen Hauptebene erwartet. Bei Angabe 
; eines Pfads (hier: Ordner FONTS auf Station 0) müssen die 
; für den jeweiligen V_OPMUK()-Aufruf relevanten Treiber und Fonts 
; unter diesem Pfad erreichbar sein. 

; Die ersten vier Treiber-Bezeichnungen sind Dimny-Einträge, die 
; nur den Zweck haben, die darunter angeführten Fonts der 
; jeweiligen BiIdschirm-Auflösung zuzuordnen. 

; Die Bedeutung des folgenden Treiber-Namens ist mir nicht 
; bekannt. Bei meinen Tests hatte er grundsätzlich dieselbe 
; Wirkung wie 04p screen.sys. 

01p screen.sys 
IBMHSS10.FNT 

; Die folgenden drei Treiber müssen im Treiber-File 
; (s.o. path) nicht enthalten sein. Diese 
; Treiber-Namen werden trotzdem vom GDOS in dieser Form 
; erwartet. Der entsprechende Treiber ist im ROM enthalten. 

; Die hier eingetragenen Fonts sind in GFA-BASIC verfügbar, 

; sobald GDOS resident ist und - natürlich - die 
; entsprechenden Fonts unter oben angegebenen Pfad 
; auffindbar sind. In diesem Beispiel sind IBM-Fonts 
; eingetragen, es können beliebige Font-Namen angegeben 
; werden, solange die darunter abgelegten Fonts ein 
; korrektes und brauchbares Format aufweisen. 

; Der für die jeweilige Auflösung notwendige V_OPHVWKO-Aufruf 
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wird von GFA-BASIC automatisch durchgeführt (siehe Beispiel 
unter VQT_EXTEMT()). 


; Pseudo-Treiber für Loures 

02p screen.sys 

IBMHSS10.FNT 

IBMHSS14.FNT 

IBMHSS18.FNT 

1BMHSS36.FNT 

; Pseudo-Treiber für Hidres 

03p screen.sys 

IBHHSS10.FNT 

IBMHSSU.FHT 

IBHHSS18.FNT 

IBHHSS36.FNT 

; Pseudo-Treiber für Hires 

OAp screen.sys 

IBMHSS10.FNT 

IBHHSS14.FNT 

IBNHSS18.FNT 

IBMHSS36.FNT 

; 11 PLOTTER.SYS 

; Falls ein Plotter-Treiber verfügbar ist, ist er 
; hier einzutragen. 


; Nachfolgend wird die Treiber-Bezeichnung für den 
; Drucker, sowie die Namen der verfügbaren Fonts 
; erwartet. Hier ist z.B. der Treiber für 
; den Epson-FX80 und Kompatible eingetragen. 

; Es kann jedoch auch ebenso gut ein anderer 
; Treiber angegeben sein (z.B. PRINTER.SYS 
; für Atari-Laser oder FX85.SYS); das hängt jeweils 
; davon ab, welchen Drucker Sie betreiben möchten, 

; bzw. welcher Treiber verfügbar ist. Z.B. kann ein 
; FX80-Treiber ohne weiteres auch für den FX85 
; eingesetzt werden (nicht umgekehrt), obwohl dann 
; auch ein FX85 nur mit einer Auflösung von ca. 

; 960 mal 1420 Punkten läuft. 

21 FX80.SYS 

EPSHSSIO.FNT 

EPSHSS14.FNT 

EPSHSS20.FNT 

EPSHSS28.FNT 

EPSHSS36.FNT 

; Hier wird der Treiber-File-Name des Metafile-Treibers 
; eingetragen. Metafiles ermöglichen auch die Verarbeitung 
; von Grafiken im NDC-Format (siehe VDIBASE), sind jedoch dann 
; aufgrund ihres gewaltigen Speicherbedarfs nur mit ausgefeilten 
; Tricks einsetzbar. 
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31 HETA.SYS 

IBMHSS10.FNT 

IBHHSS14.FNT 

IBHHSS18.FNT 

IBMHSS36.FNT 


41 KAMERA.SYS; willkürlich gewählter Name 
Falls ein Kamera-Treiber verfügbar ist, ist er 
hier einzutragen. 


; 51 TABLETT.SYS; willkürlich gewählter Name 
; Falls ein Grafik-Tablett-Treiber verfügbar ist, ist 
; er hier einzutrsgen. 

Dem GDOS ist es übrigens egal, ob die Namen-Strings in Groß- 
und/oder Kleinbuchstaben geschrieben werden. 


Version 3.0 

GDOS? GDOS resident? 

Var=GDOS? 

Liefert TRUE (-1), falls GDOS (ab Release 1.1) "resident" ist. An¬ 
dernfalls wird FALSE (0) zurückgegeben. 

Für diesen Befehl gibt es keinen V2.xx-Ersatz, da die Existenz von 
GDOS nur über einen internes Flag ermittelt werden kann (das mir 
nicht bekannt ist) oder über die Ausführung einer VDI-Workstation- 
Funktion. Im zweiten Fall könnte anhand der korrekten bzw. unkor¬ 
rekten Ausführung festgestellt werden, ob GDOS vorhanden ist. Für 
diese zweite Möglichkeit lege ich allerdings meine Hand nicht ins 
Feuer, weshalb ich auch diesbezüglich kein Beispiel demonstriere. 
Wenn Sie mit dieser Möglichkeit arbeiten möchten, so bleibt das allein 
Ihr Risiko. 
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V~H 


Aktuelles VDI-Handle liefern 
setzen 


Var=V~H (lesen) 

V~H=Handle (schreiben) 

Liefert im ersten Fall das aktuell von GFA-BASIC verwendete VDI- 
Handle. In der Zuweisungsform ist es möglich, dieses Handle auch 
selbst zu bestimmen. 

Handle: Bedeutung: 


>- 0 Freie Bestimmung des - bei VDISYS-Aufrufen anzugeben¬ 

den - aktuellen Handles (siehe CONTRL+12 bzw. CON- 
TRL(6)). Nach einem V_OPNWK() bzw. V_OPNVWK()- 
Aufruf ist das von diesen Funktionen zurückgegebene 
VDI-Handle durch V~h=V_OPN[V]WK()-Rückgabe zu 
initialisieren. 


= -1 Das aktuelle VDI-Handle wird wieder auf den - beim in¬ 

ternen GFA-V_OPNWK() vergebenen - Wert gesetzt. 
Anschließend erfolgen alle VDI-Ausgaben wieder unge- 
puffert auf dem Bildschirm. Dies ist auch der Fall, wenn 
eine andere Workstation noch offen ist. Es kann also durch 
V~h=Handle und V~h=-1 beliebig zwischen den Workstati¬ 
ons und der virtuellen Standard-Ausgabe umgeschaltet 
werden. 


Diese Funktion läßt sich in V2.xx einfach dadurch realisieren, indem 
nach BASIC-Start durch Gfa_handle=DPEEK(CONTRL+12) oder 
Gfa_handle=DPEEK(VDIBASE440) das aktuelle GFA-Handle gelesen 
und zwischengespeichert wird und dann bei Bedarf statt V~H=-1 (in 
V3.0) der V2.xx-Poke DPOKE CONTRL+12,Gfa_handle ausgeführt 
wird. 


Die Zuweisung der einzelnen Workstation-Handels erfolgt dann auf 
die gleiche Art und Weise: DPOKE CONTRL+12,Workstation_handle. 
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Version 3.0 

jyiLRWi^ö Workstation-Puffer löschen 

Var=V_CLRVWKO 

Löscht den aktuellen Inhalt des Ausgabe-Puffers bzw. den Bildschirm 
der Workstation mit dem z. Zt. in V~H liegenden Handle. Auf dem 
Drucker wird zusätzlich ein FormFeed ausgeführt. Dieser Befehl hat 
auf die aktuelle Grafikseite grundsätzlich dieselbe Wirkung wie nor¬ 
malerweise der CLS-Befehl auf den Bildschirm. 

Als V2.xx-Prozedur: 
av clrwk 

PRÖCEDURE V clrwk 
VDISYS 3 “ 

RETURN 


Version 3.0 

y^CLsvwKO yirtuaI_Workstation schlteßen 

Var=V_CLSVWKO 

Schließt einen mit V_OPNVWK() geöffneten Bildschirm - mit dem z. 
Zt. in V~H liegenden Handle - und setzt das interne VDI-Handle 
wieder auf den GFA-Wert (siehe V~H=-1). 

Dieser Aufruf ist in GFA-BASIC eigentlich nicht nötig, da bei GFA- 
Start das GFA-BASIC automatisch für sich selbst den Bildschirm als 
virtuelle Workstation anmeldet. Durch V~h=-1 wird immer wieder das 
an GFA-BASIC vergebene VDI-Handle im CONTRL-Array restau¬ 
riert. 

Vor V_CLSWK() für eine mit V_OPNWK() geöffneten Station muß 
vorher eine ggfs, durch V_OPNVWK() geöffnete virtuelle Workstation 
durch V_CLSVWK() geschlossen werden. 

Als V2.xx-Prozedur; 
av_clsvwk 

DPOKE C0NTRL+12,Gfa handle 
PRÖCEDURE V clsvwk “ 

VDISYS loT 
RETURN 
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Nach diesem Prozedur-Aufruf müssen Sie allerdings selbst das GFA- 
Handle in CONTRL+12 wieder eintragen (siehe unter V~H). 

Version 3.0 

VCLSWKO Workstation schließen 

Var=V_CLSWK0 

Schließt eine mit V_OPNWK() geöffnete Workstation - mit dem z. Zt. 
in V~H liegenden Handle führt alle noch enthaltenen Puffer-Ein¬ 
träge aus und setzt das interne VDI-Handle wieder auf den GFA-Wert 
(siehe V~H=-1). 

Ein Einsatz-Beispiel finden Sie unter V_OPNWK(). 

Als V2.xx-Prozedur: 
av clswk 

DPÖKE C0NTRU12,Gfa handle 
PROCEDURE V clswk 
VDISYS 2 “ 

RETURN 

Auch hier muß das GFA-Handle nach Aufruf von Ihnen selbst in 
CONTRL+12 restauriert werden (siehe unter V~H). 


Version 3.0 

V OPNVWKO Virtual_Workstation Öffnen/Parameter setzen 

Var=V_OPNVWK(TreiberJd [.Linientyp,Linienfarbe,... 
...Markertyp,Markerfarbe,Textstil,... 
...Textfarbe,Füiistil,Fülimuster,... 

...Füilfarbe,Koordinatenflag]) 

öffnet den Bildschirm als Ausgabe-Gerät mit der Identifikationsnum¬ 
mer Treiber_Id und richtet ihn als Workstation ein. In Var wird nach 
Abschluß das VDI-interne Geräte-Handle (Device-Handle) geliefert 
(siehe CONTRL+12 bzw. CONTRL(6)). Über dieses Handle ist der 
Bildschirm künftig ansprechbar. VDI-Ausgaben mit diesem Handle 
(siehe CONTRL+12 bzw. CONTRL(6)) erfolgen dann direkt auf dem 
Bildschirm (ohne Puffer - kein V_UPDWK() nötig). Der Bildschirm 
läßt sich durch V_OPNWK() nicht öffnen. 

Dieser Aufruf ist in GFA-BASIC eigentlich nicht nötig, da bei GFA- 
Start das GFA-BASIC automatisch für sich selbst den Bildschirm als 
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virtuelle Workstation anmeldet. Durch V~h=-1 wird immer wieder das 
an GFA-BASIC vergebene VDI-Handle im CONTRL-Array restau¬ 
riert. Bei einem Monochrom-Bildschirm werden durch die Funktion in 
WORK_OUT(0-56) folgende Werte geliefert (jeweils ein Element): 

639,399,0,372,372,3,7,0,6,8,1,2«,12,2.10,1,2. 
3.4,5,6,7,8,9,10,3,0,3,3,3,0,3,0,3,2,0,1,1.0. 
2.2.1,1,1,2,5,4,7,13,1.0,40,0.15.11.120,88 

Für die Options-Parameter gelten die Ausführungen zu V_OPNWK() 
analog. 


Als V2.xx-Prozedur: 


Hier sind allerdings alle Parameter zu übergeben und zusätzlich noch 
der Pointer auf eine Integer-Rückgabevariable, die nach Abschluß das 
Handle der virtuellen Workstation enthält (hier: *Handle%). Die aktu¬ 
ellen Workstation-Einstellungen können aus INTOUT+0 bis IN- 
TOUT+88, sowie aus PTSOUT+0 bis PTSOUT+22 (jeweils Dpeeks im 
Wordabstand siehe WORK_OUT()) ausgelesen werden. 


av_opnvwl((treiber_id,Linientyp,Linienfarbe,... 

...Markertyp,Markerfarbe,Textetil,... 

.. .Text färbe. Füllst i l.FüUmuster,... 

...FülIfarbe.Koordinatenflag,*HandleX) 

PROCEDURE V 0 pnvuk(idX,ltX,lfX,intX,mfX,tsX,tfX,fsX,fMX,ffX,kfX,bkX> 
LOCAL d.büfS 
DPOKE GCONTRL+4,5 
GEMSYS 77 

DPOKE C0NTRL+12,DPEEK(GINT0UT) 

DPOKE CONTRL+4,6 
DPOKE CONTRL+6,11 
DPOKE CONTRL+8,45 

d.buff$=MKIS(idX)+MKIS(ltX)+MKI$(lfX)+MKI$(nitXHMKIS(mfX)+MKIS(tsX} 
d.buff$=d.buff$+MKI$(tfX)+MKI$(fsX)+MKIS(fmX)+MKI$(ffX)+MKI${kfX) 
BMOVE VARPTR(d.buff$),INTIM,22 
VDISYS 100 

*bkX=OPEEK(CONTROL+12) 

RETURN 
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Version 3.0 

V OPNWKO 

Workstation Öffnen/Parameter setzen 


Var=V_OPNWK(Treiber Id [,Linientyp,Linienfarbe,... 
...MarkertypiMariTeilarbe,Textstil,... 

...Textfart»,Füllstil,Füllmuster,... 

...FÜIIfarbe,Koordinatenflag]) 

Der Gerätetreiber mit der Identifikationsnummer Treiber_Id (siehe Id 
in der ASSIGN.SYS-Beschreibung) geladen und eine Workstation dafür 
eingerichtet. In Var wird nach Abschluß das VDI-Handle (Device- 
Handle) für diese Station geliefert (siehe CONTRL+12 bzw. CON- 
TRL(6)). Über dieses Handle ist die Station künftig ansprechbar. VDI- 
Ausgaben erfolgen dann in den durch CONTRL+12 bzw. CONTRL(6) 
bestimmten Gerätepuffer (siehe V-H). Die gerätetypischen Einstellun¬ 
gen können mit der WORK_OUT()-Funktion oder über INTOUT() 
bzw. PTSOUTO ermittelt werden. 

Die in der Optionsklammer angegebenen 10 Parameter können zusätz¬ 
lich eingesetzt werden, wenn die - intern - bei V_OPNWK() in IN- 
TIN(l) bis INTIN(IO) zu übergebenden Grundeinstellungen vorbe¬ 
stimmt werden sollen. Wird diese Möglichkeit nicht genutzt, so bleiben 
die aktuellen Grafik-Grundeinstellungen erhalten. 

Die Default-Einstellungen sind: 

■V_OPNUK(id,1,1,1,1,1,1,1,1,1,2) 

Wird V_OPNWK() verwendet, ohne daß das GDOS geladen wurde, 
führt dies zum System-Absturz. Das gleiche geschieht, wenn ein un¬ 
zulässiger Id angegeben wird (z.B. 1 für Bildschirm). Der Bildschirm 
kann nur über V_OPNVWK() mit dem jeweils gültigen Auflösungs-Id 
(XBIOS(4)+2) geöffnet werden. 
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Fontname: Dutch 

Fontname : Dutch 

fontname .’Du^ci 
FmMimame : DmtcA 

[FcDmftmamiQ s ©mücslh 
F0ä3isssm($ : Dsicä 
Fenlinisim© : Dutclhi 


Fontname : Typewriter 
Fontname : Typewriter 
FajjtnAms : Typewrir^r 
Fojicn^jne : rypeirri ter 
IPomitmiLim« s 
/CJQCJIM« .* 

FoimtBaro® s T^P^wrlter 

Fonlnama: b'wiss 

Fontname : Swiss 

Fontname : Smss 
Fontname : Smss 

F(fi)[Ä]'G[fD®OiÜ]© = ®'S7D@§ 


Fomitaiiinni© :: @wö: 

l^fname » Jr raktura 

^nhtame 

tttthttttttF 




raktura 

'gMrura 

rjtä/urjt 

iraMmrrs 
rmmm 
mw, 


Beispiel; 


IF CIUT?(0) 

IF GOOS? 

RESERVE 10000 


! Drucker angeschlossen? 

I GDOS resident? 

! Speicher für Workstation freigeben 




GDOS/VDI-Bibliothek 


509 


tMrk_handleX=V OPNUK(21) 

X faktor=INT0UT(0)/640 
y"faktor=INTOUT(1)/400 
iF Hork_handleX 
V'H=work_handleX 

I 

' ab jetzt gehen alle Grafik-Ausgaben auf den Uorkstation- 
' Puffer: 

■ Breite der Grafikseite > INTOUT(O) 

• Höhe der Grafikseite = INTOUT(I) 

% 

' Auf defli Bildschirm ist dies nicht zu erkervien. 

I 

CLIP 0,0,INTOUT(0),INTOUT(1) I Clip-Rechteck setzen 
font_anzahlX«VST_LOAD_FONTS(0) I Alle Drucker- GOOS-Fonts, 

' die in ASSIGN.SYS eingetragen und verfügbar sirxJ, 

' werden geladen. 

PRINT "GRAFIK wird bearbeitet I ("; 

PRINT font_8nzahlX;") Fonts nachgeladen)" 

GRAPHHOOE 2 I Transparentmodus 

FOR iX=0 TO 10 I .. 

DEFFILL ,2,RAND0M(12)+8 I 

PBOX RANDOH{60»iX)*x faktor,RAND0M(36*iX)*y_faktor,... I-Grafik 
...RAND0M(60»iX+A0)*x faktor,RAND0M(36*iX+40)*y faktor I Ausgabe 
NEXT iX " I 

CIRCLE 320*x_faktor,200*y_faktor,200*y faktor I.' 

FOR iX=1 TO font_anzahlX+1 ” !.. 

' Der Irxlex der nachgeladenen Fonts beginnt mit 1, da I 
' auf dem 0-Irxiex der aktuelle Starxlard-ROH-Font liegt.I 
font indexX^VQT NAHE(iX,font_name$) I DEFTEXT-Index I 
• Face (siehe unter DEFTEXT) ermitteln (s. VQT_NAHE()) I 
DEFTEXT ,0,,13,font_irxIexX I Font variieren I 

TEXT 10,iX*280+65,"Fontname : "+font_name* I 

DEFTEXT ,1,,13,font_irxiexX T Font variieren I 

TEXT 10,iX*280+40+65,"Fontname : "+font_namet I 

DEFTEXT ,4,,13,font_indexX I Font variieren I 

TEXT 10,iX*280+80+65,"Fontname : "+font_name$ I 

DEFTEXT ,5,,13,font_indexX I Font variieren I Text- 

TEXT 10,iX*280+120+65,"Fontname : "+font_name$ lAusgabe 

DEFTEXT ,17,,13,font_indexX I Font variieren I 

TEXT 10,iX*280+160+65,"Fontname : "+font_name$ I 

DEFTEXT ,20,,13,font_indexX I Font variieren I 

TEXT 10,iX*280+200+65,"Fontname : "+font_name$ I 

DEFTEXT ,16,,4,font_indexX I Font variieren I 

TEXT 10,iX*280+240+65,"Fontname : "+font nameS I 

NEXT iX I.-.■ 

''V_UPDUK() I Grafikseite ausgeben 

■VST_UHLOAO_FONTS(0) I Font-Speicher wieder freigeben. 

• ~ ~ I Ab Jetzt sind die Fonts nicht 

' I mehr ansprechbar. 

■V_CLSUK() I Workstation wieder schließen. 

ELSE I V_OPNUK{)-Fehler aufgetreten 

PRINT "Workstation konnte nicht geöffnet werden!" 

PRINT "Mögliche Fehler:" 

PRINT "keine ASSIGN.SYS gefunden" 

PRINT "kein Treiber gefunden" 

PRINT "zu wenig Speicher frei" 

ENDIF 

RESERVE I BASIC-Speicher restaurieren 


I Drucker-Workstation einnchten 
I X-Koordinaten-Faktor in Hires 
I Y-Koordinaten-Faktor in Hires 
I Station fehlerlos geöffnet? 

I Neues Handle an VDI übergeben 
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ELSE I GOOS ist nicht resident! 

PRINT "Sie haben vergessen, GOOS.PRG in den Auto-Ordner zu tun," 
PRINT "bzw. Sie haben nicht die richtige Boot-Diskette eingelegt," 
PRINT "bzu. Sie haben gar kein GOOS?" 

ENDIF 

ELSE ! Drucker ist nicht angeschlossen 

PRINT "Der Drucker ist nicht angeschlossen, bzw. nicht OnLine!" 

ENDIF 

Sollen die GDOS-Fonts auf dem Bildschirm ausgegeben werden, ist 
weiter nichts zu tun, als durch VST_LOAD_FONTS(0) die Fonts zu 
laden, durch VQT_NAME() deren Index zu ermitteln und nach Ab¬ 
schluß durch VST_UNLOAD_FONTS(0) den Font-Speicher wieder 
freizugeben. V_UPDWK() und V_CLSWK() sind hier unnötig, da die 
Station generell geöffnet ist und die Ausgaben ohne Puffer direkt auf 
dem Bildschirm erfolgen (siehe Beispiel zu VQT_EXTENT()). 

Wie oben bereits erwähnt, wird der für die jeweilige Auflösung not¬ 
wendige V_OPNVWK()-Aufruf von GFA-BASIC automatisch durch¬ 
geführt. Zum Speicher ist zu sagen, daß eine Workstation immer min¬ 
destens soviel Speicher benötigt, daß für jeden Grafikpunkt ein Bit 
verfügbar ist und zusätzlich noch einen Arbeitspuffer von ca. 20 Pro¬ 
zent. In INTOUT(O) und INTOUT(l) werden nach der Stations-Eröff¬ 
nung die Breite und Höhe der jeweiligen Grafikseite geliefert. Der 
Speicherbedarf errechnet sich dann aus (Höhe*Breite/8)+((Höhe* 
Breite/8)/100*20). Ein Atari-Laser-Drucker mit einer Auflösung von 
2335 mal 3385 Punkten benötigt demnach 

2335*3385/8 => 987.996 

+ 987996/100*20 => 197.599 


= 1.185.595 Bytes 

Drucker dieser Größenordnung lassen sich also nur mit einem 
Mega ST 2 bzw -4 oder mit einem auf mindestens 2 Megabyte aufge- 
rüsteten 520ST+/1040STF betreiben. Selbst ein Epson-FX80 benötigt 
nach dieser Formel ca. 310.000 Bytes Speicherplatz für eine Grafik¬ 
seite. 

Im obigen Beispiel werden Grafikausgaben auf die Standard-Hires- 
Koordinaten (0 - 639/0 - 399) gesetzt. Die Anpassung an die aktuelle 
Workstation-Auflösung erfolgt durch die Multiplikation der Standard- 
Koordinaten mit dem vorher errechneten Auflösungs-Verhältnis (Re¬ 
alwerte: x_faktor/y_faktor). Die TEXT-Ausgabe habe ich davon aus¬ 
genommen, um zu zeigen, daß die Koordinaten der Grafikseite mit 
den normalen Bildschirm-Koordinaten nicht vergleichbar sind. Beim 
Testlauf hatte ich z.B. sechs Fonts zur Verfügung. Die letzte TEXT- 
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Ausgabe im 7. Schleifendurchlauf hatte also die Y-Koordinate 
7*280*+240+^5 = 2265. 


Wie in den DEFTEXT-Zeilen gezeigt, kann auch der GDOS-Text in 
allen 32 VDI-Textarten und 26 VDI-Texthöhen beliebig variiert wer¬ 
den (siehe Grafik). 

Übrigens ist bei Schließung der Workstation möglich, daß der Speicher 
nicht wieder korrekt restauriert werden kann, wenn seit der Öffnung 
keine Grafik-Ausgaben vorgenommen wurden. Eine Erklärung dafür 
habe ich zwar nicht, aber bei meinen Tests wurde das Programm im¬ 
mer mit einem "Fehlerhaftes RESERVE" quittiert, wenn die Station 
einfach nur geöffnet und anschließend ohne Ausgabe wieder ge¬ 
schlossen wurde. Der Speicher wurde vom GEM also nicht wieder 
freigegeben. Des weiteren kann es auch zu internen Fehlfunktionen 
führen (Maus inaktiv, Direktmodus nicht aufrufbar etc.), wenn nach 
Grafik-Ausgaben in den Puffer die Station ohne V_UPDWK()-Aufruf 
geschlossen werden soll. Die Reihenfolge der Befehle ist also nur in 
engen Grenzen variabel. 


Als V2.xx-Prozedur: 


■ Der Aufruf ist identisch mit dem unter V_OPNVUK() beschriebenen 
' Prozedur-Aufruf (siehe auch WORK OUTO-Anmerkung oben). 

PROCEDURE v_opnuk( idX, ltX, lfX.mtX.iiifX, tsX, tfX,fsX, fmX, ffX,kfX.bkX) 
LOCAL d.bufS 
OPOKE GCONTRL+4,5 
GEHSYS 77 

DPOKE CONTRL+12,DPEEK(GINTOUT) 

DPOKE CONTRL+4,6 
DPOKE CONTRL+6,11 
DPOKE C0NTRL+8,A5 

d.buff$=MKI$(idX)+HKI$(ltX)+MKI$(lfX}+MKI$(mtX)4^HKIS(mfX)-^HKIS(tsX) 
d.buff$=d.buff$+MKI$(tfX)+MKI$(fsX)+MKI$(fmX)+MKI$(ffX)+MKI${kfX) 
BHOVE VARPTR(d.buff$),INTIN,22 
VDISYS 1 

*bkX=DPEEK(CONTROL+12) 

RETURN 


Version 3.0 

VUPDWKO Workstation-Puffer ausgeben 

Var=V_UPDWKO 

Veranlaßt die Ausgabe der aktuellen Workstation-Grafikseite auf dem 
Ausgabegerät (Workstation). Dabei gilt die Workstation als aktuell, 
deren Handle momentan in V~H liegt. 
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Bei Bildschirm-Workstations (V_OPNVWK()) ist diese Funktion 
überflüssig, da hier die Ausgaben direkt ausgeführt werden. 


Als V2.xx-Prozedur: 


av_upduk 

PROCEDURE V updwk 
VDISYS 4 ~ 
RETURN 


Version 3.0 

VQT EXTENTO GEM-String-Ausmaße berechnen 

Var=VQT_EXTENT(Text$ [,Xlo,Ylo,Xro,Yro,Xru,Yru,Xlu,Ylu]) 

Berechnet auf der Grundlage der Attribute des aktuellen GEM-Fonts 
(siehe DEFTEXT) die Ausmaße des in TextS angegebenen Strings. 
Werden die acht optionalen Rückgabe-Variablen verwendet, werden in 
ihnen die nullpunkt-bezogenen Koordinaten des stringumfassenden 
Rechtecks geliefert; 

XIo/Ylo Linke obere Ecke (immer 0/0). 

Xro/Yro Rechte obere Ecke. 

Xni/Yni Rechte untere Ecke. 

XIu/Ylu Linke untere Ecke. 

Die Koordinaten können in derselben Reihenfolge auch aus 
PTSOUT(0 - 7) ausgelesen werden. Der TextS wird intern in seiner 
vollen Länge in INTIN(l) bis INTIN(n) (jeweils im LowByte) an die 
Funktion übergeben. 

Da die Xlo/Xlo-Koordinate der Umfassungsbox-Box von dieser 
Funktion immer auf den Bildschirm-Nullpunkt gelegt werden, sind die 
Ordinaten Xru und Yru gleichbedeutend mit der Breite bzw. Höhe der 
Box. 

Beispiel: 


ON BREAK GOSUB break 
RESERVE 10000 
aX=VST LOAD FONTS(O) 


GRAPHMOOE 3 
DO 


I Break abfangen 
I Speicher für Fonts freigeben 
I Alle in ASSIGN.SYS für die 
I aktuelle Auflösung eingetragenen 
I Fonts laden: 

! Hires = '02p screen.sys 

I Midres = '03p screen.sys 

I Loures = 'OAp screen.sys 

I XOR-Modus 

I Endlos-Schleife (Exit nur durch Break) 
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FOR jX=1 TO aX+1 ! Alle nachgeladenen Fonts 
fontX=VQT_MAME{jX,a$) ! Font-Index und -Name ermitteln 
CLS I BiIdschirm klar 

DEFTEXT ,21,,26,fontX I Font einstellen 

~VOT EXTENT(a$) I Umfassungs-Box berechnen 

breiteX=PTS0UT{4) I Xru = Breite (s.o) 

hoeheX=PTSOUT(5) I Yru = Höhe (s.o) 

PRINT AT(1,15);"Breite : ";breiteX"''Höhe ; ";hoeheX. 

xX=T00 I Text-Ausgabe-X-Koordinate 

yX^lOO I Text-Ausgabe-Y-Koordinate 

TEXT xX,yX,aS I Text ausgeben 

FOR iX=0 TO 60 STEP 1 I .. 

BOX xX-iX,yX-hoeheX-iX,xX+breiteX+iX,yX+iX I 

NEXT iX I - Umfassungs- 

FOR iX=60 TO 0 STEP -2 I Box-Effekt 

BOX xX-iX,yX-hoeheX-iX,xX+breiteX+iX,yX+iX I 

NEXT iX I .' 

NEXT jX I Nächsten Font 

LOOP 

PROCEDURE break I Break-Abfang-Routine 

' Diese Prozedur ist hier notwendig, um zu gewährleisten, 

' daB der Font-Speicher korrekt wieder freigegeben, und 
' der BASIC-Speicher wieder restauriert werden kann. 

'VST UNLOAD FONTS(O) I Fonts abmelden 

ON BREAK I In V3.0 bleibt ON BREAK GOSUB 

' ! auch nach Progranmende aktiv. 

■ I Deshalb muB hier ON BREAK gesetzt werden. 

RESERVE I BASIC-Speicher auf Maximum setzen. 

EDIT 

RETURN 


Als V2.xx-Prozedur: 

DEFTEXT ,16,,16 
a$="V2.XX-VQT_EXTENT-Test" 

avqt_extent(at,*x1X,*y1X,*x2X,*y2X,*x3X,*y3X,*x4X,*y4X) 

TEXT 100,100,a$ 

BOX 100,100-y3X,100+x3X,100 

I 

PROCEDURE vqt extent(txt$,vxlX,vylX,vx2X,vy2X,vx3X,vy3X,vx4X,vy4X) 
LOCAL iX 

DPOKE CONTRL+4,8 

DPOKE C0NTRL+6,LEN(txt$) I INTIN-Länge » Textlänge 

FOR iX=0 TO LEN(txt$)-1 I String an INTIN übergeben 

DPOKE INTlN+iX*2,ASC(HID$(tXt$,iX+1,1)) 

NEXT iX 

VDISYS 116 

•vx1X=DPEEK(PTS0UT) 

*vy1X=DPEEK(PTSOUT+2) 

*vx2X=DPEEK(PTSOUT+4) 

*vy2X=DPEEK(PTS0UT+6) 

*vx3X=DPEEK(PTSOUT+8) 

*vy3X=DPEEK{PTSOUT+10) 

*vx4X=DPEEK(PTSOUT+12) 

•vy4X=OP£EK(PTSOOT+14) 

RETURN 
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Version 3.0 

VQT NAMEO GDOS-Font-Name/-Kennung liefern 

Face=VQT_NAME(lndex,Name$) 

Liefert in Face (siehe DEFTEXT) die VDI-Kennung eines im zuletzt 
durch VST_LOAD_FONTS() geladenen Zeichensatz-Block enthalte¬ 
nen Fonts. In Index wird dabei der Index des Fonts in der entspre¬ 
chenden ASSIGN.SYS-Liste angegeben. 

NameS ist eine Rückabe-String-Variable, die nach Abschluß den im 
betreffenden Font-Header eingetragenen Font-Namen enthält. Ist 
GDOS nicht resident, wird der Wert 1 (Standard), sowie in Name$ der 
Name des aktuellen System-Zeichensatzes (6x6-, 8x8- bzw. 8x16 Sy¬ 
stem-Font) geliefert. 

Anwendungsbeispiele finden Sie unter V_OPNWK(), sowie unter 
VQTEXTENTO. 

Als V2.xx-Prozedur: 

a vqt_name(Index,*Name$,*FaceX) 

DEFTEXT ,,,,FaceX 

' Diese Prozedur liefert dasselbe Ergebnis wie die 
' V3.0-VQT_NAMEO-Funktion. Allerdings muß hier 
' statt des Rückgabe-String-Variable ein Pointer 
' auf eine Rückgabe-String-Variable übergeben werden 
' und zusätzlich noch ein Pointer auf eine Integer- 
' Rückgabevariable, die nach Abschluß das benötigte 
' GEM-Text-Face enthält. 

' Installiert wird das Text-Face auch hier über 
• DEFTEXT (siehe dort). 

PROCEDURE vqt_na(ne(indX,f.nX,fc*) 

LOCAL nmS,iX,i.ntoutX 

DPOKE CONTRL+6,1 ! INTIN-Länge 

DPOKE CONTRL+8,33 ! INTOUT-Länge 

DPOKE INTIM,indX I ASSIGN.SYS-Index übergeben 

VDISYS 130 I VOI-VOT_NAME-Aufruf 

i.ntoutX=LPEEK(&H294A) ! Internes Intout-Feld ermitteln 

' I (siehe unter L'A). 

*fcX=OPEEK(i.ntoutX) ! Face aus internem Intout+0 lesen 

FOR iX=0 TO 31 ! 32 Zeichen Font-Name aus internem 

nmS=nnii+CHR$(PEEK(i.ntoutX+3+iX*2)) ! Intout-Feld lesen 
' ! Das hier verwerxiete Intout ist 

' ! das Original-Intout-Feld des GEH, 

' ! nicht das des GFA-BASIC! 

NEXT iX 

•f.nX=nnit ! Font-Namen zurückgeben 

RETURN 
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Version 3.0 

VST^LOAD FONTSO 

GDOS-Font laden 


Var=VST LOAD FONTS(O) 

Lädt die in ASSIGN.SYS angegebenen zusätzlich GEM-Zeichensätze in 
den nächstmöglichen freien Speicher (ggfs, vorher durch RESERVE 
freimachen - Malloc wird von der Funktion ausgeführt) und gibt in 
Var die Anzahl der tatsächlichen geladenen Fonts zurück. Wurde kein 
Font geladen, enthält Var anschließend den Wert Null. Der Null-Pa¬ 
rameter ist von Digital Research vorgegeben und dient als Platzhalter 
für evtl, neue GEM-Versionen. 


Anwendungsbeispiele finden Sie unter V_OPNWK(), sowie unter 
VQT_EXTENT(). 

Als V2.xx-Prozedur: 


8vst_load_fonts(*fontanzahl*) 
PROCEDURE vst_load fonts(anzX) 
DPOKE C0tlTRL+6,r 
DPOKE INTIN.O 
VOISYS 119 
*anzX=OPEEK(IMTOUT) 

RETURN 


Version 3.0 

V^rUNLOADFONTSO GDOS-Font löschen 

Var=VST_UNLOAD_FONTS(0) 

Löscht die durch VST_LOAD_FONTS() geladenen Fonts, bzw. ver¬ 
anlaßt das GEM, ihre Existenz zu vergessen. E>er dadurch belegte 
Speicher wird kann wieder vergeben werden (Mfree wird von der 
Funktion - falls möglich - automatisch ausgeführt). 

Der Null-Parameter ist von Digital Research vorgegeben und dient als 
Platzhalter für evtl, neue GEM-Versionen. 

Anwendungsbeispiele finden Sie unter V_OPNWK(), sowie unter 
VQT_EXTENT(). 

Als V2.xx-Prozedur: 

avst_unload_fonts(0) 

PROCEDURE vst_unload_fonts(dunriyX) 
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DPOKE CONTRL+6,1 
DPOKE INTIN.O 
VDISYS 120 
RETURN 


17.1 Verwendung eigener Fonts 

Einige von Ihnen (vielleicht sogar sehr viele) haben evtl, kein gestei¬ 
gertes Interesse daran, die eben erläuterten Befehle einzusetzen (keine 
Fonts, zu komplizierter Font-Header-Aufbau, zu komplizierte Aufruf- 
Bedingungen etc.). 

Diesen Lesern möchte ich hier drei weitere Möglichkeiten vorstellen, 
innerhalb ihrer Programme eigene Fonts zu verwenden. 

Als erstes finden Sie ein Maschinen-Programm, das vom Desktop aus 
oder aus dem Auto-Ordner gestartet werden kann. 

Für die, die es noch nicht wissen: 

Ein Auto-Ordner ist ein Disketten-Ordner mit dem Namen 
AUTO. Darin enthaltene TOS-, TTP-, PRG-Programme 
werden automatisch gestartet, sobald dieser Ordner auf der 
bei Systemstart im Laufwerk liegenden Diskette enthalten 
ist. Als Grundbedingung gilt, daß diese Programm keine 
GEM-Aufrufe beinhalten dürfen. Ein- und Ausgaben sind 
also ausschließlich mit TOS-Befehlen (GEMDOS, BIOS, 
XBIOS) möglich. Dies hat seinen Grund darin, daß sich 
bei Ausführung dieser Auto-Programme das GEM noch 
nicht im RAM etabliert hat. 

Es gibt Trick-Programme, die diesen Mangel umgehen, in¬ 
dem Sie über den VBL-Vektor (siehe Kapitel 22 "System- 
Variablen") eine Warte-Routine solange als Interrupt aus¬ 
führen lassen, bis das GEM installiert ist. Ist dies gesche¬ 
hen, führt diese VBL-Routine die in einem anderen (vor¬ 
her bestimmten) Quasi-Auto-Ordner liegenden GEM-Pro- 
gramme der Reihe nach aus. 

Einen solchen Trick setzt auch das folgende Programm ein. Allerdings 
nicht, weil es GEM-Befehle verwendet, sondern weil es auf das GEM 
warten muß, um die davon eingetragenen System-Font-Zeiger an¬ 
schließend mit einer eigenen Font-Daten-Adresse überschreiben zu 
können. 
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Das Programm tut folgendes: 

Es läßt sich vom System einen Bereich von 5000 Bytes zuweisen, lädt 
den auf der Hauptebene der aktuellen Diskette liegenden 8xl6-Sy- 
stem-Font mit Namen SYSTEM.FNT (inkl. Header) in diesen 
Speicherbereich und sichert ihn durch Keep Process (s. GEMDOS(49)), 
so daß er gegen weitere Speicherzugriffe geschützt ist. 

Außerdem wird die Startadresse des geschützten Speichers in das letzte 
RAM-Longword geschrieben. So ist der Speicher auch verfügbar, 
wenn kein Font geladen werden soll. Der Speicher bleibt nämlich auch 
reserviert, wenn das SYSTEM.FNT-File nicht auf der Diskette gefun¬ 
den wird. Das letzte RAM-Longword kann aus Adresse &H42E aus¬ 
gelesen werden. Durch 

StartX=Lpeek(Lpeek(&H42E)-4} 

kann also die Startadresse des 5-KByte-Speichers ermittelt werden. 
Die eigentlichen Font-Grafikdaten liegen dann ab Start+602 (602 Byte 
für den Font-Header liegen vor den Font-Daten). Ein 8xl6-System- 
Font-File erkennen Sie daran, daß es grundsätzlich 4698 Bytes lang ist 
und üblicherweise mit der Extension .FNT endet. 

Nachdem das getan ist, installiert das Programm im VBL-Vektor eine 
Warte-Routine, die im Interrupt ständig zwei bestimmte Adressen 
kontrolliert: 

&H607E RAM-Zeiger auf die vom GEM verwendeten Hiree-Font-Daten. 

&H2924 RAM-Zeiger auf die vom TOS verwendeten Hires-Font-Daten. 

Diese beiden Zeiger liegen im dazugehörigen Font-Header. Die 
System-Font-Header beginnen also 76 Bytes vor diesen Adressen. 

Wurden diese Adressen nach Installation des GEM von diesem mit der 
Original-Font-Daten-ROM-Adresse (&HFD39B8) belegt, wird die 
Font-Daten-Adresse des nachgeladenen Fonts in diese beiden Adressen 
eingetragen, wodurch GEM und TOS nun mit diesem Font arbeiten. 
Anschließend löscht sich die VBL-Routine selbstständig aus dem 
VBL-Queue. 

Das Programm ist ausführlich kommentiert, so daß es für all jene, die 
sich ein wenig in Maschinensprache auskennen, keine Verständnis- 
Schwierigkeiten geben dürfte. 
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Alle "Nicht-Assembler-Interressierten" finden im Anschluß an den 
Assembler-Source-Code einen sogenannten BASIC-Loader, der das 
Programm SYSTEM.PRG auf der Diskette erzeugt. Dieses Programm 
kopieren Sie dann also in den Auto-Ordner, legen ein 8xl6-System- 
Font-File mit Namen SYSTEM.FNT auf die Hauptebene derselben 
Diskette und können nun den Reset-Knopf drücken. Falls der ge¬ 
ladene Font nicht der Standard-Font war, können Sie nun den neuen 
Font auf dem Desktop bewundern. Werden die beiden Adressen später 
nicht mehr manipuliert, so bleibt der Font bis zum nächsten Reset er¬ 
halten. 

Das Programm muß - wie gesagt - nicht unbedingt im Auto-Ordner 
gestartet werden, es kann ebensogut auch vom Desktop aus gestartet 
werden. Außerdem wird für den nachgeladenen Font der aktuell im 
RAM liegende 8xl6-Header verwendet. Der mitgeladene Header des 
neuen Fonts bleibt unberücksichtigt. Soll auch der Header verändert 
werden, haben Assembler- Programmierer die Möglichkeit, den 
Source-Code dahingehend zu ändern, daß der neue Header (ab Start) 
mit einer move.w-Schleife in die Original-Header-Bereiche (&H607E- 
76 bzw. &H2924-76) kopiert wird. BASIC-Programmierer können aus 
dem BASIC heraus die ab Start liegenden 602 Bytes in die Original- 
Header-Bereiche kopieren: 

Bmove StartX,&H607E-76,602 

Bmove StartX,&H2924-76,602 

Um den Original-Header evtl, restaurieren zu können, sollten Sie ihn 
Zwischenspeichern und ggfs, wieder zurückkopieren. 


AUTO-FONTLOADER (SEKA-Source-Code) 
von Marcus Bode, 3200 Hildesheim 


begin: 


move.l 
move.l 
move.l 
add.l 
add.l 
add.l 
move. l 

a7,a5 
A(a5),a5 
$c(a5),d0 
$14(aS),d0 
$1c(a5),d0 
#$100,dO 
d0,laenge 

uper: 
clr. l 

-(sp) 

move.w 

#$20,-(sp) 

trap 

#1 

add. l 

#6,sp 

d0,oldssp ; 

move.l 

move. l 

$42e,a0 

sub. l 

#A,a0 


** Programm initialisieren •* 
Stack-Pointer in A5 puffern 
Basepage-Anfang holen 
Programm-Länge holen 


$100 Bytes für Basepage addieren 
Gesamtlänge puffern 


** Supervisor Mode einschalten ** 
User Stack wird Supervisor Stack 
;SUPER-Opcode übergeben 
GEHOOS aufrufen 
Stack aufräunen 
alten Supervisor-Stack puffern 
RAM-Endadresse holen, ... 
...Minus-Offset (A Byte) und... 
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move.l tilbuf,(aO) 

...Puffer-Adresse dorthin schreiben 

# 

open: 

move.u #2,-(sp) 

pea filename 

move.w lll$3d,-(sp) 
trap #1 

addq.l #8,sp 

tst.l dO 

bmi break 

** Font-Datei öffnen •* 

Dateiattribut übergeben 

File-Namen-Adresse übergeben 
;OPEN-Opcode übergeben 

GEHDOS aufrufen 

Stack aufräumen 

Fehler aufgetreten? 

Ja, dann alles abbrecheni 

i 

read: 

move.u dO,handle 
pea buf 

move.l #4698,-(sp 
move.u handle,-(s| 
move.u #$3f,-(sp} 
trap #1 

add.l #12,sp 

tst.l dO 

bmi break 

*• Font-Datei einiesen ** 

File-Handle zuischenspeichern 
Font-Puffer-Adresse übergeben 
; System-Font-Länge übergeben 
>} ;File-Handle übergeben 
; READ-Opcode übergeben 

GEMOOS aufrufen 

Stack aufräumen 

Fehler aufgetreten? 

Ja, dann alles abbrecheni 

f 

dose: 

move.u handle,-(s| 

move.u #$3e,-(sp) 

trap #1 

addq.l #4,sp 

tst.l dO 

bmi break 

*• Foot-Datei uieder schließen ** 

}) ; File-Handle übergeben 
; CLOSE-Opcode übergeben 

GEMDOS aufrufen 

Stack aufräumen 

Fehler aufgetreten? 

Ja, dann alles abbrecheni 

# 

Change: 

move.l #buf+S25a,S 
move.u #32,dO 

move.l #$4ce,a0 
move.u #4,d1 

** Vektoren ändern •• 
i607e ; neue Font-Adresse in Header 

8 mögliche VBL-Routinen mal 4 Bytes 
Startadresse der VBL-Routinen holen 
erste VBL-Routine überspringen 

i 

loop: 

tst.l (a0,d1) 

beq free 

addq #4,dl 

cmp d0,d1 

bne loop 

*• Freien VBL-Vektor suchen •• 
testen, ob Routine benutzt uird 

Nein, dann Suche abbrechen 
sonst nächste VBL-Routine 
schon alle Routinen getestet? 

Nein, dann ueitersuchen 

1 

error: 

move.l #0,laenge 
bra fertig 

** Error-Exit der Suchroutine •* 
Gesamtlänge auf Null setzen 

Alle Routinen getestet 1 

1 

break: 

move.l #0,d0 
bra fertig 

*• Error-Exit der Disk-Routinen ** 
Gesamtlänge auf Null setzen 

Programm beenden 

1 

free: 

lea (a0,d1),a2 

move.l a2,vbl 
move.l #instal,(a 

*• Freie Routine gefunden ** 

;Adresse der freien VBL-Routine holen 
Adresse zuischenspeichern 
?) ; VBL-Vektor auf User-Routine setzen 

1 

fertig: 

move.l oldssp,-(s 
move.u #$20,-(sp) 

*• Zurück in User Mode ** 

3) ; Alten Supervisor Stack holen 
; SUPER-Opcode übergeben 
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trap 

#1 

GEMDOS aufrufen 

add. l 

#6,sp ; 

Stack aufräumen 

move.l 

laenge,dO ; 

Gesamtlänge zurückholen 

« 

ende: 


*• Programm beenden ** 

move.w 

#0,-(sp) ; 

Fehler-Gode 0 übergeben 

move.l 

d0,-(sp) ; 

Gesamtlänge übergeben 

move.w 

#$31,-(sp) 

;KEEP PROOESS-Opcode übergeben 

trap 

#1 

GEMDOS aufrufen (zurück zun Desktop) j 

f 

instal: 

« 

•* VBL-Interrupt-Routine •* | 

cmpi.l 

#buf+$25a,$607e ; Font-Daten-Zeiger verändert? 

beq 

weiter ; 

Nein, dann weiter prüfen 

move.l 

#buf+$25a,S607e;sonst neue Font-Datenadresse in 

move. l 

#buf+$25a,$2924;TOS-/GEM- Font-Vektoren eintragen 

move.l 

vbl,a0 ; 

Adresse der User-VBL-Routine holen 

clr.l 

(aO) 

User-VBL-Routine löschen 

$ 

weiter: 


** VBL-Routine beenden *• 

rts 


Rücksprung 

filename: 

dc.b 'System*.fnt',0 ; File-Name des neuen Fonts ] 

handle: 

blk.u 1 ; 

Speicher für File-Handle 

laenge: 

blk.l 1 ; 

Speicher für Gesamtlänge 

vbl: 

blk.l 1 ; 

Speicher für VBL-Adresse 

oldssp: 

blk.l 1 ; 

Speicher für Supervisor Stack 

buf: 

blk.b 5000 

;Speicher für neuen System-Font 


$ 

I********************************************* 


■ BASIC-Loader erzeugt SYSTEM.PRG 

I********************************************* 

DO 

READ a$ 

IF a*<>"*" AND a$<>"**" 

routS=rout$+MKI*(VAL{"SH"+a$)) 

ELSE 

IF a$="*" 

rout$=rout$+STR!NG$(2500,MKI$(4HFFFF)) 

ENDIF 

ENDIF 

EX IT IF a$="**'' 

LOOP 

OPEN "0",#1,"SYSTEM.PRG" 

BPUT #1,VARPTR(rout$),LEM(rout$) 

CLOSE 

I 

DATA 601A,0,1400,0,0,0,0,0,0,0,0,0,0,0 
DATA 2A4F,2A6O,4,202D,C,D0AD,14,D0AO,1C,680 
DATA 0,100,2300,0,148,42A7,3F3C,20,4E41,DFFC,0,6 
DATA 2300,0,150,2079,0,42E,91F0,0,4,20B0,0,154 
DATA 3F30,2,4879,0,13A,3F30,30,4E41,50«F,4A80,6BOO,76 
DATA 3300,0,146,4879,0,154,2F30,0,125A,3F39,0,146 
DATA 3F3O,3F,4E41,DFFO,0,O,4A80,6B00,40,3F39,0,146 
DATA 3F30,3E,4E41,588F,4A80,6BOO,38,23FO,0,3AE,0,607E 
DATA 3030,20,2070,0,40E,3230,4,4AB0,1800,6700,22,5841 
DATA B240,6600,FFF2,23FO,0,0,0,148,6000,10,2030,0 
DATA 0,6000,12,45F0,1800,230A,0,140,24BO,0,10E,2F39 
DATA 0,150,3F30,20,4E41,DFF0,0,6,2039,0,148,3F30 
DATA 0,2F00,3F30,31,4E41,0B9,0,3AE,0,607E,6700,1E 
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DATA 23FC,0,3AE,0,607E,23FC,0,3AE,0,2924,2079,0 
DATA 14C,4290,4E75,7379,7374,6560,2A2E,666E,7400,* 

DATA FFFF,FFFF,FFFF,FFFF,FFFF,FFFF,FFFF,0,1A,1412,A14 
DATA 600,1814,2018,606,1212,E0A,A00,** 

Beachten Sie bitte, daß dieses Programm nur für das ROM-TOS vom 
6.2.1986 gilt. 

Die zweite Möglichkeit, eigene Fonts im Programm zu verwenden, 
besteht darin, nur für die Dauer des BASIC-Programms die oben er¬ 
wähnten beiden Font-Zeiger zu "verbiegen". Die folgende Prozedur 
erledigt dies für Sie und liefert Ihnen nach erledigter Arbeit die 
Startadresse der Font-Daten. Der dazugehörige Font-Header beginnt 
602 Bytes vor dieser gelieferten Adresse. Auch hier ist zu beachten, 
daß dieses Programm nur für das ROM-TOS vom 6.2.1986 gilt. 

Das Besondere an dieser Routine ist, daß Sie auch Degas- und STAD- 
Fonts (STAD-Fonts sind identisch mit OLIFONT-Fonts) verarbeiten 
kann (jeweils Hires-8xl6-Fonts!). Soll ein Degas-Font geladen werden, 
hat man die Möglichkeit, einen zweiten Font-File-Namen anzugeben. 
Diese zweite Font-Datei wird dann in den ASCII-Bereich von 128 - 
255 hinzugeladen. Wird kein zweiter Font-Name angegeben, bleibt der 
ASCII-Bereich von 128 bis 255 unbelegt. 

Ein Degas-Hires-Font besteht immer aus nur 128 Zeichen. 

Der neue Font wird entweder direkt bei HIMEM (falls der RAM- 
Font-Pointer auf die Original-Font-Adresse im ROM zeigt) oder an 
der aktuellen Font-Adresse (falls schon durch SYSTEM.PRG ein neuer 
Font außerhalb des BASIC installiert wurde) abgelegt. 

Im Falle, daß durch SYSTEM.PRG kein Font-Puffer angelegt wurde, 
wird der BASIC-Speicher jeweils am oberen Ende von jedem ge¬ 
ladenen Font um 5000 Bytes reduziert. 

Der BASIC-Speicher darf in diesem Fall - solange der geladene Font 
aktiv ist - nicht durch RESERVE vergrößert werden, da sonst die 
BASIC-Daten mit den Font-Daten kollidieren können. Das hätte zwar 
keinen Absturz zur Folge, es wären jedoch anschließend keine Texte 
mehr entzifferbar. 

Im Beispiel wird der SYSTEM.FNT geladen. Degas- oder STAD- 
Aufrufe kann ich Ihnen hier leider nicht zeigen, da ich nicht weiß, 
über welche relevanten Fonts Sie verfügen. Ich hätte Ihnen gern einige 
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selbstentworfene Fonts auf der beiliegenden Diskette mitgeliefert, aber 
der Speicherplatz reichte leider nur noch für einen System-Font. 

DEFTEXT ,0,,13 

TEXT 100,50,"Alter Font" 

afontset(3,"SYSTEM.FNT","",*nfontX) 

TEXT 100,100,"Neuer Font" 

IF nfontX>BASEPAGE 

aon'ginal ! s.o. 

TEXT 100,150,"Uieder alter Font" 

ENDIF 

PROCEOURE fontset(typ*,fonti*,font2$,fontX) 

' Typ* Gibt den zu ladenden Font-Typ an: 

' 1 = Degas 

■ 2 = STAD (bzw. OLIFONT) 

' 3 = SYSTEM 

' FontlS Font-File-Name (bei Degas ggfs, für ASCII 0 bis 127) 

' Font2$ Font-File-Name für 2. Degas-Halb-Font (ASCII 128-255) 

' FontX Pointer auf eine Integer-Rückgabevariable, die nach 
' Abschluß die Startadresse der neuen Font-Daten enthält. 

LOCAL a$,aX,fntX,iX,jX,kX 

IF typX=i OR typX=2 OR typX=3 I Zulässige Typ-Angabe? 

IF EXIST(font1$) ! Font-Datei existiert? 

a$=MXIS(&HA000)'t'HKL$(&H20094E75) I Maschinen-Programm 
' ! (s. Prozedur Sysfont unter ASC) 

aX=VARPTR(a$) I Rout inen-Adresse 

fntX=LPEEK(&H607E) ! Aktuelle Font-Adresse 

origX=LPEEK(LPEEK(C:aX()+8)+76) I Original-8x16-ROM-Font-Adresse 
IF fntX=origX ! Aktueller Font = Original-ROM-Font? 

RESERVE FRE(0)-5000 I 5-KB oberhalb von HIMEM freigeben 

fntX=HIMEM+602 ! Header überspringen 

IF typX<3 ! Degas- oder STAD-Font? 

BMOVE origX-602,HIMEM,602 ! Header in Font-Buffer kopieren 
ENDIF 
ENDIF 

IF typX<3 ! Degas-Font bzw. STAD-Font? 

FOR kX=0 TO 1 ! Evtl. 2 Durchläufe (bei Degas) 

b$=STRING$(2048*typX,0) ! Arbeitspuffer einrichten 

OPEN "I",#1,font1$ ! Datei öffnen 

BGET #1,VARPTR(b$),2048*typX I 2048 bzw. 4096 Bytes in 
' I den Arbeits-Puffer laden 

CLOSE 

FOR jX=0 TO (128*typX)-1 ! 128 (Degas) 

I o. 256 (STAD) Zeichen 

FOR iX=0 TO 15 ! Je 16 Zeilen (Scan-Lines) 

POKE kX*128+fntX+jX+iX*256,PEEK(VARPTR(b$)+iX+jX»16) 


' I Siehe unter "Font-Aufbau" | 


NEXT iX 
NEXT jX 

IF kX=0 ! Erster Durchlauf? 

IF typX=1 ! Degas-Font? 

IF EXIST(font2$)=0 ! 2. Font-Datei existiert nicht? 

kX=1 ! Darm Schleife abbrechen 

ENDIF 
ELSE 
kX=1 


! STAD-Font ! 

! Schleife abbrechen 
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ENDIF 
ENDIF 
NEXT kX 
ENDIF 
IF typX=3 

BLOAD font1$,fntX-602 
ENDIF 

*fontX=fntX 
LPOKE &H2924,fntX 
LPOKE &H607E,fntX 
ENDIF 
ENDIF 
RETURN 


! System-Font laden? 

! Datei in Font-Puffer laden 

I Font-Daten-Adresse zurückgeben 
I TOS-Font-Pointer verbiegen 
I GEM-Font-Pointer verbiegen 


Wurden auf diese Art neue Fonts hinter HIMEM installiert, gehen Sie 
nach Verlassen des BASICs oder bei Voll-RESERVE verloren. Der 
Original-Font muß also vorher restauriert werden, da sonst auch hier 
später (auf dem Desktop) kein Text mehr erkennbar ist: 


PROCEDURE original 
LOCAL a$,aX,origX 

a$=MKI$(&HA000)+MKL$(&H20094E75) I Maschinen-Progranm 
aX=VARPTR(a$) I Rout inen-Adresse 

origX=LPEEK(LPEEK(C;aX()+8)+76) I Original-Font-Adresse im ROM 
LPOKE &H2924,origX ! TOS-Font-Pointer restaurieren 

LPOKE &H607E,origX I GEM-Font-Pointer restaurieren 

RESERVE XBIOS(2)-HIMEM-16384+FRE(0) I BASIC-Speicher restaurieren 
RETURN 


War vor BASIC-Start schon ein neuer Font durch SYSTEM.PRG resi¬ 
dent installiert, so kann das BASIC ohne weiteres wieder verlassen 
werden. 

Font-Aufbau: 

Die Degas- und STAD-Fonts sind so organisiert, daß die 16 Scan- 
Lines eines Zeichens - beginnend mit ASCII 0 - direkt nacheinander 
ab dem ersten Byte der Font-Datei abgelegt sind. Diesem Block wird 
bei Degas dann ein Word angehängt, das den Auflösungsindex enthält. 

In den folgenden Schemen steht s für Scan-Line und z für ASCII- 
Zeichen. 


Degas-Font: 

Slz0-s2z0-s3z0-s4z0- _ -s14z127-s15z127-s16z127 


I 

I 

2048 Bytes für die Font-Daten (16*128) 

+ 2 Bytes für Auflösung (1=Hires/2=Hidres/3=Loures) 


= 2050 Bytes Font-File-Länge 
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Ein Degas-Font in hoher Auflösung unfaSt inner nur 128 Zeichen! 

STAD (bzu. OLIFONT-) Font: 

Sl20-s2z0-s3z0-s4z0- .... -sUz255-s15z255-s16z255 


= 4096 Bytes für Font-Daten (16*256) 

Ein STAD-Font in hoher Auflösung umfaBt inner 256 Zeichen! 


SYSTEM-Font: 

Slz0-s1z1-s1z2-s1z3- .... -s16z253-s16z254-s16z255 


I 

I 

4096 Bytes für Font-Daten (16*256) 
+ 602 Bytes für Font-Header 


= 4698 Bytes Font-File-Länge 
In einem Sytem-Font liegen dagegen inner die jeweiligen 
Scan-Lines aller 256 Zeichen nacheinander im Speicher: 


In der oben eingesetzten Konvertierungs-Schleife werden Degas- und 
STAD-Fonts nach diesem Schema in einen 4096 Byte großen System- 
Font konvertiert, wobei beim Degas-Font im ersten Schleifendurchlauf 
(K%=0) die ASCIIs 0 bis 127 und evtl, im zweiten Durchlauf (K%=1) 
die ASCIIs 128 bis 255 belegt werden. Da beide Fonts über keinen 
Header verfügen, wird der aktuelle 8xl6-System-Header vor die Font- 
Daten gehängt. 

Die ganze Sache wäre nur die Hälfte wert, wenn man die so instal¬ 
lierten neuen System-Fonts nicht auch als System-Font-File abspei¬ 
chern könnte. So haben Sie die Möglichkeit, Ihre eigenen Fonts auf 
dem Degas- oder OLIFONT-Font-Editor zu kreieren, diese (bzw. be¬ 
reits vorhandene Fonts) dann mit Setfont zu laden und anschließend 
mit der folgenden Prozedur als System-Font abzuspeichern. 

PROCEDURE tnake_sys(fontX,fname$) 

' FontX = Die von Setfont gelieferte Font-Daten-Adresse 
' FnameS = Name der neuen System-Font-Datei 
IF fnameS>"" AND fname$<>"\" AND fname$<>"\.FNT" 

BSAVE fname$,fontX-602,4698 
ENDIF 
RETURN 

Um das Bild abzurunden, folgen noch zwei Prozeduren, die den aktu¬ 
ell durch Setfont installierten Font aus dem System-Format in das De¬ 
gas- bzw. STAD-Format konvertieren, wobei bei der Degas-Konver¬ 
tierung nur die unteren 128 Zeichen (ASCII 0 bis 127) berücksichtigt 
werden. 
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PROCEDURE inake_deg( fontX, fnameS) 

' FontX = Die von Setfont gelieferte Font-Daten-Adresse 
' FnameS = Name der neuen Degas-Font-Datei 
LOCAL b$,iX,jX 

IF fnamei>'"‘ AND fname$<>"\" I Gültiger Dateiname? 
b$=STRING$(2048,0) I Arbeitspuffer einrichten 

FOR jX=0 TO 127 I 128 Zeichen 

FOR iX=0 TO 15 I Je 16 Zeilen (Scan-Lines) 

POKE VARPTR{b$)+iX+jX»16,PEEK(fontX+jX+iX*256) 

' I Konvertieren 

NEXT iX 
NEXT jX 

bS=bS+MKIS(1) I Auflösungsindex anhängen 

BSAVE fnameS,VARPTR(bS},20S0 I Degas-Font-Datei speichern 
ENDIF 
RETURN 

I 

PRCX:edure make_stad(fontX,fname$) 

' FontX = Die von Setfont gelieferte Font-Daten-Adresse 
' FnameS = Name der neuen STAD-Font-Datei 
IF fnameS»'"' AND fname$<>"V' I Gültiger Dateiname? 

b$=STRINGS(4096,0) I Arbeitspuffer einrichten 

FOR jX=0 TO 255 I 256 Zeichen 

FOR iX=0 TO 15 I Je 16 Zeilen (Scan-Lines) 

POKE VARPTR(b$)+iX+jX»16,PEEK(fontX+jX+iX*256) 

' I Konvertieren 

NEXT iX 
NEXT jX 

BSAVE fnameS,VARPTR(bS),A096 I STAD-Font-Datei speichern 
ENDIF 
RETURN 


PATCH für Installation eigener Fonts innerhalb eines 
V2.xx-GFA-Editors (nur gültig für ROM-TOS vom 6.2.861) 


Der GFA-BASIC-Interpreter hat die Eigenschaft, nach jeder Rück¬ 
kehr zum Editor (vom Programm oder Direktmodus), den Original- 
System-Font zu restaurieren. Dadurch ist die Verwendung eigener 
Fonts innerhalb des V2.xx-Editors erschwert. Dieser Patch ändert die 
dafür zuständige Programmsequenz so, daß sich die Restauration im¬ 
mer auf den Font bezieht, dessen Adresse im Font-Pointer des Systems 
liegt. Dadurch sind auch innerhalb des V2.xx-Editors eigene Fonts 
einsetzbar. 

Der V3.0-Editor benutzt dagegen eine andere - mir bisher schleier¬ 
hafte - Methode, seinen Font bei Rückkehr aus dem Programm oder 
vom Direktmodus zu restaurieren. Wahrscheinlich geschieht dies über 
einen internen Vektor, dessen Lage und Bedeutung sich mir noch 
nicht offenbart hat. 
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a$=HKL$(&H43 F90000)+MKI$(&H6032) 

I 

' Ass.: Lea $6032,A1 

I 

b$=MKL$(&HA0002269)+HKI$(&H8) 


Eigene Font-Adresse einschleusen 
TOS-Font-Header-Start nach AI 
Original-System-Font-Adresse holen 


' Ass.: AOOO I Line-A-Vektor holen 

' Move.L $0008(A1),A1 I TOS-Font-Header-Start nach A1 

I 

al$="Aktiven Interpreter joderjOriginal-'GFABASIC.PRC|patchen?" 

ALERT 1,al$,1,»SPEICHER IDISK-PRG»,backX 

IF backX=1 I Aktiven Speicher-Editor patchen 

ALERT 2,"Handelt es sich um: ",1," V2.0 1 V2.02 ",back2X 

IF back2X=1 I \/2.0-Version 

BHOVE VARPTR(a$),BASEPAGE+256+48162,6 I Neue Sequenz übertragen 
BHOVE VARPTR(aS),BASEPAGE+2S6+48258,6 I Neue Sequenz übertragen 
ELSE I V2.02-Version 

BHOVE VARPTR(a$),BASEPAGE+256+493S8,6 I Neue Sequenz übertragen 
BHOVE VARPTR(a$),BASEPAGE+256+494S4,6 I Neue Sequenz übertragen 
ENDIF 

ELSE I Disk-Programm patchen 

' Vorsichtshalber vorher eine Sicherheitskopie anlegeni 
IF EXISTC'GFABASIC.PRG") I GFABASIC.PRG gefunden? 

RESERVE XBIOS(2)-16384-HIHEH+FRE(0)-60000 I 60 KByte freigeben 
BLOAO "GFABASIC.PRG",HIHEH I GFABASIC.PRG laden 
OPEN "U",#1,"GFABASIC.PRG" I GFABASIC-Programm-File öffnen 
FOR iX=0 TO L0F(#1) STEP 2 I Gesamte Länge durchgehen 
POKE XBIOS(2)+(iX/2),255 I Zeitvertreib 
IF HKI$(DPEEK(HIHEH+iX))+HKL$(LPEEK(HIHEH+iX+2))=b$ 

' I Alte Sequenz gefunden? 

SEEK #1,iX I File-Pointer setzen 

BPUT #1,VARPTR(a$),6 I Neue Sequenz eintragen 

ENDIF 
NEXT iX 
CLOSE 

RESERVE XBIOS(2)-16384-HIHEH+FRE(0) I Speicher restaurieren 
ELSE 

ALERT 3,"GFABASIC.PRG nicht gefunden!", 1,"RETURN",backX 
ENDIF 

ENDIF 


GFA-BASIC-Spezial-Font 

Nun folgt die wohl interessanteste Möglichkeit für die Verwendung 
eigener Fonts. Mit diesem Spezial-Font ist es möglich, mit (fast) belie¬ 
big vielen Fonts gleichzeitig zu arbeiten. Die Größe der Font-Zeichen 
ist nur (!) durch den verfügbaren Speicherplatz beschränkt. Die Proze¬ 
dur Ptext erwartet einen Font in einem ganz bestimmten Format. 
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Der Font ist folgendermaßen aufzubauen; 

Byte 1 und 2 sind 2 Header-Bytes: 

Byte 1 = Breite eines Zeichens in Pixel 
Byte 2 = Höhe eines Zeichens in Pixel 
Daran anschließend liegen die einzelnen 
Zeilen der Zeichen der Reihe nach im Speicher: 

Scan-Zeile 1 des 1. Zeichens (ASCII 0) 

Scan-Zeile 2 des 1. Zeichens (ASCII 0) 

Scan-Zeile n des 1. Zeichens (ASCII 1) 

Scan-Zeile 1 des 2. Zeichens (ASCII 1) 

Scan-Zeile 2 des 2. Zeichens (ASCII 1) 

Scan-Zeile n des 2. Zeichens (ASCII 1) 

usw. bis 

Scan-Zeile 1 des 256. Zeichens (ASCII 255} 

Scan-Zeile 2 des 256. Zeichens (ASCII 255) 

Scan-Zeile n des 256. Zeichens (ASCII 255} 

Es handelt sich dabei um 256 GFA-PUT-Strings, die ohne die 6 Hea¬ 
der-Bytes (da alle Zeichen gleiche Definitionen besitzen) nacheinander 
im Speicher liegen. Dabei ist wichtig, daß die Breite jeder der 256 
Einzel-PUT-Images eine durch 2 teilbare Byte-Breite hat (siehe 9.5.1 
"Organisation eines PUT-Strings"). Die Größe des Zeichens innerhalb 
des Einzelblocks ist dagegen unerheblich. 

Bezüglich der Bildschirmauflösung ist darauf zu achten, daß jeweils 
entsprechende Fonts verwendet werden (Hires = 1 Farbebene/Midres = 
2 Farbebenen/Lowres = 4 Farbebenen). 
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DIM fontbuffX(25000) 

I 

' Ich richte hier zuerst einen großen Puffer ein, da ich davon 
■ ausgehe, daß Sie sich mit der Zeit Font-Sätze unterschiedlicher 
' Größe zulegen werden. 

' Dieser 100 KByte-Zuischen-Puffer reicht für max.: 


48*64 

oder 

32*96 

oder 

16*194 

oder 

64*48 

oder 

80*39 

oder 

96*33 

oder 

112*27 

oder 

128*24 

oder 

... etc. 



Punkte-Fonts 


f.name$="SUPER.FON" ! Font-Name 

IF EXISTCf.nameS) ! Font-File gefunden? 

afontloadff.nameS,VARPTR(fontbuffX(0)),*platzX)! Font laden 


' Nachdem der Font durch die Lade-Prozedur geladen wurde, wird der 
' engültig notwendige Puffer an die in PlatzX zurückgegebene, 

' tatsächliche Font-Größe angepaßt. 


DIM font1X(INT(platzX/4)+1) 
SWAP fontbuffX(),font1XO 
ERASE fontbuffXO 
f.adr1X=VARPTR(font1X<0)) 


I End-Puffer einrichten 
! Puffer-Titel austauschen 
! Alten Puffer löschen 
! Font-Startadresse ermitteln 


Diese Adresse wird an die Ptext-Routine übergeben. D.h. also, 
daß beliebig viele Fonts gleichzeitig eingesetzt werden können, 
bzw. solange der Speichervorrat reicht. 

Für jeden Font muß ein eigenes Puffer-Feld eingerichtet werden. 
Das Puffer-Feld für den hier geladenen ersten Font habe ich 
willkürlich FontlXO genannt. 

Durch POKE F.adrIX.Breite urxi/oder POKE F.adr1X+1.Höhe 
können Sie zusätzlich auch die Maße der Einzel-Zeichen in 
relativ freien Grenzen variieren. 
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DEFFILL ,2,4 !.. 

PBOX 0,0,639,399 ! 

FOR iX=1 TO 10 I 

a$=a$+CHR$(iX) I 

NEXT iX I - Irgendeinen 

FOR iX=16 TO 22 ! String 

aS=a$+CHR$(iX)+CHR$(iX+32) I zusaimenbasteln 

NEXT iX I 

FOR iX=65 TO 72 ! 

at=a$+CHRS(iX)+CHRS(iX+32) I 

NEXT iX ! .■ 

FOR iX=1 TO 14 I 14 PUT-Grafikmodi 

aptext(2,iX*28,636,aS,f.adrIX,iX) ! PTEXT-String ausgeben 
NEXT iX 
ENDIF 

I 

PROCEDURE ptext(xtxtX,ytxtX,plenX,txt$,c_bfX,gmodX) 

' Gibt SUPER-Font-Text an beliebiger Bildschirmposition aus. 

I 

' XtxtX : X-Position der linken unteren Ecke des ersten Zeichens 

' YtxtX : Y-Position der linken unteren Ecke des ersten Zeichens 

' PlenX : Gewünschte Länge der Textausgabe vom linken Rand des 
' ersten Zeichens zum rechten Rand des letzten Zeichens 

' Wird Null übergeben, wird der Text in der Original länge 

■ ausgegeben. 

' Txt$ : Beliebiger Textausdruck 

' C_bfX : Startadresse des gewünschten Font-Puffers 

' GmodX : Gewünschter Grafikmodus (0 - 15 siehe PUT) 

I 

' Bei den ersten vier Parametern wurde darauf geachtet, daB ihre 
' Übergabe-Konventionen denen des TEXT-Befehls ähnlich sind, 

' wobei der dritte Parameter jedoch nicht optional ist und auch 
' kein Interword-Spacing erlaubt (Minus-Länge siehe TEXT). 

I 

LOCAL iX,s_bf$,plcX,ldiv,pt_wX,pt_hX,planeX 
IF LEN(txt$)>0 ! Ist überhaupt Text vorhanden? 

pt_wX=PEEK(c_bfX) ! Zeichenbreite lesen 

pt_hX=PEEK(c_bfX+1) I Zeichenhöhe lesen 

planeX=:2*(2-XBIOS(Ö) I Anzahl der Bit-Planes 

plcX=<{INT((pt_wX/16)+SGN{pt_wX HOO 16)))*2*pt_hX)*planeX 
' Speicherbedarf eines Zeichen in Bytes berechnen 
s_bf$=MKI$(pt_wX-1)+HKI$(pt_hX-1)+MKI$(planeX)+SPACE$(plcX) 

' I PUT-String vorbereiten 

IF plenX>0 ! Ausgabelänge größer Null? 

ldiv=plenX/LEN(txt$)+(plenX/LEN(txt$)-pt_wX)/(LEN(txtS)-1) 

' I Dann Einzelzeichen-Offset berechnen 

ELSE I Ausgabelänge gleich oder kleiner Null 

ldiv=pt_wX ! dann Offset = Zeichenbreite 

ENDIF 

FOR iX=0 TO LEN{txtS)-1 ! Alle String-Zeichen... 

BMOVE c_bfX+2+ASC(HID$(txt$,iX+1,1))*plcX,VARPTR(s_bfS)+6,plcX 
' ... aus dem Font-Puffer in den PUT-Puffer kopieren 

PUT xtxtX+iX*ldiv,ytxtX-pt_hX,s_bf$,gmodX 
' I Zeichen als PUT-String putten 

NEXT iX 
ENDIF 
RETURN 
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PROCEDURE fontload(sel$,adrX,plcX) 

' Lädt SUPER-Font-Oatei in den Puffer (ab ’AdrX). 

I 

' Sel$: Name der Font-Datei 

' AdrX: Startadresse des (ausreichend groSen) Puffers 
' PlcX: Pointer auf eine Integer-Rückgabevariable, die 
' nach Abschluß die tatsächliche Größe (in Bytes) 

' der geladenen Font-Datei enthält. 

OPEN ''I",#99,sel$ ! Font-Datei öffnen 

BGET #99,adrX,L0F(#99) I Font in den Puffer laden 

*plcX=LOF(#99) I Font-Größe ermitteln 

CLOSE #99 I Font-Datei schließen 

RETURN 
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18. AES-Bibliothek 


Diese Bibliotheks-Funktionen bietet Ihnen in der V3.0-Version unter 
direkt einsetzbaren Funktionsnamen die komplette AES-Bibliothek 
(Library). 


18.1 Das Resource-Construction-Set 

Bevor ich damit beginne, die einzelnen AES-Funktionen zu erläutern, 
muß hier erst einmal dem erfreulichen Umstand Rechnung getragen 
werden, daß auf der Original-GFA-V3.0-Programmdiskette ein Pro¬ 
gramm enthalten ist, das für den Einsatz von AES-Menüs und -Dia¬ 
logboxen fast lebensnotwendig ist: das sog. RCS.PRG (Resource-Con¬ 
struction-Set). 

Sicher können Resource-Files auch "per Hand" erstellt werden, was 
aber dermaßen kompliziert ist, daß es für etwa 99 Prozent aller Inter¬ 
essierten keine Möglichkeit bietet, es zu realisieren. Womit ich nicht 
sagen will, daß 99 Prozent aller GFA-Programmierer es nicht begrei¬ 
fen könnten, sondern daß 99 Prozent angesichts des gewaltigen Auf¬ 
wands lieber darauf verzichten und per Programm eigene Dialogboxen 
und Menüs erstellen würden. Das ist nämlich tatsächlich erheblich 
einfacher, als ein Resource-File zu konstruieren. 

Da nun aber endlich ein fehlerfreies RCS für "jedermann" zur Verfü¬ 
gung steht und dieses auch noch um einiges komfortabler ist, als die 
erste - absturzsichere (soll heißen: "mit Sicherheit abstürzende") - 
Version, wird die Verwendung von Resource-Files - vor allem in 
GFA-BASIC - einen rasanten Aufschwung erleben. 

Mit einem Resource-Construction-Set ist es auf fast spielerische Art 
möglich, selbst die aufwendigsten Dialogboxen und Menüs zu kon¬ 
struieren. Das RCS erstellt den kompletten, fertigen Objektbaum - 
bzw. auch mehrere Bäume parallel - und liefert drei Dateien. 

Die erste Datei ist das Resource-File selbst, in welchem sämtliche 
Objekt-Beschreibungen, Strukturzeiger und was sonst noch alles dazu¬ 
gehört, abgelegt sind. Diese Datei wird dann in unser eigenes Pro¬ 
gramm geladen (siehe RSRC_LOAD) und kann nun von dort aus ein¬ 
gesetzt und verwaltet werden. Diese Datei endet mit der Extension 
.RSC. 
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Die zweite Datei trägt die Extension .DEN und enthält sämtliche Da¬ 
ten, die für das RCS dann wichtig sind, wenn ein bereits erstelltes 
Resource-File hineingeladen werden soll, um es weiter zu bearbeiten. 
Dies sind z.B. die Baum- und Objektnamen, sowie die Baum- und 
Objekttypen, die Sie im RCS zugeordnet haben. Auf der Original- 
GFA-V3.0-Diskette finden Sie ein weiteres Programm mit Namen 
DEF2DFN.PRG, das die Aufgabe hat, durch das alte RCS (Version 
1.0) erstellte .DEF-Dateien in die für die neue Version notwendigen 
.DFN-Dateien umzuwandeln. 

Die dritte Datei, die vom RCS erzeugt wird, hat einen variablen Auf¬ 
bau. In dieser Datei werden sämtliche, zur Weiterverarbeitung notwen¬ 
digen Baum- und Objektindizes abgelegt. Da das RCS selbstverständ¬ 
lich nicht allein für GFA-BASIC produziert wurde, werden beim 
Aufbau dieser Header-Datei die für die jeweilige Programmiersprache 
erforderlichen Konventionen berücksichtigt. 

Die RCS-V2.0-Version ermöglicht nun auch die Ausgabe GFA-spezi- 
fischer .LST-Files, die dann in ein GFA-BASIC-Programm durch 
Merge eingelesen werden können und durch LET allen im RCS ver¬ 
wendeten Baum- und Objektnamen (als Variable) den entsprechenden 
Baum- bzw. Objektindex zuordnen. Mit diesen Indizes sind dann in¬ 
nerhalb des Programms sämtliche Objekte innerhalb ihres Objekt¬ 
baums ansprechbar. Welches Objekt zu welchem Baum gehört, wird als 
!-Kommentar der jeweiligen Deklaration angehängt. 

Soviel zu den "Äußerlichkeiten", wir kommen nun zur RCS-Bedie- 
nung. Nachdem Sie das RCS2.PRG gestartet haben, meldet sich fol¬ 
gende Programmoberfläche: 
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Desk File Clobal Edit Options Hierarchy 


QQaaüi 

l):\GFÄ.V3a\UNTITLE0.RSC 

- 
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L. 

< -|FullnusT«r-Auswahl bei (1.BOXG-IBOX-, G-BOXCHAR >Obiel<^en| 


— 




4-[r«wt-Attribut-Auswahl bei G_TEXT - . G_FTEXT-. G_BOXTEXT-Objekten 1 


— 

-[Textfarben-Auswahl bei G_TEXT - , G_FTEXT-, G_BOXTEXT-, G_BOXCHAB-Objekten 



j*Ob_f lag' /Ob_state ' -Be^s^^nnungj 


was 

—|Text-Position i erongZ-Fornat i erungj 





^— 

|Randf arben-Auswahl bei G-BOX-« G-IBOX-, G_BOXCHAR-ObJ ekten | 



CI ipp-Board CObJ ekt - ZWischen^-Ab^^ge^J 


.♦**** 

—j hül 1-E iner Cohne Sicherhe 1 s-Abi^^g^^J 













□ 





Die Programm-Optionen sind im RCS alle in englischer Sprache be¬ 
schrieben, so daß es einigen von Ihnen Mühe bereiten wird, diese auf 
Anhieb zu verstehen. Aus diesem Grund führe ich nun alle wichtigen 
Optionen der Reihe nach auf und werde versuchen, sie mit kurzen 
Worten zu umschreiben. 

Was sich auf der RCS-Oberfläche abspielt, ist - glaube ich - aus der 
obigen Grafik relativ leicht zu erkennen. Wundern Sie sich nicht, 
wenn die links in der Tool-Boxangeordneten Optionen nicht immer 
verfügbar sind. Sie können einen Tool-Menüpunkt immer nur dann 
anwählen, wenn der Menüpunkt für das aktuell aktivierte Objekt 
(Objekt anklicken) zulässig ist. Aber so weit sind wir noch nicht. 

Wollen Sie ein bereits bestehendes Resource-File bearbeiten, so gehen 
Sie in das erste Pull-Down-Menü "File" und wählen dort "Open" an. 
Ihnen werden nun alle auf der aktuellen Diskette verfügbaren .RSC- 
Files angezeigt und Sie können das betreffende File laden. 

Ich habe das hier mit dem RCS-eigenen .RSC-File getan. 



























534 


Das große GFA-BASIC-Buch 



Durch Doppelklick auf eines dieser Objektbaum-Symbole können Sie 
den betreffenden Objektbaum öffnen und ihn bearbeiten. Bei fremden 
Programm-RSCs darf dabei auf keinen Fall (!) die innere Struktur des 
Baumes verändert werden, da sonst die Objekt-Indizes im .RSC-File 
ebenfalls verändert werden und in dem fremden Programm die einzel¬ 
nen Objekte mit falschen Funktionen belegt werden. Sie können aller¬ 
dings die Größe, Lage und - teilweise - den Inhalt (Text) verändern, 
solange Sie eben darauf achten, daß die eigentliche Struktur unverän¬ 
dert bleibt. Das Hinzufügen von neuen Objekten ist bei fremden 
.RSCs also strengstens verboten, da sonst das betreffende Programm 
mit einem so veränderten .RSC-File nicht mehr arbeiten kann. 


Damit dies alles nicht "zufällig" geschieht, werden Sie vom RCS ggfs, 
auf diese Veränderungen und mögliche Fehlfunktionen aufmerksam 
gemacht. 


r-i E ^4 u 





PANEL ALERT PREE 


Möchten Sie ein neues .RSC-File erstellen, so suchen Sie sich zunächst 
aus den Baum-Symbolen das gewünschte aus, klicken es an und schie¬ 
ben es mit gedrückter Maustaste in das große Edit-Fenster. 























AE S-Bibliothek 


535 



Nachdem Sie es losgelassen haben, erscheint die Aufforderung, dem 
Baum einen passenden Namen zu geben. Tun Sie das nicht, so wird 
der vom RCS empfohlene Name (hier: TREEl) übernommen. Wollen 
Sie eigene Namen einsetzen, so achten Sie darauf, daß darin keine 
Spaces (Blanks, Leerzeichen) enthalten sind. 

Mit einem Doppelklick auf das Baum-Symbol können Sie es nun öff¬ 
nen. Je nachdem, welchen Objektbaum-Typ Sie gewählt haben, er¬ 
scheinen am unteren Bildschirmrand in der Part-Box die dafür zuläs¬ 
sigen Parts (Teile). 

Bei Menü-Bäumen: 


TITLE 


ENTRY 




Bei Alert-Bäumen: 


Message Line 




Bei Dialog- und Paneel-Bäumen: 


STRING EDIT:_EDITT: 


TEXT □□ [BÖXre iTI CT. A 


und bei Free-Bäumen: 
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Free-String Jk 

Die darin enthaltenen Parts stellen jedes für sich einen Objekt-Typ 
(siehe unter OB_TYPE()) z.B.: 


j C I : G_BOXCHAR 


I I = G_IBOX 

I •.• ! 

I BUTTON I = G_BUTTON 


I BOXTEXT I = G_BOXTEXT 
etc. 

Diese Parts können Sie nun je nach Bedarf mit gedrückt gehaltener 
Maustaste in das Edit-Fenster schieben. Hier sollte allerdings - sofern 
vom RCS nicht schon getan - zu Anfang ein G_BOX- oder 
G_IBOX-Objekt als "Mutter-Objekt" angeordnet werden, in das dann 
die "Kinder" eingefügt werden können. 

Die einzelnen Objekte (auch das Mutterobjekt) können nun per Maus¬ 
klick aktiviert (rechts unten erscheint eine schwarze Box) und bear¬ 
beitet werden (Größe, Inhalt, Attribute, Farbe ect. bestimmen). In den 
Fällen, wo Sie das Mutterobjekt so mit "Unter-Objekten" vollgepackt 
haben, daß es durch Mausklick nicht mehr erreichbar ist, hilft Ihnen 
die <Control>-Taste weiter. Ist Sie gedrückt, wird beim einem Maus¬ 
klick immer das Mutterobjekt angesprochen. 

Möchten Sie einen weiteren Baum bearbeiten, schließen Sie den aktu¬ 
ellen Baum (Exit-Box links oben) und ziehen das neue Baumsymbol in 
das große Fenster. Für jeden neuen Baum gelten dieselben Erläuterun¬ 
gen wie für das erste. 

Nachdem Sie eine komplette Resource aufgebaut haben, gehen Sie in 
das File-Menü und speichern es mit "Save As" ab. Evtl, sollten Sie 
vorher mit der Output...-Option im Global-Menü die gewünschten 
Index-Ausgabedateien bestimmen. Womit wir bei den Menü-Optionen 
wären. 
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In der Menüleiste finden Sie der Reihe nach: 


Desk File Global Edit Options Hierarchy 


Hier muß ich mich für eine kleine Unachtsamkeit meinerseits ent¬ 
schuldigen. In den folgenden Grafiken steht jeweils neben dem be¬ 
treffenden Menüpunkt die Tastenkombination, durch die die Option 
auch über die Tastatur angewählt werden kann. Dies sind entweder 
<Tasten> in Verbindung mit der <Control>-Taste <Taste>) oder in 
Verbindung mit der <Alternate>-Taste. Als Symbol für die Alternate- 
Taste wurde von Digital Research die schwarze Raute (ASCII=7) ge¬ 
wählt. Da ich jedoch bei Ausdruck der Grafiken einen anderen Zei¬ 
chensatz geladen hatte (übrigens der gleiche Zeichensatz, den Sie auch 
auf der beiliegenden Diskette finden: SYSTEM.FNT), sehen Sie in den 
Grafiken anstatt der Raute zwei inneinanderliegende Rechtecke. Ich 
merke dies hier nur an, damit Sie nicht denken, ich hätte ein anderes 
RCS als Sie. 

Unter den jeweiligen Menüleisten-Punkten erscheinen die folgenden 
Optionen: 

Desk Hierunter finden Sie evtl, vorhandene Accessories und ein 
Programm-Info. 


Neu 


Qpen... 

^0 

Nerge... 


Close 


Save 

AU 

Save Rs. 


Rbandon 

'^R 

Quit 



File Hierin sind die Ein- und Ausgabefunktionen enthalten. 

New Die aktuelle Resource wird gelöscht, wenn sie geladen 

wurde und bisher unverändert geblieben ist. Bei neu er- 
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Open 

Merge 

Close 

Save 

Save As 

Abandon 

Quit 


Global 

Output 


stellten oder geladenen und veränderten Resources wird 
vorher gefragt, ob sie gespeichert werden soll. 

Ein .RSC-File wird von der Diskette geladen und über¬ 
schreibt die vorhanden Resource (evtl, vorher abspeichern). 

Es kann ein .RSC-File von der Diskette geladen werden, 
das in die bestehende Resource eingefügt wird. 

Ist gerade ein Objektbaum geöffnet, wird er geschlossen. 
Wird "Close" auf der obersten Ebene gewählt, so hat es die 
gleiche Wirkung wie "New". 

Wurde ein Resource geladen und soll unter demselben Na¬ 
men neu gespeichert werden, geschieht dies hierdurch. Es 
wird dabei keine Fileselect-Box aufgerufen. 

Die aktuelle Resource wird nach Angabe eines neuen Da¬ 
teinamens abgespeichert. 

Hat bei neu eingerichteten Resources dieselbe Wirkung wie 
"New", nur daß anschließend das Programm verlassen wird. 

Das Programm wird nach Sicherheitsabfrage verlassen. 


Output... 

ao 

Protection... 

ES 

Save Preferences 

OR 

Shou Parts 

gp 

Hide Tools 

EH 


Hier können allgemeine Einstellungen vorgenommen wer¬ 
den. 

Erlaubt die Voreinstellung verschiedener Index-Ausgaben. 
Wird GFA-BASIC gewählt, so werden alle Objekt- und 
Baum-Indizes in einem ’merge’baren .LST-File abgespei¬ 
chert. 
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Select output files to be created: 

Rpplication binding files 

Source file for resource 

□ Order binding file 

□ (».RSH) 

□ 'C {».H) 

To Exit: 

□ Pascal (».!> 

■ GFR-BRSIC {».LST) 

1 OK 1 

□ FTN-77 (Ä.F) 

1 CRNCEL 1 

- — 


Protection Es kann festgelegt werden, ob Änderungen innerhalb der 
Baumstruktur verhindert (LOCKED), bzw. ob vorher eine 
Warnung ausgegeben werden soll (NORMAL). Die dritte 
Möglichkeit ist, daß Änderungen an der Struktur ohne 
Warnung ausgeführt werden können (EXPERT), was aus 
weiter oben genannten Gründen dazu führen kann, daß bei 
Änderungen der Resource fremder Programme, diese an¬ 
schließend nicht mehr korrekt verarbeitet werden können. 


Choose R Resource Editing Kode: 


LOCKED 


NORMAL 


EXPERT 


Objects nay be edited, sized, 
or noved, but the object tree 
structure nay not be changed. 

R uarning is given before the 
uorkspace is cleared or trees 
are rearranged. 

No uarnings are given uhen 
trees are altered or the 
uorkspace is cleared. 


To Exit: ! OK I 


CRNCEL 
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Save Preferences 

Die aktuell eingestellten globalen Optionen werden abge¬ 
speichert. Beim nächsten Aufruf des RCS werden diese 
Optionen voreingestellt. 

Hide/Show Parts 
Hide/Show Tools 

Die üblicherweise am unteren Bildrand eingeblendete Part- 
Box (Tool-Box) wird aus- bzw. wieder eingeblendet. 



Edit Hier können allgemeine Einstellungen vorgenommen wer¬ 

den. 

Cut Das aktuell aktive Objekt wird auf das Clipboard gelegt 

und kann von dort bei Bedarf wieder abgeholt werden. 

Copy Das aktuell aktive Objekt wird auch hier auf das 
Clipboard gelegt. Es bleibt dabei jedoch an seiner alten 
Position erhalten. 

Paste Das auf dem Clippboard liegende Objekt kann neu posi¬ 
tioniert werden (nach Klick auf "Paste" Maustaste gedrückt 
halten). 

Delete Das aktuell aktive Objekt wird ohne Vorwarnung gelöscht. 


Info... 

□1 

Nane... 

m 

Type... 

□T 

Load c < < 

OL 


Options Dies sind auf das aktuell aktive Objekt bzw. den aktivier¬ 
ten Baum bezogene Optionen. 
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Info Liefert allgemeine Informationen zum aktuell aktiven Ob¬ 

jekt/Baum (belegte Bytes etc.) 


I I 

Infopnation for: 
fl:\GFfl_U30\RCSZ.RSC 

' I 

' Objects: 589 Tedinfos: 27 Trees: 50 

Iconblks: 7 Inages: 48 

Bitblks: 34 Strings: 470 

Total bytes for abowe: 28289 , 

röin 

Bytes renaining in uorkspace: 35882 


Name Ermöglicht die Änderung des Objekt-/Baum-Namens. Bei 
Texteingabe-Objekten innerhalb des RCS dürfen keine 
Tiefstriche (Underscore) verwendet werden, da es dann 
einfach abstürzt. Dasselbe gilt übrigens auch für die Pfad- 
Zeile in FILESELECT-Boxen. 

Type Ermöglicht die Änderung des Objekt-/Baum-Typs. Bei 
Objekten wird nur die jeweils mögliche Änderung ange- 
boten. Bei Baumtyp-Änderung kann in jeden anderen 
Baum-Typ gewechselt werden. 
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Load Hiermit kann eine ICONBLK- oder BITBLK-Struktur ge¬ 
laden werde, falls gerade ein Grafik-Typ aktiv ist. 


Icon Bit Inage Load: 

You can load DRTR or HRSK 
or both. If both, DRTR Mill 
be loaded first. 


CRNCEL 

OK 




Sort Children... 

EF 

Unhide Children 

QU 

Renove Parent 
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Options: Index-bezogene Optionen. 

Sort Children 

Die aktuelle Objekt-Indizierung (normalerweise in der 
Reihenfolge ihrer Installation) innerhalb des betreffenden 
Baumes kann sortiert werden. Die Sortierfolge kann dabei 
vorbestimmt werden. 


Click on the picture uhich shous 
the sort order you want. 


1 2 3 



1 4 

2 5 

3 6 


1 2 
3 4 
5 6 


I OK I 


Cancel 


Unhide Children 

Ist das aktuell aktive Mutterobjekt mit dem Hidden-Status 
(HIDETREE siehe OB_FLAGS()) versehen, wird der Sta¬ 
tus hierdurch wieder aufgehoben. 

Remove Parent 

Diese Funktion hat mir ihr Geheimnis leider noch nicht 
offenbart. 

Als kleine Übung soll hier die Erstellung und der Einsatz einer Alert- 
Box demonstriert werden. 

Im Normalfall besteht eine Alert-Box aus einem Image 
(G_IMAGE/BITBLK), einem oder mehreren Strings (G_STRING) 
und einem oder mehreren Buttons (G_BOXTEXT), die alle zusammen 
in einem Mutter-Objekt untergebracht sind (weiße Hintergrundbox). 

Das Image und die Strings können nicht angewählt werden, bzw. Sie 
können es anklicken, aber das bleibt ohne Wirkung. Diese beiden Ob- 
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jekttypen haben also in einer Alert-Box keine SELECTABLE-Eigen- 
schaft (siehe OB_FLAGS()). Die einzigen wählbaren Objekte in einer 
Alert-Box sind die Buttons, wovon einer ggfs, stark umrandet ist. 
Diese starke Umrandung bedeutet, daß dieser Button auch durch 
Druck auf die <Return>-Taste gewählt werden kann. Die normal um¬ 
randeten Buttons haben also zusätzlich zur SELECTABLE-Eigenschaft 
"nur" die EXIT-Eigenschaft. Der dick umrandete Button hat dagegen 
drei Eigenschaften gleichzeitig. Er ist erstens SELECTABLE (wähl¬ 
bar), zweitens kann durch ihn mit einem Mausklick das Formular 
verlassen werden (EXIT) und drittens ist es ein DEFAULT-Objekt, 
daß auch mit der <Return>-Taste gewählt werden kann (siehe 
OB_FLAGS()). Außerdem wurde ihm in OB_STATE() der grafische 
Status OUTLINED zugewiesen. 

Da das vom RCS vorgegebene ALERT-Format nur sehr bedingt 
brauchbar ist, habe ich eine Alert-Box im DIALOG-Format erstellt, 
was ohne weiteres genauso einfach ist, wie die Erstellung im ALERT- 
Format. 


I 



I In DIHLOG-TÜpirn 
[sind die AnzahlI 
I und Größe der 
Buttons beliebiol 



Dies ist ein fllert-Box, die nit den RCS 
als DlflLOG-Typ erstellt uurde. Die ln 
RCS angebotenen RLERT-Typen erlauben nur 
in sehr eingeschränkten Maßen die freie 
Bestinnung von Text und Buttons. 


I 


I 


Wenn Sie eine solche Alert-Box im RCS erstellen wollen, holen Sie ein 
Alert-Symbol ins große Fenster. Nachdem Sie es durch Doppelklick 
geöffnet haben, finden Sie schon eine Alert-Box vorbereitet. 


Um ein ALERT-Symbol (Ausrufungszeichen, Stop-Schild, Fragezei¬ 
chen) in einen DIALOG-Baum zu transportieren, wählen Sie aus der 
Alert-Part-Box das gewünschte Symbol, holen es in das Mutterobjekt 
und schieben es dann auf das Clipboard. Nun können Sie die Alert- 
Box schließen und in den Mülleimer werfen. Nachdem Sie ein DIA- 
LOG-Symbol geöffnet haben, holen Sie das ALERT-Symbol vom 
"Klemmbrett" und plazieren es im DIALOG-Mutterobjekt. Wie Sie an 
der untenstehenden Grafik sehen, läßt sich das auch mit mehreren 
Symbolen machen. Da jedoch das Klemmbrett immer nur ein Objekt 
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aufbewahrt, müssen Sie dazu mehrmals zwischen der ALERT- und 
der DIALOG-Box hin- und herwechseln. 

Nun plazieren Sie in der DIALOG-Box alle Objekte, die Sie für nötig 
halten. Dabei wird den Objekten der Objekt-Index in der gleichen 
Reihenfolge zugeteilt, in der Sie die Objekte in das Formular ein¬ 
bauen. Durch die Sort Children-Option können Sie diese Reihenfolge 
ordnen. 


Ich habe diesen Vorgang für Sie einmal durchgespielt und eine ziem¬ 
lich freie Alert-Box erstellt. Wie Sie sehen, ist in einer Dialog-Alert- 
Box keine Begrenzung des Textes, der Button-Länge oder der Objek¬ 
tanzahl vorgegeben. Die Verwaltung einer solchen Box ist nun in 
GFA-V3.0 denkbar einfach. 


LET alert&=0 t RSC_TREE (Objektbaum) 
LET button1&=7 ! Objekt in Baum 0 
LET button2&=9 I Objekt in Baun 0 
LET button3&=12 I Objekt in Baun 0 
LET clefauU&=1S ! Objekt in Baun 0 


I Dies sind die Objekt- 
Indizes, die Ihnen 
I das RCS liefert. 


Ich habe hier die Indizes der Nicht-SELECTABLE-Objekte 
(Strings, Balken und Images) herausgenommen, weil uns hier 
nur die Objekte interessieren, durch die das Formular 
verlassen werden kann. Es ist natürlich auch denkbar, daB 
die Objekte die Eigenschaft SELECTABLE bekommen, 
aber nicht dazu verwendet werden, das Formular zu verlassen. Sie 
dürfen dann nicht die TOUCHEXIT-, EXIT-, oder DEFAULT- 
Eigenschaft haben. 

Ob solche Objekte vor Formular-Exit angewählt (invertiert) wurden, 
läBt sich dann anschließend feststellen, indem man das 
SELECTED-Bit in ihrem oe_STATE() abfragt. 

Am Rande bemerkt; es ist pro Formular 
(logischerweise) nur ein DEFAULT-Objekt möglich. 


RESERVE FRE(0)-10000 I Speicher für Resource freimachen 

okayX=RSRC_LOAD(“alert.rsc") I Resource laden 

IF okayX I Ladevorgang ohne Fehler? 

''RSRC_GAODR(0,0,baunX) I Baun-Startadresse holen 

"FORM CENTER(baumft,xlX,ylX,brX,hoX) I Koordinaten zentrieren 
~0eJC~DRAU(baumX,0,1,xlX,ylX,brX,hoX) I Baum zeichnen 
exitX=FORM_DO(bautÄ,0) I Formular bedienen 

IF exitX=15 I DEFAULT-Button gewählt 

PRINT "DEFAULT-Button gewähltl" 

ELSE I Anderer Button 


PRINT "Index des gewählten Buttons: ";exitX 
ENDIF 

~RSRC FREEO I Resource löschen 

ELSE 

ALERT 1,"'ALERT.RSC* nicht gefunden I", 1,"Return",bX 
ENDIF 

RESERVE FRE(0)+10000 I Speicher restaurieren 
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Es ist übrigens sehr wichtig, darauf zu achten, daß mindestens ein 
EXIT-Objekt im Formular enthalten ist, da Sie sonst Ihren ST neu 
starten müssen. Ein GEM-Formular kann auch durch <Control>- 
<Shift><Alternate> nicht verlassen werden! 

Bezüglich der im RCS verwendeten freien Icons und Images gibt es 
ein Problem. Haben Sie im RCS ein Image-(BITBLK)- oder Icon- 
(ICNBLK)-Objekt aktiviert, kann über die Load-Option im Options- 
Menü ein Image oder Icon von der Diskette (Extension: .ICN) geladen 
werden. Dies ist eine sehr nützliche Option, wenn man weiß, in wel¬ 
chem Format die Bilder erwartet werden. Ich habe (nicht übertrieben!) 
einen ganzen Tag damit verbracht, alle möglichen Icon-Formate zu¬ 
sammenzubasteln und sie dem RCS anzubieten. Der einzige Effekt des 
ganzen Aufwands war, daß das Programm jedesmal in aller Seelenruhe 
abstürzte. Am nächsten Tag war ich dann ca. 8 Stunden damit be¬ 
schäftigt, halb Deutschland anzurufen (ca. 20 - zum Teil hochkarätige 
- ST-Kenner). Aber es wußte einfach keiner, wie das gemacht wird. 
Die einzige Auskunft, die ich erhielt, bestand darin, doch einfach das 
Image/Icon mit einem Icon-Editor zu produzieren, es von diesem ab¬ 
speichern zu lassen und dann zu laden. Schön und gut - nur was tue 
ich, wenn ich gerade keinen Icon-Editor habe, der das vom RCS ge¬ 
wünschte Format erzeugt? 

Ich weiß es bis heute nicht! Als ein Ausweg aus diesem Problem bleibt 
der Weg über einen RCS-kompatiblen Icon-Editor. Einen solchen fin¬ 
den Sie z.B. im Entwicklungspaket von Digital Research. Eine weitere 
Möglichkeit ist, mit dem RCS ein Mutterobjekt zu erzeugen, ein 
Image hineinzupacken, diesen Baum abzuspeichern und anschließend 
das Dummy-Image gegen das eigene per BASIC auszutauschen (z.B. 
durch eine DATA/READ-Schleife die Bit-Muster hineinpoken). Wer 
zufällig das MEGAMAX-RCP (Resource-Construction-Programm) zur 
Hand hat, kann sich bei ICNBLK-Icons diese Arbeit erleichtern, in¬ 
dem er ein Icon mit dem dort integrierten Icon-Editor bearbeitet, es 
in ein Mutter-Objekt packt und das Ganze als alleinstehendes RSC- 
File abspeichert. 

Ein so erzeugtes .RSC-File können Sie nun in das RCS "mergen". öff¬ 
nen Sie den Baum und legen Sie das Icon auf dem Klemmbrett ab. 
Den nun überflüssigen Icon-Mutterbaum können Sie jetzt löschen und 
das Icon vom Klemmbrett in einen beliebigen anderen Baum einfügen. 

Ich hoffe, daß Ihnen diese Kurz-Einführung in die Arbeit mit dem 
Resource-Construction-Set am Anfang den Umgang mit den vielfälti¬ 
gen Optionen etwas erleichtern wird. Mit einiger Übung und den In- 
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Formationen zur Verwaltung einer GEM-Resource im nächsten Kapitel 
sind Sie dann in der glücklichen Lage, sich die Programmierung kom¬ 
plexer Abfrage- und Auswahl-Strukturen durch GEM-Menüs und - 
Dialogboxen wesentlich zu erleichtern. 


18.2 Vorbemerkungen zu den AES-Funktionen 

Da es sich bei der AES-Library ca. 70 teilweise sehr komplexe Funk¬ 
tionen handelt, hätte es den Rahmen des Buches gesprengt, hier eine 
komplette V2.xx-AES-Library mit allen dazugehörigen GCON- 
TRL/GINTIN/ADDRIN-Belegungen und den entsprechenden GEM- 
SYS-Aufrufen vorzustellen. Ich bin der Meinung, daß dazu auch zwi¬ 
schenzeitlich schon soviel qualifizierte und ausführliche Lektüre er¬ 
schienen ist (auch fertige V2.xx-Libraries), daß hier mit einer noch¬ 
maligen Behandlung des Themas des Guten zu viel getan wäre. 

Die Form der V3.0-Funktionsaufrufe ist der in C üblichen Art und 
Weise angepaßt. "Überläufer" von C zu BASIC werden sich aufgrund 
dieser Tatsache recht schnell mit diesen Funktionen zurechtfinden. 

Bei den nun folgenden Funktionsbeschreibungen sind bei der Angabe 
der Aufruf-Syntax drei Besonderheiten zu beachten. Die erste ist die, 
daß als Syntaxform grundsätzlich nur die Form der Zuweisung ver¬ 
wendet wurde, obwohl Funktionen auch durch VOID, durch Direkt¬ 
einbindung (z.B. A$="***"+STR$(APPL_INIT())+"***") oder in Print- 
Befehlen aufrufbar sind (z.B. PRINT "Rückgabe: ";APPL_INIT()). 

Die zweite Besonderheit ist, daß Rückgabeparameter (ggfs, auch op¬ 
tional), welche die AES-Rückgabewerte intern aus GINTOUT und 
ADDROUT aufzunehmen haben, hier durch einen rückwärtsweisenden 
Doppelpfeil vor dem Variablennamen gekennzeichnet sind (z.B. 
«Backl,«Back2,...). Das geschieht, um Mißverständnisse bei der Er¬ 
gebnisauswertung zu vermeiden. Diese Doppelpfeile haben in der re¬ 
gulären BASIC-Syntax nichts zu suchen. 

Als dritte Besonderheit ist zu erwähnen, daß die Syntax vieler dieser 
Funktionen nicht in einer einzelnen Druckzeile unterzubringen sind. In 
diesen Fällen wird die Zeilentrennung - wie im übrigen Buch auch - 
durch je drei Punkte (...) kenntlich gemacht. Ebenso wie die erwähn¬ 
ten Doppelpfeile dürfen auch diese Punkte in der BASIC-Syntax nicht 
verwendet werden. 
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Bei den Funktions-Parametern, in denen Adressen zu übergeben sind, 
bzw. in den Adressen zurückgegegben werden, ist zu beachten, daß 
dazu grundsätzlich 4-Byte-Integervariablen, sowie bei Koordinaten- 
und übrigen Werteparametern mindestens 2-Byte-Integervariablen 
verwendet werden. 

Außerdem wird im folgenden häufig der Begriff "Baum" verwendet. 
Dieser Ausdruck ist als Synonym für die Gesamtliste aller zu einem 
Formular (Objektbaum/Menübaum) gehöriger Objekte zu verstehen. 
Seine Startadresse ist die Adresse des ersten (Wurzel-)Objektes dieser 
Liste. 

Beispiele zu den einzelnen Funktionen finden Sie ggfs, in Kurzform 
unter der jeweiligen Funktionsbeschreibung. Zwei größere Beispiele 
zur Dialogbox-Verwaltung sowie zum Menü-Handling finden Sie am 
Ende der AES-Library. 


18.3 Application-Manager 


ÄPPL_EXITO GEM-Applikation abmeiden 

Back=APPL_EXITO 

Meldet das auslösende Programm beim AES ab und gibt die ihm zuge¬ 
ordnete Identifikationskennziffer (ap_id) wieder frei (in GFA unnö¬ 
tig, siehe unter APPL_INIT()). 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 


APPLFINDO Applikations-Identifikator ermitteln 

Back=APPL_FIND(Programmname) 

GEM ist in der Lage, mehrere Programme parallel im Speicher zu 
"fahren". Diese Funktion ermittelt die Applikationskennziffer (ap_id) 
einer bestimmten Parallel-Applikation. 

Back; 

-1 Angegebenes Programm im Speicher nicht gefunden. 

<> -1 Im Erfolgsfall Kennsiffer (ap_id) der gefundenen Applikation. 
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Programmname: 

8 Zeichen langer Programmname der gesuchten Applikation, ohne 
Extension. sind unbedingt 8 Zeichen ansugeben. Wenn nötig, ist der 
Name mit Leerzeichen auf 8 Zeichen su erweitern. Bei mehr als 8 
Zeichen besteht Abstungefahr (fatal). 


APPLJNITO GEM-Applikation annieidon 


Back=APPLJNITO 

Eigentlich Dummy-Aufruf der Funktion. Die Funktion wird tatsäch¬ 
lich nicht ausgeführt, da der Interpreter und Compilate dies bei Start 
automatisch tun. Es wird lediglich die bei GFA-Start erhaltene Iden¬ 
tifikationsnummer (ap_id -> GFA-Handle) in Back zurückgegeben. 
Dieses Handle wird bei verschiedenen anderen AES-Funktionen benö¬ 
tigt. 


APPL_READO Aus EreignUpuffer lesen 

Back=APPL_READ(Handle,Länge, Adresse) 

Liest eine vorgegebene Anzahl Bytes aus einem bestimmten AES- 
Message-Buffer. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Handle Handle (ap_id) der ParalleNApplikation, deren Puffer ausgelesen wer¬ 

den soll. 

Länge Anzahl Bytes, die gelesen werden sollen. 

Adresse Adresse eines Puffers, in dem die gelesenen Bytes abgelegt werden sol¬ 
len (minimale Puffergröäe = Länge). 


APPL^PLAYO Wiedergabe gespeicherter Ereignisse 

Back=APPL_TPLAY(Adresse, Anzahl,Tempo) 

- Nur mit Blitter-TOS einsetzbar! - 

Spielt das mit APPL_TRECORD aufgenommene Software-Band ab. 
Wiederholt also alle dort gespeicherten Ereignisse. 


Back Ohne Bedeutung (immer 1). 

Adress« Startadresse des Speicherbereichs, in dem die Ereignisfolge von 
APPL_TRECORD gespeichert wurde. 

Anzahl Anzahl der wiederzugebenden Ereignisse. 

Tempo Legt die Ablaufgeschwindigkeit der Wiedergabe fest: 

60 = halbe ; 100 = normale ; 200 = doppelte Geschw. 
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Diese Funktion wurde von Digital Research fehlerhaft implementiert 
und ist daher kaum brauchbar. Die Ergebnisse entsprechen nicht der 
GEM-Dokumentation. 


APPLTRECORDO Ereignisse speichern 

Back=APPL_TRECORD(Adres8e,Anzahl) 

- Nur mit Blitter-TOS einsetzbar! - 

Veranlaßt das "Mitlaufen" eines Software-Bandes. Speichert also eine 
bestimmte Anzahl an Benutzer-Ereignissen (Tastendruck, Timer, 
Mausknopfbetätigung und Mausbewegung) in einem Ereignis-Puffer. 


Back 

Adresu 

Ancahl 


Byte 1 
Byte 2 


Byte 3-6 

Byte 3 
Byte 4 
Byte 6 
Byte 6 


Byte 3-4 
Byte 5-6 

Byte 3 
Byte 4 


Byte 5 
Byte 6 


Anaahl der tatsKchlich geapeicherten Ereigniaae. 

Startadrease einer Speicherbereichs, in dem die Ereigniafolge gespei¬ 
chert werden soll. PuffergröBe: 6 * Anaahl. 

Gewünschte Ereignisanaahl, die "mitgeschnitten" werden soll. Für jedes 
gespeicherte Ereignis werden 6 Byte Speicherplata benötigt. 

- <- |Byte IjByte 2|Byte 3|Byte 4|Byte 5|Byte 6| -> + 

Immer 0. 

Ereignis-Flag (Art des stattgefundenen Ereignisses): 

0 = Timer-Ereignis 1 = Maustasten-Ereignis 
2 = Maus-Ereignis 3 = Tastatur-Ereignis 
Wenn Byte 2 = 0 (Timer): 

Verstrichene Zeit in Millisekunden 
Wenn Byte 2 = 1 (Maustaste): 

0 

Anaahl der getStigten Klicks 
0 

Maustastenstatus 

0 = Taste nicht gedrückt 1 = Taste gedrückt 
Wenn Byte 2 = 2 (Mausbewegung): 

Maus-X-Koordinate sum Zeitpunkt des Ereignisses. 
Maus-Y-Koordinate aum Zeitpunkt des Ereignisses. 

Wenn Byte 2 = 3 (Tastatur): 

0 

Umschalt asten - St at US: 

Bit 0 = Shift rechts Bit 1 = Shift links 
Bit 2 = Control Bit 3 = Alternate 

0 

ASCII-Code der gedrückten Taste 


Diese Funktion wurde von Digital Research fehlerhaft implementiert 
und ist daher kaum brauchbar. Die Ergebnisse entsprechen nicht der 
GEM-Dokumentation. 
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APPL WRITEO In Ereignispuffer schreib^ü 

Back=APPL_WRITE(Handie,Länge, Adresse) 

Schreibt eine vorgegebene Anzahl Bytes in einen bestimmten AES- 
Message-Buffer. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Handle Handle (ap_id) der Parallel-Applikation) in deren Puffer geschrieben 
werden soll. 

Länge Ansahl Bytes, die geschrieben werden sollen. 

Adresse Adresse eines Puffers, in dem die bu schreibenden Bytes liegen. 


18.4 Event-Manager 


EVNT BUTTONO Auf Maustasten-Ereignis vriirieii 


Back=EVNT_BUTTON(Klicks,Taste,Status... 

...[,< <Mau8x,< <Mausy,< <Mausk,< < Switch]) 

Stoppt den Programmlauf und wartet auf Betätigung einer Maustaste 
(vgl. ON MENU BUTTON..GOSUB). 

Back Aniahl der tatsächlich ausgefUhrten Maustastenklicks. 

Klicks Ansahl der gewünschten Maustastenklicks. 

Taste Gewünschte Maustaste, die das Ereignis auslösen soll: 

1 = Linke ; 2 = Rechte ; 3 = Beide Maustasten 
Status Status von Taste: 

0 = Ereignis gilt sofort als ausgelöst. 

1 = Ereignis ausgelöst, wenn linke Taste gedrückt. 

2 = Ereignis ausgelöst, wenn rechte Taste gedrückt. 

3 = Ereignis ausgelöst, wenn beide Tasten gedrückt. 

« Optional anzugebende Rückgabe-Variablen: 

MauBX Rückgabe der MauB'X>Koordinate bei Ereignis. 

Mausy Rückgabe der Maus-Y-Koordinate bei Ereignis. 

Mausk Rückgabe des Maustasten-Status bei Ereignis (siehe Taste). 

Switch Rückgabe des Umschalttasten-Status bei Ereignis: 

0 = Keine Taste gedrückt 
1 = Shift rechts 2 = Shift links 

4 = Control 8 = Alternate 

(b.B. 12 = <Control>+<Altemat€>, 3 = Beide Shift-Tasten) 
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EVNTDCLICKO Doppelklick-Geschwindigkeit einstellen 
Back=EVNT_DCLICK(Dklick,Modus) 

Bestimmt oder ermittelt einen Zeitwert, der vom GEM bei Mausklicks 
gewartet wird. Wird innerhalb dieser Spanne eine Maustaste zweimal 
gedrückt, wird dies als Doppelklick angenommen. Diese Routine ver¬ 
zögert bzw. beschleunigt auch die Arbeitsgeschwindigkeit bei Ein¬ 
fachklicks, da dem Benutzer jeweils die eingestellten Spanne zum evtl, 
zweiten Drücken der Maustaste Zeit gelassen wird. 

Back Alte Klick-Zeitspanne (0 = langsam ... 4 = schnell). 

Dklick Wenn Modus = 1, dann neuer Zeitwert (siehe Back). Bei Modus = 0 
bleibt dieser Parameter unberücksichtigt. 

Modus Funktionsmodus: 

0 = Aktuellen Zeitwert liefern. 

1 = Den in Dklick angegebenen Zeitwert einstellen. 

EVNTKEYBDO Auf Tastatur-Ereignis warten 

Back=EVNT_KEYBDO 

Stoppt Programmlauf und wartet auf Betätigung einer Tastaturtaste. 

Back 2-Byte-Wert: 

Lobyte = ASCII-Cod« der gedrückten Taete. 

Hibyte = Scan-Code der gedrückten Taate. 


EVNTMESÄGO Auf Eventpuffer-Ereignis warten 

Back=EVNT_MESAG(Adresse) 

Stoppt den Programmlauf und wartet darauf, daß ein Window- oder 
Menü-Ereignis im Ereignispuffer eingetragen wird. 

Back Ohne Bedeutung (immer 1). 

Adresse Startadresse eines 16 Byte (bsw. 8 Word) groBen Puffers, der für diese 
Funktion als Ereignispuffer angesehen wird. 


Vorsicht: Ist kein Menü oder Window installiert, das ein Ereignis aus- 
lösen könnte, wartet die Funktion unendlich. 

GFA installiert grundsätzlich einen Ereignispuffer, der durch einen 
ON MENU-Aufruf über Interrupt aktualisiert wird. Dieser GFA- 
Puffer wird durch MENU(l) bis MENU(8) (8 Words) repräsentiert. 
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Die Einträge im EVNT_MESAG-Puffer entsprechen den Einträgen 
im MENU()-Feld. 


EVNTMOUSEO Auf Mauspositions-Ereignis warten 

Back=EVNT_MOUSE(Flag,Xpos,Ypos,BreHe,Höhe... 

...[,< <Mausx,< <Mausy,< <Mausk,< <Switch]) 

Stoppt den Programmlauf und wartet darauf, daß der Mauszeiger ein 
bestimmtes Bildschirm-Rechteck betritt oder verläßt (vgl. ON MENU 
IBOX/OBOX GOSUB). 

Back Ohne Bedeutung (immer 1). 

Flag Gewünschter Modus, der das Ereignis auslösen soll: 

0 = Betreten 1 = Verlassen des Rechtecks. 

Xpos X-Koordinate der linken oberen Ecke des Rechtecks. 

Ypos Y-Koordinate der linken oberen Ecke des Rechtecks. 

Breite Breite des Rechtecks in Pixein. 

Höhe Höhe des Rechtecks in Pixeln. 

« Die optional anzugebenden Rückgabe-Variablen Mausx, Mausy, 
Mausk und Switch haben die gleiche Bedeutung wie bei 
EVNT BUTTON. 


EyNT_MULTIO Auf Mehrfach-Ereignis warten 

Back=EVNT_MULTI(Modus,Klicks,Taste,Status,Bflag 1 ,Xpos1 ,Ypos1,... 

...Breite1,Höhe1,Bflag2,Xpos2,Ypos2,Breite2,Höhe2,... 
...Adresse,ZeH [,< < Mausx, < < Mausy, < < Mausk, < <Switch, < < Bklicks]) 

Stoppt den Programmlauf und wartet auf das Eintreten eines oder 
mehrerer verschiedener Ereignisse. Diese Funktion stellt eine Zusam¬ 
menfassung der vorher beschriebenen EVNT_Funktionen dar. 

Im Gegensatz zu EVNT_MOUSE können hier zwei Rechtecke 
gleichzeitig überwacht werden. Diese Funktion ist vergleichbar mit 
dem BASIC-Befehl ON MENU, der jedoch nicht auf ein Ereignis 
wartet, sondern das Warten nach (sehr) kurzer Zeit abbricht und ins 
BASIC zurückkehrt. 


Back Tatsächlich stattgefundenes Ereignis (6-Bit-Vektor): 

Bit 0 = an -> Tastatur-Ereignis (EVNT_KEYBD) 

Bit 1 = an -> Mausknopf-Ereignis (EVNT_BUTTON) 

Bit 2 = an -> Maus-Ereignis/Box 1 (EVNT_MOUSE) 
Bit 3 = an -> Maus-Ereignis/Box 2 (EVNT_MOtJSE) 
Bit 4 = an -> Event-Puffer-Ereignis (EVNT_MESAG) 
Bit 0 = an -> Timer-Ereignis (EVNT_TIMER) 
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Modul Gibt all 6-Bit-Vektor an, auf welch« Ereignii gewartet werden loll. 

Bit-Bedeutung wie bei Back 
Klicke Siehe EVNT BUTTON. 

Taate Siehe EVNT BUTTON. 

Statue Siehe EVNT_BUTTON. 

Bflagl, Xpoel, Ypoal, Breitel, Höhel liehe EVNT_MOUSE. 

BflagZ, Xpoa2, YpoaZ, BreiteZ, H»he2 liehe EVNT_MOUSE. 

Adreiie Siehe EVNT_MESAG. 

Zeit Siehe EVNT_Ta*ER. 

« Die optional anzugebenden Rückgabe-Variablen Mausx, Mausy, 
Mausk und Switch haben dieselbe Bedeutung wie bei 
EVNT_BUTTON. Die optionale Rückgabe-Variable Bklicks 
liefert die Anzahl der tatsächlich ausgeführten Maustastenbetäti¬ 
gungen. 


EVNT TIMERO Auf Zeit-Ereignis Warten 

Back=EVNT_TIMER(Zeit) 

Stoppt den Programmlauf und wartet, bis eine bestimmte Zeit ver¬ 
strichen ist (siehe auch DELAY und PAUSE). 

Back Ohne Bedeutung (immer 1). 

Zeit Zu wartende Zeitspanne in 1/1000 Sekunden. 


18.5 Formuiar-Manager 


FÖRM^ALERTO Hinweis-Formuiar (Alert-Box) erzeugen 

Back=FORM_ALERT(BiJtton,Text$) 

Es wird eine Alert-Box erzeugt (vgl. ALERT). 

Back Nummer des angeklickten Auswahl-Buttons. 

Button Nummer des Buttons (0-3), der auch durch <Retum> gewählt wer¬ 
den kann (dick umrandet -> Default). 

Text$ Format-String, der den Inhalt der Alert-Box darstellt: 
[Icon][ZeiIel|ZeiIe2|...][Buttonl|Button2|...] 

Die einseinen Komponenten sind in eckige Klammem einsufassen. 

Icon; Graflksymbol, das in der linken oberen Ecke der Box angeseigt 
werden soll: 

0 = Kein Icon 1 = Auirufeseichen 
2 = Frageseichen 3 = Stopseichen 

Zeile; Maximal 6 Textseilen mit maximal je 30 Zeichen. Die Zeilen sind 
voneinander durch | (Pipe) su trennen (vgl. ALERT). 
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Button: Maximal 3 Button-Zeilen mit maximal je 10 Zeichen. Die 
Buttons sind voneinander durch | (Pipe) su trennen (vgl. ALERT). 


Textbeispiel: 

Text*="[1][Dies istjein Alert-Box-jBeipielI][ Na jtoll)" 


FÖfiMBUTTONO MausBberwachung im Formular 

Back=FORM_BUTTON(Adresse,Objekt,Klickt, < < N_obJc) 

- Von FORM_DO verwendete Unterroutine! - 

Behandelt formularbezogene Mauseingaben. Siehe Erläuterung zu 
FORM_KEYBD. 

Back 0 = Exit-Objekt (EXIT bsw. TOUCHEXIT) wurde gewählt. 

> 0 = Formular'Dialog ist noch nicht beendet. 

Adresse Adresse des bearbeiteten Objektbaumes (Formulars). 

Objektl Nummer des aktuellen Formular-Objektes. 

Klicks Anaahl der Maustasten-Klicks. 

N_objc RUckgabevariable, die nach Abschluß die Nummer des für den nächsten 
Aufruf aktualisierten Formular-Objektes enthält. 


FORMCENTERO Formularkoordinaten zentrieren 

Back=FORM_CENTER(Adre8se,< <Xpo8,< <Ypo8,< < Breite, << Höhe) 

Berechnet die Koordinaten eines Formulars so, daß es durch 
OBJC_DRAW in Bildschirmmitte dargestellt werden kann. 

Back Ohne Bedeutung (immer 1). 

Adresse Adresse des Objektbaumes, dessen sentrierte Position berechnet werden 
soll. 


« Die Rückgabe-Variablen Xpos, Ypos, Breite und Höhe enthalten 
die zentrierten X- und Y-Koordinaten, sowie Breite und Höhe 
des berechneten Formulars. 


FORM DIALQ Formular-Hintergrund puffern/restäUrieren 

Back=FORM_DIAL(Modu8,Litx,Lity,Litb,LHh,Bigx,Bigy,Bigb,Bigh) 

Der Zweck dieser Funktion besteht im Wesentlichen darin, den Bild¬ 
schirmhintergrund bei Aufruf eines Formulars zu reservieren und bei 
Verlassen des Formulars wieder zu restaurieren. Dabei ist bei geöff- 
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neten Windows der Programmierer für die Restauration der Fensterin¬ 
halte selbst verantwortlich (Redraw). Von FORM_DIAL werden nur 
die Randbereiche der überlagerten Windows neu gezeichnet. Die Fen¬ 
sterinhalte bleiben von den Formular-"Resten" belegt. Bereiche außer¬ 
halb von Windows werden mit dem Füllmuster des Desktop-Hinter- 
grunds (DEFFILL 1,2,4) gefüllt. 

Als Effekt kann mit den Formularkoordinaten auch eine GROWBOX 
oder SHRINKBOX erzeugt werden. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

Modus Funktionsmodus: 

0 = Bildschirmrechteck Bigx.BisXiBigbpBigh speichern. 

1 = GROWBOX produEieren (vgl. GRAF_GROWBOX). 

2 - SHRINKBOX produBieren (vgl. GRAr_SHRINKBOX). 

3 = Bildschirmrechteck Bigx,Bigy,Bigb,Bigh restaurieren. 

Litx, Lity, Litb, Lith: 

Koordinaten und Maße des kleineren Rechtecks bei Modus 1 oder 2. 
Werden hier die Parameter Litb und Lith mit 0 belegt, wird der 
Eindruck erseugt, daß das Zentrum des größeren Rechtecks die 
Startkoordinate des kleineren Rechtecks ist. Bei Modus 0 oder S werden 
alle vier Parameter ignoriert. 

Bigx, Bigy, Bigb, Bigh: 

Koordinaten und Maße des größeren Rechtecks bei Modus 1 oder 2 
bsw. Koordinaten und Maße des Hintergrunds bei Modus 0 oder 3. Im 
letEteren Fall können hier die RUckgabewerte von FORM_CENTER als 
Koordinaten und Maße eingesetst werden. 


FORM DOO GEM Übernimmt Formular-Verwaltung 

Back=F0RM_D0(Adre8se,0bjel(t1) 

Das GEM verwaltet bei Einsatz dieser Funktion eine komplette For¬ 
mularbedienung selbstständig. Die Bediener-Überwachung wird been¬ 
det, wenn ein Objekt vom Typ Exit oder Touchexit angeklickt wurde. 

Vorsicht: Ist kein solches Objekt im Formular enthalten, gibt es keine 
Möglichkeit, zum BASIC zurückzukehren, da die gesamte Bediener¬ 
überwachung sich ausschließlich auf das Formular beschränkt. Es sind 
weder die GFA-Abbruchfunktion <Control/Shift/Alternate>, noch 
eventuelle Pull-Down-Menüs im Hintergrund verfügbar. 

Bsck Nummer (Index) des Exit-Objektes, das als Formular-Ausgang an¬ 

geklickt wurde. Wurde dazu ein Doppelklick (siehe EVNT_DCLICK) 
verwendet, ist das Bit 15 gesetst (IF Back AND 2*15). 

Adresse Adresse des Objektbaumes, der dargestellt werden soll. 

Objektl Nummer des ersten editierbaren Textobjektes des Formulars, auf wel¬ 
ches der Text-Cursor gesetst werden soll. Ist kein solches Objekt vor¬ 
handen, ist hier 0 ansugeben. 
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FORMERRORO Hinweis-Formular (TOS-Error) erzeugen 

Back=FORM_ERROR(Code) 

Erzeugt eine Error-Alert-Box mit dem Format 

[3] [TOS Fehler #] [Abbruch] 

Back Ohne Bedeutung (immer 0). 

Code AnButeigender Fehler-Code. 


röRMKEYBDO Formular-Texteingabe 

Back=FORM KEYBD(Adresse,Objekt1,Objekt2,Char$, < < N_obic, < < N_c 
har$) 

- Von FORM_DO verwendete Unterroutine! - 

Behandelt Texteingaben über Tastatur bei editierbaren Text-Objekten 
(siehe OBJC_EDIT). Zur eigenen Verwendung ist diese Funktion nur 
bedingt nutzbar, da eine eigene Formular-Verwaltung nach Aufruf 
von OBJC_DRAW unverhältnismäßig aufwendig ist (umfangreiche 
Abfrageschleife). 

Back 0 = Exit-Objekt (EXIT baw. TOUCHEXIT) wurde gew&hlt. 

> 0 = Formular-Dialog ist noch nicht beendet. 

Adresse Adresse des bearbeiteten Objektbaumes (Formulars). 

Objektl Nummer des aktuell editierten Text-Objektes. 

Objekt2 Nummer des nftchsten editierbaren Text-Objektes. 

Charl ASCII-Zeichen, das von der Tastatur gelesen wurde. 

N^objc Rückgabevariable, die nach Abschluß die Nummer des für den n&chsten 
Aufruf aktualisierten Textobjektes enthält. 

N_char| String-Rückgabevariable, die nach Abschluß das nächste Zeichen des 
Text-Objektes enthält. Wurde eine Sondertaste (s.B. Cursor-Taste) 
gewählt, enthält N_char$ den Wert 0. 


18.6 Fileselect-Manager 


FSEL INPUTO Fileselect-Box produzieren 

B«ck=FSELJNPUT(< <Pfad$> >,< <Datei$> >,< <Birtton) 

Erstellt eine Fileselect-Box (vgl. FILESELECT) und übernimmt die 
Benutzerkontrolle während der Dateiauswahl. Aus Gründen der Bedie¬ 
nungssicherheit ist FILESELECT vorzuziehen, da bei (versehentlich) 
unkorrekten String-(Puffer-)angaben die GEM-Verwaltung von File- 
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select-Boxen unwiderruflich ins Schleudern geraten kann und eine 
fehlerfreie Dateiauswahl mit diesem Formular fraglich wird. 

Von der Funktion wird automatisch FORM_DIAL(0) und 
FORM_DIAL(3) ausgeführt. Betreffend der Hintergrund-Restauration 
gelten hier dieselben Ausführungen wie zu FORM_DIAL. 

Back 0 = Fehler; <> 0 = Funktion korrekt autgefUhrt. 

Pfadl Vorbereitete String-Rückgabevariable. Enthält bei Funktionsaufruf die 
komplette Beseichnung des gewünschten Zugriffspfads (minimal 
Nach Funktionsende ist hier der vom Benutser tatsächlich ge¬ 
wählte Pfadname eingetragen. 

Dateil Vorbereitete String-Rückgabevariable. Enthält bei Funktionsaufruf 
ggfs, den Namen einer vorgegebenen Datei, der im Formular unter 
"Auswahl:” in die Eingabeaeile eingetragen wird (minimal ”"). Nach 
Funktionsende ist hier der vom Benutier tatsächlich gewählte 
Dateiname eingetragen. 

Button Rückgabe-Variable (vom Benutser gewähltes Exit-Objekt): 

0 = ABBRUCH wurde angeklickt. 

1 = OK wurde angeklickt, bsw. <Retum> wurde gedrückt, bsw. ein 
Dateiname im Auswahlfenster wurde durch Doppelklick gewählt. 


18.7 Graphics-Manager 

GRAFDRAGBOXO Schiebebox produzieren 

Back=GRAF_DRAGBOX(Lnb,Lnh,Xsta,Ysta,Xpos,Ypos,Brette,Höhe,... 

...< <La8tx,< <Lasty) 

Erzeugt eine Schiebebox mit vorgegebener Größe innerhalb eines be¬ 
stimmten Begrenzungsrechtecks. Die kleinere Box folgt bei gedrückt 
gehaltener linker Maustaste dem Mauszeiger. Sie läßt sich dabei jedoch 
nicht über die vorgegebenen Grenzen des umgebenden Rahmens - der 
von der Funktion nicht gezeichnet wird - hinausbewegen. 

Wird die linke Maustaste losgelassen, gilt die Funktion damit als been¬ 
det. Daraus folgt, daß die Funktion nur bei gedrückt gehaltener linker 
Maustaste aufgerufen werden kann. Als Rückgabeparameter erhält 
man nach Abschluß die absolute X- und Y-Koordinate der linken 
oberen Ecke der kleinen Box zum Zeitpunkt des Loslassens der 
Maustaste. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

Litb Gewünschte Breite der beweglichen Schiebebox. 

Lith Gewünschte Höhe der beweglichen Schiebebox. 

Xsta X-Startkoordinate der linken oberen E^ke der beweglichen Box. 


AES-Bibliothek 


559 


Ysta Y-Startkoordinate der linken oberen EIcke der beweglichen Box. 

Xpoe X-Koordinate der linken oberen Ecke der Rahmenbox. 

Ypoa Y-Koordinate der linken oberen EIcke der Rahmenbox. 

Breite Unveränderliche Breite der Rahmenbox. 

Höhe Unveränderliche Höhe der Rahmenbox. 

Lastx RUckgabevariable (Schiebebox-X-Koordinate bei Funktionsende). 

Laaty RUckgabevariable (Schiebebox-Y-Koordinate bei Funktionaende). 

Beispiel; 

DO 

REPEAT 

UNTIL MOUSEK 
SETHOUSE 50,50 

■GRAF_DRAGBOX(50,30,50,50,40,40,200,200,xbX,ybX) 

BOX xbX,ybX,xbX+50,ybX+30 
LOOP 


GRÄFGROWBOXO Box-Vergrfißerungseffekt produzieren 

Back=GRAF_GROWBOX(LHx,Lity,Utb,Uth,Bigx,Bigy,Bigb,Bigh) 

- Von FORM_DIAL verwendete Unterroutine! - 

Erzeugt einen Bewegungseffekt. Eine Box mit vorgegebener Startgröße 
bewegt sich dabei von einer Bildschirmposition zu einer anderen 
Bildschirmposition mit einer vorgegebenen größeren Endgröße. Der 
Bildschirminhalt wird dadurch nicht beeinflußt. 


Back 0 = Fehler; <> 0 = Funktion korrekt auagefUhrt. 

Litx, Lity, Litb, Lith; 

Koordinaten und Maße dea kleineren (Start-)Rechtecka. Werden die 
Parameter Litb und Lith mit 0 belegt, wird der Eindruck erseugt, daB 
daa Zentrum dea größeren (Ziel-]Rechtecka die Startkoordinate dea 
kleineren (Start-)Rechtecka iat. 

Bigx, Bigy, Bigb, Bigh: 

Koordinaten und Maße dea größeren (Ziel-)Rechtecke. 


Beispiel: 


FOR iX=1 TO 25 
DEFFILL ,2,iX 
BOUNOARY 1 

PBOX iX*10.10,iX*10+20,30 

"GRAF GROWBOX(iX*10,10,20,20,270-iX*10,150,50,50) 

• ■GRAF_SHRINKBOX(270-iX*10,150,50,50,iX*10,10,20,20) 

PBOX 270-iX*10,150,320-iX»10,200 
BOUNDARY 0 
DEFFILL ,0,0 

PBOX iX*10,10,iX*10+20,30 
NEXT iX 
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GRAFHANDLEQ VDl-Handle u. Zeichenmaße ermitteln 

Back=GRAF HANDLE(<<Ch breite, <<Ch höhe,<<Bx breite, 

< < Bx_höher ~ 

Ermittelt das VDl-Handle der aktuellen VDI-Workstation und die 
Zeichen- und Zeichenbox-Maße des aktuellen Standard-Fonts (Hires = 
8x16). 


Back Aktuellea VDI-Handle. 

Ch_breite RUckgabevariable (aktuelle Standard-Zeichenbreite). 
Ch_höhe RUckgabevariable (aktuelle Standard-Zeichenhöhe). 
Bx_breite RUckgabevariable (aktuelle Zeichenboxbreite). 
Bx_höhe RUckgabevariable (aktuelle Zeichenboxhöhe). 


GRAF_MKSTATEOUmschalttasteB- und Maus-Status ermitteln 

Back=GRAF_MKSTATE(< <Mausx,< <Mausy,< <Mausk,< <Switch) 

Ermittelt die aktuellen Mauskoordinaten, den Maustastenstatus (vgl. 
MOUSE), sowie den Status der Umschalttasten (<Shift>/<Control>/ 
<Alternate><CapsLock> siehe auch BIOS(ll)). 


Back Ohne Bedeutung (immer 1). 

« Die Rückgabe-Variablen Mausx, Mausy, Mausk und Switch haben 

dieselbe Bedeutung wie bei EVNT_BUTTON. 


GRAF_MOÜlE0 Mausform bestimmen (DEFMOUSE) 

Back=GRAF_MOUSE(Maus, Adresse) 

Diese Funktion kann komplett durch die Befehle DEFMOUSE und 
HIDEM/SHOWM ersetzt werden. Sie ermöglicht die Auswahl einer 
Mausform bzw. die Benutzerdefinition einer Mausform. Außerdem 
kann der Mauszeiger hiermit an- und ausgeschaltet werden. 

Back 0 = Fehler; <> 0 = Funktion korrekt auagefUhrt. 

Maua Mauaformindex: 

0 - 7 = Siehe DEFMOUSE Form. 

2S6 = Flag aeigt an, daB der ab Adreaae liegende Bit-Block 

mit den Format- und Muaterdaten einer aelbatdefinierten 
Mauaform inatalliert werden aoll. 

366 = Mauaaeiger aua 367 = Mauaaciger an 
Adreaae Startadreaae einea 37 Worda groBen Speicherbereicha, in dem die 
Format- und Muaterdaten der aelbatdefinierten Mauaform abgelegt aind 
(Aufbau aiehe DEFMOUSE Mauat). 
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GIAF^OVEBOXO Box-Bewegungseffekt produzieren 


Back=GRAF_MOVEBOX(Breite,Höhe,Xsta,Y8ta,Xziel,Yziel) 

Erzeugt einen Bewegungseffekt. Eine Box mit gleichbleibender Größe 
bewegt sich dabei von einer Bildschirmposition zu einer anderen 
Bildschirmposition. E>er Bildschirminhalt wird dadurch nicht beein¬ 
flußt. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

Breite Unveränderliche Breite der Box. 

Höhe Unveränderliche Höhe der Box. 

Xsta X-Startposition der linken oberen Ecke der Box. 

Ysta Y’Startposition der linken oberen Ecke der Box. 

Xaiel X -Zielposition der linken oberen Ecke der Box. 

Ysiel Y ’Zielposition der linken oberen E^ke der Box. 


Gif^F^RUBBERBOXO Gummiband-Box (Lasso) produzieren 

Back=GRAF_RUBBERBOX(Xpo8,Ypos,Bmin,Hmin,< <Lastb,< <Lasth) 

Erzeugt einen "Lasso"-Effekt. D.h. es wird die Position der linken 
oberen Ecke eines Rechtecks, sowie die kleinstmögliche Höhe und 
Breite des Lassos angegeben. Die rechte untere Ecke des Lassos folgt 
bei gedrückt gehaltener linker Maustaste den Mausbewegungen, wäh¬ 
rend die linke obere Ecke an der definierten Position stehenbleibt. 
Wird die linke Maustaste losgelassen, gilt die Funktion damit als been¬ 
det. Daraus folgt, daß die Funktion nur bei gedrückt gehaltener linker 
Maustaste aufgerufen werden kann. Als Rückgabeparameter erhält 
man nach Abschluß die Breite und Höhe des Rechtecks zum Zeitpunkt 
des Loslassens der linken Maustaste. 

Back 0 = Fehler; <> 0 = Funktion korrekt auBgeführt. 

XpoB X’Koordinate der Unken oberen Ecke des Lassoe. 

Ypoe Y>Koordinate der linken oberen Ecke des LasBos. 

Bmin KleinBtmögliche LasBO-Breite in Pixel. 

Hmin KleinBtmögliche Laaso-Höhe in Pixel. 

Laetb RUckgabevariable (LaaBO'Breite bei FunktionBende). 

Lasth RUckgabevariable (Laaeo^Höhe bei Funktionaende). 


GRAF^SHRINKBOXO 


Box- Verkteiheruhgseffekt produzieren 


Back=GRAF_SHRINKBOX(Utx,Uty,Ub,Lith,Bigx,Bigy,Bigb,Bigh) 

- Von FORM_DIAL verwendete Unterroutine! - 

Erzeugt einen Bewegungseffekt. Eine Box mit vorgegebener Startgröße 
bewegt sich dabei von einer Bildschirmposition zu einer anderen 
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Bildschirmposition mit einer vorgegebenen kleineren Endgröße. Der 
Bildschirminhalt wird dadurch nicht beeinflußt. 

Back 0.= Fehler; <> 0 = Funktion korrekt auegefUhrt. 

Litx, Lity, Litb, Lith: 

Koordinaten und Maße des kleineren (Ziel-)Rechtecka. Werden die 
Parameter Litb und Lith mit 0 belegt, wird derEindruck erseugt, daß 
das Zentrum des größeren (Start-)Rechtecks die Zielkoordinate des 
kleineren (Ziel-)Rechtecks ist. 

Bigx, Bigy, Bigb, Bigh: 

Koordinaten und Maße des größeren (Start-)Rechtecks. 

Siehe Beispiel zu GRAF_GROWBOX(). 


GRAFSLIDEBOXO Schiebebox Innerhalb von Formularen 

Back=GRAF_SUDEBOX(Adresse,Rahmen,Slid er,Flag) 

- Nur innerhalb von Formularen verwendbar! - 

Der Umriß eines Formular-Objekts (Slide-Box) wird innerhalb eines 
Rahmen-Objektes bei gedrückt gehaltener linker Maustaste horizontal 
oder vertikal entsprechend den Mausbewegungen verschoben. Diese 
Routine wird z.B. vom GEM dazu verwendet, um Schiebebox-Effekte 
bei den H_slide- und V_slide-Objekten im rechten und unteren 
Randbereich eines Fensters zu zu erzeugen. 

Wird die linke Maustaste losgelassen, gilt die Funktion damit als been¬ 
det. Daraus folgt, daß die Funktion nur bei gedrückt gehaltener linker 
Maustaste aufgerufen werden kann. 

Durch die Funktion wird nicht in die Objektbaumstruktur eingegrif¬ 
fen, es wird lediglich der Schiebeeffekt produziert. Das Neuzeichnen 
des bewegten Objektes an der letzten Slider-Position (Koordinatenan¬ 
passung und anschließendes OBJC_DRAW) bleibt dem Programmierer 
überlassen. Das Rahmen-Objekt, innerhalb dessen sich das Schiebe- 
Objekt bewegt, muß im betreffenden Objektbaum ein Eltern-Objekt 
des Schiebers sein. 

Back Stellung des Schiebermittelpunktes bei Loslassen der linken Maustaste 

(Funktionsende), relativ sum umgebenden Rahmen. 

0 = Slider ist gans oben bsw. gans links, 

bis 

1000 = Slider ist gana unten baw. gana rechts. 

Adresse Adresse des Objektbaumes, dem die beiden Objekte angehören. 

Rahmen Nummer des Rahmen-Objektes. 

Slider Nummer des Schieber-Objektes. 
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Flag Schieberichtung: 

0 = Horiaontal (H_alide); 1 = Vertikal (V_ilide) 


GRAF WATCHBOXO Objektstatus gemlß Mausposition 

(in/out) 

Back=GRAF_WATCHBOX(Adre8se,Objekt,Stat_i,Stat_o) 

- Nur innerhalb von Formularen verwendbar! - 

Ein Formular-Objekt wird daraufhin überwacht, ob sich der Mauszei¬ 
ger bei gedrückt gehaltener linker Maustaste innerhalb oder ausserhalb 
dieses Objektes befindet. 

Wird die linke Maustaste losgelassen, gilt die Funktion damit als been¬ 
det. Daraus folgt, daß die Funktion nur bei gedrückt gehaltener linker 
Maustaste aufgerufen werden kann. 

Back Flag, das anseigt, ob sich b«i Loslassen der linken Maustaste 

(Funktionsende) der Mausseiger innerhalb (1) oder ausserhalb (0) des 
BU überwachenden Objekts befunden hat. 

Adresse Adresse des Objektbaumes, dem das bu überwachende Objekt angehört. 

Objekt Nummer des bu überwachenden Objektes. 

Stat_i Status, den das Objekt annehmen soll, sobald der Mausaeiger bei ge¬ 
drückter Maustaste das Objekt betritt (siehe OB_STATE). 

Stat_o Status, den das Objekt annehmen soll, sobald der Mausaeiger bei ge¬ 
drückter Maustaste das Objekt verläßt (siehe OB_STATE). 


18.8 Menü-Manager 

MENUBARQ Zeichnen/Löschen einer Menüleiste 


Back=MENU_BAR(Adresse,Modus) 

Zeichnet oder löscht eine Menüleiste, die als Typ "Menü" in einem 
Objektbaum gespeichert ist. 


0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 
Adresse des gewünschten MenUbaumes. 
Funktionsmodus: 

0 = Menüleiste löschen (vgl. MENU KILL) 

1 = Menüleiste zeichnen (vgl. MENU menütext)()). 


Back 

Adresse 

Modus 
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MENUJCHECKO Menü-Checkmark zeichnen/ldschea 

Back=MENUJCHECK(Adre88e,Objekt,Modus) 

Setzt oder löscht ein Checkmark (Häkchen) vor einem Menüpunkt 
(vgl. MENU menü). Das Menü muß als Typ "Menü" in einem Objekt¬ 
baum gespeichert sein. Ggfs, ist bei der Menütext-Definition vor dem 
entsprechenden Menüpunkt Platz (zwei Leerzeichen) für das Check¬ 
mark vorzusehen. 

Burk 0 = Fehler; <> 0 = Funktion korrekt auagefUhrt. 

Adresae Adreaae dea gewUnachten MenUbaumea. 

Objekt Objektnummer der Zeile innerhalb dea Baumea. 

Modua Funktionamodua: 

0 = Checkmark löachen (vgl. MENU MenU.O). 

1 = Checkmark aetaen (vgl. MENU MenU,l). 


MENUJENABLEQ MenUeintrflge aktivieren/deaktivieren 
Back=MENUJENABLE(Adres8e,Objekt,Modus) 

Aktiviert (schwarze Schrift = wählbar) oder deaktiviert (graue Schrift 
= nicht wählbar) eine Menüzeile (vgl. MENU menü). Das Menü muß 
als Typ "Menü" in einem Objektbaum gespeichert sein. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Adresse Adresse des gewünschten MenUbaumes. 

Objekt Objektnummer der Zeile innerhalb des Baumes. 

Modus Funktionsmodus: 

0 = Zeile deaktivieren (vgl. MENU Menü,2). 

1 =: Zeile aktivieren (vgl. MENU Menü,3). 


MENUJTEXTO Menü-Text anpassen 

Back=MENU_TEXT(Adres8e,Objekt,Text$) 

Übergabe einer Menütextzeile als Ersatz einer bereits bestehenden 
Zeile. Das Menü muß als Typ "Menü" in einem Objektbaum gespei¬ 
chert sein. 

Back 0 = Fehler; <> 0 = Funktion korrekt auagefUhrt. 

Adresae Adresse des gewünschten MenUbaumes. 

Objekt Nummer d. su ändernden Zeile innerhalb des Baumes. 

Text! Neuer Menüseilentext. Die Länge des neuen Textes darf die Länge des 
alten Textes nicht überschreiten (Abstursgefahr). 
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MENUTNORMALQ MenQ-Titei invers/normal 

Back=MENU_TNORMAL(Adre8se,Objekt,Modus) 

Ermöglicht inverse oder normale (schwarz auf weiß) Darstellung einer 
Menütitelzeile. 

Das Menü muß als Typ "Menü" in einem Objektbaum gespeichert sein. 


Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Adresse Adresse des gewünschten MenUbaumes. 

Objekt Objektnummer der Titelzeile innerhalb des Baumes. 

Modus Funktionsmodus: 

0 = Zeile invers darstellen. 

1 = Zeile normal darstellen (vgl. MENU OFF). 

MENUREGISTERQ Accessory In Register eintragen 

Back=MENU_REGISTER(Handle,Text$) 

Meldet ein Accessory im Accessory-Register an und trägt den Menü¬ 
titel im Desktop-Menü ein. 


Back Index (0 - 5) des Nameneintrags im Desktop-MenU. Es sind maximal 6 

Accessories gleichzeitig einsetzbar. Ist kein MenUpIatz mehr verfügbar, 
erhält man eine *1. 

Handle AES-Handle (ap_id siehe APPL_INIT) des Accessories. 

Text! MenUseilentext des Eintrags im Desktop-Menü. 


18.9 Object-Manager 


OBJCADDO Objekt in Baum einfOgen 

Back=OBJC_ADD(Adres8e,Etter,Kind) 

Integriert ein Objekt komplett in einen bestehenden Objektbaum. Da¬ 
bei werden in GFA-BASIC im Gegensatz zur echten GEMSYS-Funk- 
tion außer OB_NEXT auch die zu erweiternden Strukturzeiger 
OB_HEAD und OB_TAIL angepaßt. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

Adresse Adresse des Objektbaumes, in den das Objekt einsuordnen ist. 

Elter Nummer des übergeordneten (Eltem-jObjektes, dem das neue (Kind-) 
Objekt untergeordnet wird. 

Kind Nummer des neu luiuordnenden (Kind-)Objektes, das dem bestehen¬ 

den (Eltem-)Objekt untersuordnen ist. 
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OBJG_GHANGEQ Objelit-Status ändern 

Back=0BJC_CHANGE(Adre88e,0bjekt,Dummy,Xpo«,Ypos,BreKe,Höhe,.. 

...Status,Modus) 

- Von FORM_DO verwendete Unterroutine! - 

Ermöglicht die Änderung des Status (OB_STATE) eines Objekts und 
ggfs. dessen Neuzeichnung innerhalb eines beliebigen 
Begrenzungsrechtecks. 

Back 0 = Fehler; <> 0 = Funktion korrekt auigefUhrt. 

Adreise Adresse des Objektbaumes, dem das su ändernde Objekt angehört. 
Objekt Nummer des Objektes, dessen OB_STATE geändert werden soll. 
Dummy Ohne Bedeutung (immer 0). 

Xpos, Ypos, Breite, Höhe: 

Koordinaten und Mafie eines Bildschirmausschnitts, über dessen 
Grensen hinaus nicht geseichnet werden soll. So kann die Darstellung 
des Objekts b.B. auf einen bestimmten Window-Bereich beschränkt 
werden (vgl. CLIP). 

Status Gewünschter neuer Objektstatus (siehe OB_STATE). 

Modus Funktionsmodus: 

0 = Geändertes Objekt nicht neu seichnen 
1 = Geändertes Objekt neu seichnen 


OBJG DELETEO Objekt deaktivieren 

Back=0BJC_DELETE(Adre8se,Objekt) 

Löscht ein Objekt aus einem bestehenden Objektbaum. D.h., es wer¬ 
den OB_HEAD, OB_TAIL und OB_NEXT des Objektes so gesetzt, 
daß es nicht mehr wählbar ist. Werden die Zeiger wieder restauriert, 
bzw. das Objekt durch OBJC_ADD neu integriert, kann es wieder an¬ 
gewählt werden. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

Adresse Adresse des Objektbaumes, dem das su löschende Objekt sugeordnet 
ist. 

Objekt Nummer des su löschenden Ziel-Objekts. 


OBJGDRAWO Objekt(e) darstellen 

Back=OBJC_DRAW(Adresse,Ebene1,Kinder,Xpo8,Ypos,Breite,Höhe) 

Stellt grafisch einen kompletten Objektbaum (Formular) oder einzelne 
Ebenen innerhalb bestimmter Koordinaten auf dem Bildschirm dar. 
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Einzelne Objekte aus einer Ebene können nicht einzeln gezeichnet 
werden. Es kann jedoch eine Startebene angegeben werden, ab welcher 
die zu zeichnenden weiteren Ebenen gezählt werden. 

Back 0 = Fehler; <> 0 = Funktion korrekt aufgefUhrt. 

Adresse Adresse des gewünschten Objektbaumes. 

Ebenei Nummer der ersten darsustellenden Baum-Ebene. 

Kinder Ansahl der weiteren Unter-Ebenen, die geseichnet werden sollen: 

0 = Nur Ebenei seichnen 

1 = Ebenei + Kind-Ebene 

2 = Ebenei + Kind-Ebene + Kind-Kind-Ebene 

etc. 

Xpos, Ypos, Breite, Höhe: 

Koordinaten und Maße eines Bildschirmausschnitts, über dessen 
Greneen hinaus nicht gezeichnet werden soll. So kann die Darstellung 
von Objekten z.B. auf einen bestimmten Window-Bereich beschrKnkt 
werden (vgl. CLIP). 


OBJCEDITO Objekt-Texteingabe 

Back=OB JCEDIT (Adresse,Objekt,Chair$,Zpos,Modus, < < N_pos) 

Bei Objekten des Typs G_text und G_boxtext kann hiermit die Ein¬ 
gabe und Edition des Textes innerhalb des Objektes durchgeführt 
werden. Die Funktion ist ggfs, mehrmals hintereinander mit entspre¬ 
chend geänderten Parametern auszuführen. 


Back 

Adresse 

Objekt 

Charl 

Zpos 

Modus 


N_po8 


0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

Adresse des Objektbaumes, dem das Textobjekt angehört. 

Nummer des Textobjektes, das bearbeitet werden soll. 

ASCll-Zeichen, das in den Objekttext eingefügt werden soll. 

Zielposition des neuen Zeichens im Objekttext. 

Funktionsmodus: 

1 = Formatierten String berechnen (Vorgabetext mit Textmaske 

verknüpfen) und Cursor einschalten (Objekt-Init). 

2 = Neues Zeichen Char$ einiesen, in Objekttext einfügen und 

Objekttext neu ausgeben. 

S = Cursor ausschalten, Eingabe/Edition beenden. 

Rückgabe-Variable, die nach Abschluß die nächste Zeichenposition in¬ 
nerhalb des Objekttextes enthält. 


OBJCFINDO Objektnummer ermitteln 

Back=OBJC_FIND(Adresse,Ob|ekt1,Ebenen,Xpos,Ypos) 

- Von FORM_DO verwendete Unterroutine! - 

Ermittelt die Objektnummer eines Objektes an einer bestimmten 
Bildschirmposition. Dies ist z.B. nötig, wenn durch Mausklick ein Ob¬ 
jekt in einem selbstverwalteten Formular gewählt wurde. 
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Back Nummer des ermittelten Objektes oder -l, wenn sich an der Position 

kein Objekt befindet. 

Adresse Adresse des Objektbaumes, dem das su Objekt sugeordnet ist. 

Objektl Nummer des Objektes, mit dem die Suche beginnen soll. 

Ebenen Ansahl der Ebenen, die ab Objektl lu untersuchen sind: 

0 = Nur Eltem-Ebene von Objektl untersuchen. 

1 = Eltem-Ebene von Objektl + nächste Ebene, 
etc. 

Xpos X'Koordinate des tu ermittelnden Objekts. 

Ypos Y'Koordinate des su ermittelnden Objekts. 

OBJC^ÖFFSitÖ Absolute Objektposition eriniitein 

Back=OB JC_0FFSET(Adre88e,Objekt, << Xpos, << Ypos) 

Berechnet die Koordinaten der linken oberen Ecke eines bestimmten 
Objektes, bezogen auf die linke obere Ecke des Bildschirms. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Adresse Adresse des Objektbaumes, dem das Zielobjekt sugeordnet ist. 

Objekt Nummer des Objektes, dessen Position berechnet werden soll. 

Xpos Rückgabevariable, die nach Abschluß die berechnete X-Koordinate des 

betreffenden Objekts enthält. 

Ypos RUckgabevariable, die nach Abschluß die berechnete Y-Koordinate des 

betreffenden Objekts enthält. 

OBJC^ORDERO Objekt neu zuOrdhen 

Back=OB JC_ORDER(Adre88e,Objekt,Ebene) 

Verschiebt ein Objekt innerhalb eines Objektbaumes auf eine andere 
Objekt-Ebene und paßt die entsprechenden Zeiger an. 

Back 0 = Fehler; <> 0 = Funktion korrekt Buegefahrt 

Adresse Adresse des Objektbaumes, dem das su verschiebende Objekt angehört. 
Objekt Nununer des Objektes, das verschoben werden soll. 

Ebene Nununer der Ebene, welcher das Objekt neu sugeordnet werden soll. 

-1 = Eine Ebene aufwärts 0 = Unterste Ebene 
1 = Unterste Ebene +1 2 = Unterste Ebene +2 

etc. 
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18.10 Resource-Manager 


RSRCFREEO Resource-Speicher freigeb«n 

Back=RSRC FREEO 

Der durch RSRC_LOAD von GEM reservierte (MALLCX!-) Speicher 
wird wieder freigegeben (MFREE) und der entsprechende Objekt- 
baum gelöscht. Ggfs, ist anschließend der BASIC-Speicher zu restau¬ 
rieren (siehe RSRC_LOAD). 


Back 0 = Fehler; <> 0 = Funktion korrekt auecefUhrt. 


RSRCGADDRO Resource-Adresse ermitteln 

Back=RSRC_GADDR(Typ,Objekt, < < Adresse) 

Ermittelt die Startadresse eines durch RSRC_LOAD geladenen Ob¬ 
jektbaumes, bzw. die Adresse eines darin enthaltenen 
FORM_ALERT-Strings. Gemäß Digital-Research-Dokumentation 
sollten noch weitere Strukturadressen hierdurch erfahrbar sein. Nach 
Angabe verschiedener Veröffentlichungen zu dieser Funktion und ei¬ 
gener Erfahrung muß erwähnt werden, daß dies nicht der Fall ist. Nur 
die Modi 0 und 15 arbeiten fehlerfrei. 


Um die übrigen Strukturzeiger zu ermitteln, bedienen Sie sich bitte 
der Objekt-Variable OB_ADR(). Mit Kenntnis der Objekt- und 
Unterstrukturen lassen sich damit alle interessanten Adressen in Er¬ 
fahrung bringen. 

Back 0 = Fehler; <> 0 = Funktion korrekt auagefUhrt. 

Typ Strukturtyp, dessen Adresse gesucht wird: 

0 = TREE (Objektbaun -> Fehlerfrei) 

15 = AD_FRSTR (FORM_ALERT-String -> Fehlerfrei) 

1 = OBJECT 2 = TEDINFO 3 = ICONBLK ---. 

A = BITBLK 5 = STRING 6 = IMAGEDATA j Arbeiten 

7 = OBSPEC 8 = TE_PTEXT 9 = TE_PTMPLT - nicht 
10 = TE PVALID 11 = 1B_PMASK 12 = 1B_P0ATA j korrekt! 

13 = IB_PTEXT U = BI_P0ATA 16 = AD_FRIMG 

Objekt Nummer des Objektes, dessen Strukturadressen ermittelt werden sollen. 
Adresse Rückgabe-Variable, die nach AbschluS die Adresse der gewünschten 
Struktur enthält. 
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RSRCLOADO Resource-Datei laden 

Back=RSRC_LOAD(Rsc_naine$) 

Es wird ein Objektbaum in Form einer GEM-Resource-Datei (.RSC- 
File) in den Speicher geladen und die Zeichen-Koordinaten (8x16- 
bzw. 8x8-Font) werden in Pixel-Koordinaten umgerechnet. Das GEM 
reserviert als Speicher für .RSC-Files den dafür benötigten Teil des 
momentan verfügbaren Restspeichers (in GFA-BASIC: MALLOC 
oberhalb von HIMEM). Eine unzureichende Größe dieses Restspei¬ 
chers führt dazu, daß die Datei nicht geladen wird. 

Deshalb ist vor RSRC_LOAD genügend Speicherplatz zu reservieren: 

RESERVE FRE(0)-33000 

Der maximale Speicherbedarf einer .RSC-Datei liegt bei 33000 Byte. 

Die Funktion lädt zuerst von der evtl, im Pfad vorgegebenen Station 
und sucht - wenn ohne Erfolg - ggfs, noch auf Station A. Bei pro¬ 
gramminterner Resource-Definition (z.B. in Datas) müssen ggfs, die 
zeichenorientierten Koordinaten durch RSRC_OBFIX auf Pixel-For¬ 
mat umgerechnet werden. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

R8c_name$ 

Dateiname des gewünschten Resource-Files. 


RSRCOBFIXO Objektkoordinaten umwandeln 

Back=RSRC_OBFIX(Adresse,Objekt) 

Wurde ein Objektbaum mit zeichenorientierten Koordinaten direkt im 
Speicher erzeugt, müssen vor Aufruf eines Objektes die zeichenorien¬ 
tierten Koordinaten OB_X, OB_Y, OB_W und OB_H (8x16- bzw. 
8x8-Font) in das Pixel-Format umgerechnet werden. Diese Umrech¬ 
nung, sowie die Eintragung der geänderten Werte in die Objektstruk¬ 
tur wird von RSRC_OBFIX durchgeführt. Bei geladenen Objektbäu¬ 
men werden die in .RSC-Files grundsätzlich verwendeten 
Zeichenkoordinaten durch RSRC_LOAD für alle Objekte während 
des Ladens automatisch angepaßt. 

Back Ohne Bedeutung (immer 1). 

Adresse Adresse des Objektbaumes, dem das betreffende Objekt angehört. 
Objekt Nummer des Objektes, dessen Koordinaten umgerechnet werden sollen. 
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RSRCSADDRO Resource-Adresse einfOgen 

Back=RSRC_SADDR(Typ>Objekt,Zeiger) 

Ändern eines Strukturzeigers innerhalb einer Objektstruktur. Werden 
Strukturdaten oder -blöcke (z.B. TEDINFO) im Speicher verschoben, 
kann hiermit der entsprechende Zeiger innerhalb der betreffenden 
Objektstruktur angepaßt werden. 

Auch diese Funktion arbeitet nicht immer fehlerfrei, so daß ggfs, die 
Zeiger durch LPOKEs in die Struktur geschrieben oder durch die 
Objekt-Variablen (OB_ADR, OB_NEXT, OB_SPEC etc.) bestimmt 
werden müssen. 


Back 0 = Fehler ; <> 0 = Funktion korrekt auegefUhrt. 

Typ Strukturtyp, deseen Adresse gesetst werden soll: 

0 = TREE 

1 = OBJECT, 2 = TEDIMFO, 3 = ICONBLK, 4 = BITBLK 

5 = STRING, 6 = IMAGEOATA, 7 = OBSPEC, 8 = TE_PTEXT 

9 = TE PTHPLT, 10 = TE PVALID, 11 = IB PMASK, 12 = IB_P0ATA 

13 = Ib'pTEXT, 14 = bTpOATA, 16 = AdIfRIMG, 15 = AD_FRSTR 

Objekt Nummer des Objektes, in dessen Struktur der betr. Zeiger liegt. 
Zeiger Neuer Zeiger auf die geänderte Adresse. 


18.11 Scrap-Manager 


|CRP_READ0 Globalen GEM-Puffer (Clipboard) lesen 

Back=SCRP_READ(< <Puffer$> >) 

Das OEM unterhält für den interaktiven Datenaustausch zwischen 
verschiedenen Programmen (Applikationen) einen ca. 160 Byte großen 
globalen Puffer, der von der Speicherverwaltung bei Programmstart 
und -ende nicht beinflußt wird (ab $9226 -> TOS/6.2.86). Dieser 
Puffer kann für die Lagerung/Übergabe beliebiger Daten verwendet 
werden (Clipboard/schwarzes Brett). 

Mit SCRP_READ kann nun der Inhalt dieses Clipboards in einen 
Text-Puffer kopiert/gelesen werden. Ein Zweck eines solchen 
Clipboards besteht zum Beispiel darin, 

Texte/Dateipfade/Variableninhalte an ein durch CHAIN nachgeladenes 
Programm übergeben zu können, das sich die gelagerten Daten bei 
Bedarf aus diesem Puffer wieder auslesen kann. Darüber hinaus steht 
die Nutzung dieses Puffers dem Programmierer frei. 
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Back 0 = Fehler; <> 0 = Funktion korrekt auBgefUhrt. 

Puffer$ Vorbereitete String-Variable (Pufrer$=SPACE$(160)), die nach 
Abschluß den gelesenen String enthält. Als Puffer-Endkennung wird 
dem String durch SCRP_WRITE ein Null-Byte angehängt. 


Inhalt$=LEFTS<Puffer$,INSTR(Puffer$,CHR$(0))-1) 


SCRP WRITEO Globalen GEM-Puffer (Cnpboard) schreiben 


Back=SCRP_WRITE(Texl$) 

Es wird ein beliebiger Text-String (max. 160 Bytes) in den globalen 
Scrap-Puffer geschrieben (siehe Erläuterungen zu SCRP_READ). 


Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Text$ Beliebiger String (max. Größe = 160 Byte). 


18.12 Shell-Manager 


SHELENVRNO DOS-Environment-Adresse ermitteln 

Back=SHEL_ENVRN(< < Adresse,StringS) 

Diese Funktion liefert die Adresse des DOS-Environment-Strings 
(voreingestellter Suchpfad: PATH=;A:\ ), bzw. eines Teils daraus (vgl. 
BASEPAGE+44). 

Back Offaet, der (um 1 inkrementiert) von der gelieferten Adresse abgetogen 

werden muB. Ab Adresse-(Back-t-1) ist der angegebene Such-String im 
Speicher su finden. Ist der Such-String nicht im DOS-Environment- 
String enthalten, enthält Back eine Null und Adresse den ASCII-Wert 
des ersten Zeichens des Such-Strings. 

Adresse Rückgabevariable, die nach Abschluß Environment-Adresse enthält. 

String! Anaugebender Such-String (a.B. "A:\", "PATH", 

Zur Verdeutiichung: 


Offs*=SHEL ENVRNfAdrsX,«PATH»;A:\") 
Buff$=SPACE*(20) 

StrtX=AdrsX-(0ffsX+1) 

BMOVE Strrt,VARPTR(Buff$),20 
Envrn$=LEFT$(Buff$,INSTR(Buff$,CHR${0))-1) 
PRINT "Ab ";StrtX;" -> ";Envrn$ 
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$HEL^FINDO AppIikatlons-Namen aiif Disk iSpcHfn 

Back=SHEL_FIND(< <Pfad$> >) 

Sucht auf der angegebenen bzw. aktuellen Station im angegebenen 
bzw. aktuellen Ordner nach dem angegebenen File. Wird die Datei auf 
der betreffenden Station nicht gefunden, sucht die Funktion auch 
noch auf Disk A. Hier wird dann nur noch im Haupt-Direktory ge¬ 
sucht. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Pfad$ Voriubereitende RQckgabe-String-Variable, die vor Aufruf den Namen 
(ggfe. inci Pfad) des gesuchten Files enthält. Ntu:h AbschluB wird von 
der Funktion im Erfolgsfall (Back > 0) hier die komplette 

Pfadbeseichnung der gefundenen Datei abgelegt. Verwendete Wildcards 
(*7) werden von der Funktion nicht ersetst. Sollten sich bei der 
PfadrUckgabe größere Längen ergeben als bei der Übergabe, kann es au 
Fehlfunktionen kommen. Daher sollte die String-Variable durch 
SPACE$ ausreichend erweitert werden: 

Übergabe : ":\0rdner\Datei.*"+SPACE$(20) 

Rückgabe : Back -> 1 

Pfads -> "A:\0rdner\0atei.*" 

(+Null-Byte als AbschluB) 


SHEI^GETO Environment-Puffer lesen 

Back=SHEL_GET(Anzahl,< <Puffer$) 

Liest eine vorgegebene Byte-Anzahl aus dem aktuellen Environment- 
Puffer. In diesem Environment-Puffer ist das jeweils aktuelle 
Desktop.Inf-File gespeichert, das Angaben über verschiedene Be¬ 
triebszustände, sowie über den Aufbau des Desktops enthält. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Anaahl Anaahl der au lesenden Bytes (max. 518 = 19 Zeilen). 

Puffert RUckgabe-String-Variable, die nach AbschluB gelesene Bytes enthält. 


SHEl^PUTO In Environment-Puffer schreiben 

Back=SHEL_PUT(Anzahl,Envrn$) 

Schreibt eine vorgegebene Byte-Anzahl in den aktuellen Environment- 
Puffer (siehe SHEL_GET). 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Anaahl Anaahl der au schreibenden Bytes (max. 518 = 19 Zeilen). 

Envmt String-Variable, die die au schreibenden Bytes enthält. 
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SHEL READO Applikationsnamen und -kommandözaile lesen 
Back=SHEL_READ(< <Name$,< <Comm$) 

Übergibt den File-Namen (ohne Pfad), mit dem die aktuelle Applika¬ 
tion von einer übergeordneten Ebene (Desktop, EXEC, CHAIN) auf¬ 
gerufen wurde und die dabei ggfs, übergebene Kommandozeile (max. 
128 Byte). 

Back 0 = Fehler; <> 0 = Funktion korrekt auagefUhrt. 

Name$ RUckgabe-String-Variable, die nach AbtchluB den Programmnamen 
enthSlt (Null-Byte ala Endmarkierung). 

Commt RUckgabe-String-Variable, die nach AbachluB Kommandoaeile enthält 
(Null-Byte ala Endmarkierung). Mögliche Kommandoa: 

- Bei .TTP-Programmen der bei Start eingegebene Text. 

- Name dea bei "Anwendung anmelden* eingetragenen Filea. 

- Inhalt von BASEPAGE+128 bei Compiler-CHAIN. 

- Bei EXEC angegebene beliebige Kommandoaeile. 

- etc. 


SHELWRITEO Applikation anmelden/starten 

Back=SHEL_WRITE(Modus,Grafik,Gemflag,Comm$,Name$) 

Hiermit kann ein beliebiges Programm gestartet werden. Anders als 
bei EXEC wird jedoch der Speicherplatz des auf rufenden Programms 
vorher freigegeben. Es bleibt also nicht resident. Die Compiler-Ver¬ 
sion des Befehls CHAIN verwendet z.B. diese Funktion, um ein Pro¬ 
gramm nachzuladen. 


Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Modus Funktionsmodus: 

0 = GEM verlassen (Rückkehr sum Desktop?) 

1 = Programm laden und starten 
Grafik Neues Programm arbeitet: 

0 = Ohne GraHk 
1 = Mit Grafik 

Gemflag Neues Programm ist: 

0 = .TOS/.TTP-Programm 
1 = GEM-Applikation (.PRG) 

Comm$ String-Variable, die die lu übergebende Kommandoseile enthält (mini¬ 
mal CHR$(0)). Das Compiler-CHAIN legt diese String-Adresse auf 
BASEPAGE+128. 

Name$ String-Variable, die den Namen des su startenden Programms enthält. 


CHAIN-Simulation: 


ConTi«=SPACE$(128) 

BMOVE BASEPAGE+128,VARPTR(Conn«),128 
■SHEL_WRlTE(1,1,1,Comm$,'‘Progranm.Prg") 
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18.13 Window-Manager 


WINDCALCO Fensterkoordinaten und -maße ermitteln 

Back=WIND_CALC(Modus,Attribiit,lnx,lny,lnb,lnh,... 

... < < Outx, < < Outy, < < Outb, < < Outh) 

Ermittelt aus bekannten Koordinaten und Maßen eines Fensters (Ar¬ 
beitsbereich oder Gesamtfläche) die jeweils anderen Koordinaten und 
Maße desselben Fensters (Arbeitsbereich -> 

Gesamtfläche/Gesamtfläche -> Arbeitsbereich). 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt 

Modus Funktionsmodus: 

0 = Gesamtfläche des Fensters berechnen. 

1 = Arbeitsbereich des Fensters berechnen. 

Attribut Spesifikation der Fenster-Randelemente, s. WINDTAB -> Attribut. 

Inx,Iny,Inb,Inh: 

Koordinaten der jeweils bekannten Fläche: 

Modus = 0 '> Arbeitsbereich 
Modus = 1 -> Gesamtfensterfläche 

<< Die Rückgabe-Variablen Outx, Outy, Outb und Outh enthalten nach 

Abschluß die Koordinaten und Maße der su berechnenden Fläche. 
Modus = 0 <- Gesamtfensterfläche 
Modus =1 <- Arbeitsbereich 


WINDCLOSEO Fenster schließen (CLOSEW) 

Back=WIND_CLOSE{Handle) 

Ein mit WIND_OPEN geöffnetes GEM-Window wird vom Bildschirm 
gelöscht (vgl. CLOSEW). Das Handle bleibt jedoch noch für dieses 
Fenster reserviert und es kann durch WlND_OPEN wieder dargestellt 
werden. Bei Öffnung des Fenster durch WIND_OPEN wird 
FORM_DIAL(0) und bei Schließung FORM_DIAL(3) automatisch 
aufgerufen. Betreffend der Hintergrund-Restauration siehe Erläute¬ 
rungen zu FORM_DIAL. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgeführt. 

Handle Handle des tu schließenden Fensters. 
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WIND CREATEO Fenster definieren/anmelden 

Back=WIND_CREATE(Attribut,Max_xl,Max_yo,Max_br,Max_ho) 

Es wird Speicher für ein GEM-Window reserviert und das Fenster mit 
bestimmten Attributen und Maximalausdehnung angemeldet. AES lie¬ 
fert nach Abschluß das Window-Handle, mit welchem dieses Fenster 
ab jetzt ansprechbar ist. 

Back < 1 := Keine Window-Handle mehr verfügbar. 

> 0 = Handle des neu angemeldeten Fensters. 

Attribut Spesifikation der Fenster-Randelemente, s. WINDTAB -> Attribut. 
Max_xl X-Grenzkoordinate der maximalen Window-Ausdehnung. 

Max_yo Y-Grenzkoordinate der maximalen Window-Ausdehnung. 

Max_br Breite des Fensters in seiner maximalen Ausdehnung. 

Max_ho Höhe des Fensters in seiner maximalen Ausdehnung. 


WINDDELETEO Fenster löschen/abmelden 

Back=WlND_DELETE(Handle) 

Ein mit WIND_CREATE angemeldetes GEM-Window wird aus der 
Fensterliste gestrichen, der Speicherplatz und das Handle wieder frei¬ 
gegeben. Es kann erst durch WIND_OPEN wieder dargestellt werden, 
wenn das entsprechende Handle durch WIND_CREATE erneut ausge¬ 
geben wurde. Das hiermit abgemeldete Fenster sollte ggfs, vorher vom 
Bildschirm gelöscht werden. 

Back 0 =: Fehler; <> 0 = Funktion korrekt auBgefUhrt. 

Handle Handle des absumeldenden Fensters. 


WIND^FINDO Fenster-Handle ermitteln 

Back=WIND_FINDp(pos,Ypos) 

Liefert das Window-Handle des Fensters, das sich an der angegebenen 
Bildschirmposition befindet. 

Back 0 = Elz befindet sich kein GEM-Fenater an der angegebenen Position. 

> 0 = Handle des gefundenen Fensters. 

Xpos X-Koordinate der betreffenden Bildschirmposition. 

Ypos Y-Koordinate der betreffenden Bildachirmposition. 
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WIND GETO « Fenster-Attribute ewittielii 

Back=WIND_GET(Handle,Modus,< <Get1,< <Get2,< <Get3,< <Get4) 

Lieferung verschiedener Auskünfte über GEM-Windows. 

Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Handle Handle des betreffenden Fenstert. 

Modus Funktionsmodus. Gibt an, welche Auskünfte gewünscht werden. 

Abhängig vom gewählten Modus werden von GEM in den 
Rückgabevariablen Getl, Get2, GetS und Get4 Daten mit wechselnder 
Bedeutung abgelegt. 

4 Koordinaten und MaBe des Arbeitsbereichs liefern: 

Getl : X-Koordinate der linken oberen Ecke 
Get2 : Y-Koordinate der linken oberen Ecke 
GetS : Breite des Bereichs 

Getl : Höhe des Bereichs 

5 Koord./Mafie des aktuellen Gesamtfensters liefern. Bedeutung von 
Getl, Get2, GetS, Get4 wie bei 4. 

6 Koord./MaBe des vorher offenen Gesamtfenstert liefern. Bedeutung von 
Getl, Get2, GetS, Get4 wie bei 4. 

7 Koord./MaBe der gröBtmöglichen Ausdehnung liefern. Bedeutung von 
Getl, Get2, GetS, Get4 wie bei 4. 

8 Stellung des Horieontalschiebers relativ s. umfassenden Rahmen liefern: 
Getl : 1 = Gans links ; 1000 = Gans rechts 

Get2, GetS, Get4 bleiben unverändert 

9 Stellung des Vertikalschiebers relativ sum umfassenden Rahmen liefern: 
Getl : 1 = Gans oben ; 1000 = Gans unten 

Get2, GetS, Get4 bleiben unverändert 

10 Handle des aktuell geöffneten Fensters liefern: 

Getl : Handle 

Get2, GetS, Get4 bleiben unverändert 

11 Koord./MaBe des ersten Rechtecks in der Rechteckliste des aktuellen 
Fensters liefern. Bedeutung von Getl, Get2, GetS, Get4 wie bei 4. 

12 Koord./MaBe des nächsten Rechtecks in der Rechteckliste des aktuellen 
Fensters liefern. Bedeutung von Getl, Get2, GetS, Get4 wie bei 4. 

16 GröBe des Horitontalschiebers relativ sur GröBe des umfassenden 

Rahmens liefern: 

Getl: -1 = MinimalgröBe (Quadrat) 

1 = Gans klein 

1000 = Schieber:Rahmen = 1:1 
Get2, GetS, Get4 bleiben unverändert. 

16 GröBe des Vertikalschiebers relativ sur GröBe des umfassenden 

Rahmens liefern. Bedeutung von Getl wie bei 16. Get2, GetS, Get4 
bleiben unverändert 
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WIND OPENO Fenster darstellen (OPENW) 

Back=WIND_OPEN(Handle,Xpos,Ypos,Breite,Höhe) 

Ein mit WIND_CREATE angemeldetes GEM-Window wird mit den 
vorgegebenen Attributen gezeichnet und reagiert ggfs, auf Anwender¬ 
einflüsse (vgl. OPENW). 

Back 0 = Fehler; <> 0 = Funktion korrekt auagefUhrt. 

Handle Handle dea au öffnenden Fenatera. 

Xpoa Beim öffnen gewUnachte X-Koordinate dea Fenatera. 

Ypoa Beim öffnen gewUnachte Y-Koordinate dea Fenatera. 

Breite Beim öffnen gewUnachte Breite dea Fenatera. 

Höhe Beim Öffnen gewUnachte Höhe dea Fenatera. 

WINDSETO Fenster-Attribute ändern 

Back=WIND_SET(Handle,Modus,Set1,Set2,Set3,Set4) 

Änderung verschiedener Komponenten eines GEM-Windows. 


Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Handle Handle des betreffenden Feneters. 

Modus Funktionsmodus. Gibt an, welche Komponenten geändert werden sol* 
len. Abhängig vom gewählten Modus werden von GEM die Daten in 
den Parametern Setl, Set2, Set3 und Set4 unterschiedlich interpretiert. 

1 Attribute des angegebenen Fensters ändern. 

Setl: Neue Spesifikation der Fenster-Randelemente. Siehe dasu unter 
WINDTAB -> Attribut. Set2, Set3, Set4 bleiben unberücksichtigt 

2 Fenster-Titel NAME ändern (vgl. TITLEW). 

Setl : Hl-Word eines Zeigers auf den neuen Titel. 

Set2 : LO-Word eines Zeigers auf den neuen Titel. 

Organisation des Strings: 

Byte 1: 1. Zeichen 
Byte 2: 2. Zeichen 

Byte n: letstes Zeichen 

Als Abschluß des Strings werden swei Null-Bytes erwartet. Set3, Set4 
bleiben unberücksichtigt 

3 Infoseile INFO ändern (vgl. INFOW). Bedeutung von Setl, Set2 wie 
bei 2. Sets, Set4 bleiben unberücksichtigt. 

6 Fensterkoordinaten und -größe ändern. 

Setl: Neue X-Koordinate des Fensters. 

Set2: Neue Y-Koordinate des Fensters. 

Set3: Neue Breite des Fensters. 

Set4; Neue Höhe des Fensters. 

8 Relative Position des Horisontalschiebers ändern. 

Setl: 1 = Gans links; 1000 = Gans rechts. 

Set2, Sets, Set4 bleit^n unberücksichtigt. 

9 Relative Position des Vertikalschiebers ändern. 

Setl: 1 = Gans oben; 1000 = Gans unten 
Set2, Sets, Set4 bleitUn unberücksichtigt. 
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10 Angegebenes Fenster aktivieren (vgl. TOPW). Setl, Set2, SetS, Set4 

bleiben unberücksichtigt. 

14 Objektbaum für neues Desktop initialisieren: 

Setl: HI-Word 

Set2: LO-Word eines Zeigers auf die Startadresse des Objektbaumes, 
in dem das neue Desktop beschrieben ist. 

SetS: Nummer des Objektes, mit dem begonnen werden soll. 

Set4: Bleibt unberücksichtigt. 

Wird in Setl, Set2 und SetS jeweils eine Null übergeben, wird damit 
das Standard-Desktop installiert. 

15 Gröfie des Horisontalschiebers relativ sur Größe des umfassenden 
Rahmens bestimmen. 

Setl: -1 = Minimalgröße (Quadrat) 

1 = Gans klein 

1000 = Schieber:Rahmen = 1:1 
Set2, Sets, Set4 bleiben unberücksichtigt. 

16 Größe des Vertikalschiebers relativ sur Größe des umfassenden 
Rahmens bestimmen. Bedeutung von Setl wie bei 16. Set2, SetS, Set4 
bleiben unverändert. 


WIND^UPDATEO Fenster-Darstellung kontrollieren 

Back=WIND_UPDATE(Modus) 

Die Funktion hat zum einen die Aufgabe, GEM mitzuteilen, daß das 
Programm gerade mit dem Neuaufbau eines Bildschirmbereichs be¬ 
schäftigt ist (Window-Redraw) und dabei durch andere Applikationen 
(Accessories) nicht gestört werden möchte. Dazu wird die momentane 
Rechteckliste des aktuellen Fensters freigegeben ("eingefroren") und 
alle Menü-Zugriffe gesperrt. 

Als Umkehrfunktion kann man GEM natürlich auch mitteilen, daß 
Menü-Zugriffe wieder zugelassen werden und die Rechteckliste "dy¬ 
namisiert" werden soll. D.h., die Rechtecklisten der Fenster werden bei 
Window-Bewegungen und Formularaufrufen ständig dem neuesten 
Stand angepaßt. Zum zweiten bietet diese Funktion die Möglichkeit, 
GEM die Kontrolle der Mausaktivitäten zu entziehen. Die Mauskon¬ 
trolle liegt in diesem Fall ausschließlich bei der aktuellen Applikation 
(also bei Ihrem Programm). 

AES meldet dann weder Zugriffe auf Fensterbedienungselemente 
(FULLER/CLOSER/MOVER etc.), noch Zugriffe auf ein evtl, vor¬ 
handenes Pull-Down-Menü. 

Hier ist wichtig zu wissen, daß GFA-BASIC während der Menü- 
Sperre trotzdem die Funktionsfähigkeit von ON MENU BUTTON, ON 
MENU KEY und ON MENU IBOX/OBOX gewährleistet. 










580 


Das große GFA-BASIC-Buch 


Back 0 = Fehler; <> 0 = Funktion korrekt ausgefUhrt. 

Modus Funktionsmodus: 

0 = Bildschirmaufbau ist fertig. Rechtecklisten freigeben. 

1 = Bildschirmaufbau hat begonnen. Rechtecklisten sp>eiTen. 

2 = Mauskontrolle bei AES (MenU/Windows sind aktiv). 

3 = Mauskontrolle beim Programm (Menü/Windows sind inaktiv). 


18.14 Beispiele zu FORM_x, OBJC_x, RSRC_x und MENU_x 

■ FORM_xxxx -/OBJC_xxxx -/RSRC_xxxx - Demo 

I ******************************************** 

LET trce1&=0 ! RSRC_TREE . 

LET t1 txt&=1 I Text-Objekt in Baum 0 

LET t1~ok&*3 I OKAY-Objekt in Baum 0 

LET t1_can&=4 I Cancel-Objekt in Baun 0 

I 

LET tree2&=1 I RSRC_TREE . 

LET t2_txt&=1 I Text-Objekt in Baum 1 

LET t2_but1&=4 ! Objekt in Baun 1 

LET t2_but2&=5 I Objekt in Baun 1 

LET t2_but3&=6 I Objekt in Baun 1 

LET t2_but4&=7 I Objekt in Baun 1 

LET t2_but5&=8 I Objekt in Baun 1 

LET t2 but6&=9 I Objekt in Baun 1 

LET t2“bot7&=10 I Objekt in Baun 1 

LET t2~but8&=11 I Objekt in Baun 1 

LET t2”but9&=12 I Objekt in Baun 1 

LET t2'’but10&=13 I Objekt in Baun 1 

LET t2”ok&=U I OKAY-Objekt in Baun 1 

LET t2_can&=15 I Cancel-Objekt in Baun 1 

I 

RESERVE FRE(0)-10000 I Speicher für Resource freigeben 

■RSRC_LOAD(''formular.rsc'') I Resource laden 

~RSRC_GADDR(0,tree1&,form1X) I Startadresse von Baum 0 holen 

■FORM_CENTER{form1X,x,y,u,h) I Formular 0 zentrieren 

~RSRC_GADDR(0,tree2&,form2X) I Startadresse von Baum 1 holen 
"FORM CENTER(form2X,x2,y2,w2,h2) I Formular 1 zentrieren 
CHAR«OB_SPEC(form2X,t2_txt&)»="00" ! Textobjekt 2 vorbelegen 

I *” 

DEFFILL ,2,A I Hintergrund vorbereiten, da 

PBOX 120,85,515,325 I FORM_DMLO graue Flecken hinterläSt 

PRINT " Baun 0 mit linker Maustaste" 

PRINT " Baun 1 mit rechter Maustaste" 

PRINT " Abbruch mit beliebiger <Taste>" 

DO 

EXIT IF INKEYSo"" ! Exit bei beliebiger <Taste> 

IF M0USEK=1 ! Linke Maustaste gedrückt? 

■FORM_DIAL(1,0,0,0,0,x,y,w,h) I GROUBOX produzieren 

■OBJC”DRAU(form1X,0,3,x,y,u,h) I Formular 0 zeichnen 

*FORM~DIAL(0,0,0,0,0,x,y,H,h) I Restore-Rechteck speichern 
ret_ob&=F0fiM_D0{form1X,ti_txt&) ! Formular-Bedienung übernehmen 
"FORM DIAL(3,0,0,0,0,x,y,w,h) I Formular überdecken 

■FORM“DIAL(2,0,0,0,0,x,y,w,h) I SHRINKBOX produzieren 

■OBJC_CHANGE(form1X,ret_ob&,0,x,y,w,h,0,0) I Status des EXIT- 
' ~ ! Objekts wieder rücksetzen 

PRINT AT(1,10);"Ihr Alter: ";CHAR«OB SPEC(form1X,t1_txt&)}>' 
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• ! Text-Objekt-Inhalt lesen 
ENDIF 

IF MOUSEK=2 I Rechte Maustaste gedrückt? 

FOR obJc&=t2_but1& TO t2_but10& ! Alle ''Alter"-Buttons durchgehen 
EXIT IF ANO(OB_STATE{fonn2X,obic&),1) ! SELECTED-Status gesetzt? 
NEXT objc& 

old_objc&:objc& I Alten Status merken 

old_str*=CHAR{{0e_SPEC(fonn2X,t2_txt&)» I Alten Text merken 
''FORM_DIAL(1,0,0,0,0,x2,y2,w2,h2) I GROUBOX produzieren 
■OBJC_DRAU(form2X,0,3,x2,y2,u2,h2)l Fornular 1 darstellen 
■FORH”DIAL(0,0,0,0,0,x2,y2,w2,h2) ! Restore-Rechteck speichern 

REPEAT I Wiederhole solange, bis <.. 

ret obS=FORH DO<forfli2X,0) I Formular-Bedienung übernehmen j 

EXIT IF ret_öb8=t2_ok& OR ret_ob&=t2_can» I Exit, wenn OlCAY 
' I oder Cancel gewählt wurde 

FOR objc&=t2 but1& TO t2_buti0& I Alle Alter-Buttons 
EXIT IF BTSTIOB STATE(form2X,objc&),0) I SELECTED-Bit gesetzt \ 
NEXT objc& “ I 

string*=STRi({obJc&-t2_but1&)*5+10) I Gewählten Alter-Button 
' I in String umwandeln 

CHAR{{OB_SPEC(form2X,t2_txt8)»=string$ I evtl, veränderten 
' I Alter-String eintragen 

■0BJC_DRAU(form2X,t2_txt&,1,x2,y2,w2,h2) I Kindebene neu zeichnen 
UMTIL ret_ob8=t2_ok& OR ret_ob&=t2_can& I OKAY o. Cancel gewählt >' 
"FORM DIAL(3,0,0,0,0,x2,y2,w2,h2) T Formular überdecken 
''FORM~DIAL(2,0,0,0,0,x2,y2,w2,h2) I SHRINKBOX produzieren 
''0BJC_CHANGE(form2X,ret_ob&,0,x,y,w,h,0,0) I Status zurücksetzen 
IF ret_ob4=t2_can& I "Cancel" gewählt 

~0BJC_CHANGE(form2X,objc&,0,x2,y2,w2,h2,0,0) I Status des zuletzt 
■ I gewählten Buttons wieder auf Null 

■OBJC_CHANGE(form2X,old_obJc&,0,x2,y2,w2,h2,1,0) I Status des 
' I vorher "aktiven" Buttons wieder 

• ! auf SELECTED setzen 

CHAR{{0B_SPEC(form2X,t2 txt4»}=old strS I Text restaurieren 

ENDIF 

ENDIF 

LOOP 

■RSRC_FREE() I Resource löschen 

RESERVE FRElOj-^IOODO I Speicher restaurieren 

• HENU_xxxx - Demo 

I ***************** 

LET menu_treeX=0 I RSRC_TREE 

LET desk^3 I Objekt in Baum 0 (Menütitel) 

LET tipsX=4 I Objekt in Baun 0 (Menütitel) 

LET iconsX^S I Objekt in Baun 0 (Menütitel) 

LET smilyX<6 I Objekt in Baum 0 (Menütitel) 

I 

LET myprogX=9 I Objekt in Baun 0 

LET t1X=19 I Objekt in Baum 0 

LET t2X=20 I Objekt in Baun 0 

LET t3X=21 I Objekt in Baun 0 

LET t4X=22 ! Objekt in Baun 0 

LET t5X=23 I Objekt in Baun 0 

LET q.uitX=2S I Objekt in Baun 0 

LET ausgangX=37 I Objekt in Baun 0 

I 

RESERVE FRE(O)-10000 I Speicher für Resource freigeben 

IF RSRC_LOAO("menu.rsc") I Resource laden 
~RSRC_GAODR(0,menu_treeX,menuX) I Menübaun-Adresse holen 
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ON MENU GOSUB do_nienu ! Verzweigung bei Menü-Ereignissen 
■MENU_BAR(menuX,1) I Menü aktivieren 

DO I Überwachungs-Schleife 

EXIT IF e.flagl I Abbruch, wenn "Ausgang" gewählt 

ON MENU I Events feststellen 

LOOP 

''MENU_BAR(nierKiX,0) I Menü deaktivieren 

■RSRC_FREEO I Resource löschen 

ELSE 

ALERT 1."'MENU.RSC konnte nicht'geladen werden I", 1."Return",bX 
ENDIF 

RESERVE FRE(0}'''10000 I Speicher restaurieren 

I 

PROCEDURE do_inenu 

PRINT ATI11,11);"Menüpunkt-Index :"'MENU(5)' 

IF MENU(5)=iiiyprogX I Menüpunkt im Desk-Menü gewählt? 

"MENU TEXT(menuX.myprogX,"Dein Programm") I Text austauschen 
ENDIF 

IF NENU(S)=ausgangX I "Ausgang" gewählt 

e.flagl=TRUE I Abbruch-Flag setzen 

ENDIF 

IF MENU(A)=tipsX ! Tips-Menü war offen? 

IF MENU(5)=q.uitX I Darin Punkt "Ende" gewählt? 

FOR nX=t1X TO tsx I Alle anderen Menüpunkte 

~MENU IENABLE(menuX,nX,1) I wieder wählbar machen 
NEXT nX" 

ELSE I Sonst... 

■MENU_IENABLE<menuX,MENU(5),0) I ...den gewählten Punkt.. 

ENDIF I ...unwählbar machen 

ENDIF 

■MENU_TN0RMAL(menuX,MENU(4),1) I Menütitel "schwarz auf weiB" 

RETURN 

Das Interessante an diesem Beispiel ist, wie die Grafiken in das Menü 
gelangt sind. Wie man grundsätzlich Grafiken in das RCS importiert, 
habe ich weiter oben in der RCS-Beschreibung schon angedeutet. Da 
aber im RCS für einen Menü-Typ keine Icons und Images vorgesehen 
sind, können Sie aus der Menü-Part-Box auch keine solchen in einen 
Menübaum hereinholen. 

Hier gibt es den Trick, nachdem das Menü als solches erstellt ist, es 
durch die Menü-Option "Type" im Menütitel "Options" einfach in 
einen Dialog-Typ umzuwandeln (erst den Baum schließen) und dann 
die Icons im neu geöffneten Dialog-Baum zu plazieren. Nachdem Sie 
die gewünschten Icons auf die unten beschriebene Art und Weise in 
das RCS "gemergt" und im Baum eingebaut haben, schließen Sie den 
Baum wieder, gehen wieder in das Menü "Options", ändern durch 
"Type" erneut den Dialog-Typ in einen Menü-Typ um und haben so 
die Icons in das Menü geschmuggelt. 
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19. Objektvariablen 


AES-Objekte, die durch die objektbezogenen AES-Funktionen bear¬ 
beitet, verwaltet und/oder dargestellt werden sollen, sind auf eine be¬ 
stimmte Art und Weise zu definieren. Diese sogenannte Objektstruktur 
ermöglicht erst die Verwendung von äußerst komplexen Formularen, 
die dann die Programmierarbeit wesentlich erleichtern können. Als 
RCS-Benutzer haben Sie jedoch nicht das Problem, die Objekte selbst 
erstellen zu müssen, das erledigt das RCS für Sie. 


In diesem Kapitel finden Sie alle Objekt-Variablen, die zur Verwal¬ 
tung und Anpassung der verschiedenen Objekte direkt aufrufbar sind. 


Ein Objekt hat folgenden Aufbau: 


OB NEXT 

ob“head 

ob“tail 

OB^TYPE 
0B_FLAGS 
OB STATE 

ob'spec 
ob“x 
OB^Y 
OB_U 
OB H 


Nächstes Objekt derselben Ebene (Word) 
Erstes Objekt der Kind-Ebene (Word) 
Letztes Objekt der Kind-Ebene (Word) 
Objekt-Typ (Word) 
Objekt-Attribute (Word) 
Objekt-Status (Word) 
Adresse der Unter-Struktur (Long) 
Relative Objekt-X-Koordinate (Word) 
Relative Objekt-Y-Koordinate (Word) 
Objektbreite (Word) 
Objekthöhe (Word) 


Den Aufbau der Unter-Strukturen (TEDINFO, BITBLK etc.) finden 
Sie unter 19.1 "GEM-Datenstrukturen" beschrieben. 


Alle Objekt-Variablen sind zweifach indiziert, wodurch das betref¬ 
fende Objekt genau spezifiziert werden kann. 


Parameter I -> Adresse 

Adresse des Objektbaumes, dem das betreffende Objekt angehört. 


Parameter 2 -> Objekt 

Nummer des betreffenden Objektes innerhalb des mit Adresse be¬ 
stimmten Baumes. Die erste (oberste) Ebene hat immer Nummer 0. 

Der Ausdruck Wert hat in den Syntax-Beschreibungen folgende Be¬ 
deutung: 
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In Zuweisungen 

Wert, der an die Variable übergeben werden soll. 


In Nachfragen 

Wert, der momentan in der Variablen enthalten ist. 


OB_ADR0 Objekt-Adresse (Long) 

OB ADR(Adre88e,Objekt)=Wei1 -> Zuwei8ung 

Werl=OB_ADR(Adre88e,Objekt) -> Nachfrage 

- Kein Bestandteil der Objektstruktur - 

Liefert in Wert den Byte-Offset des betreffenden Objektes zur ange¬ 
gebenen Start-Adresse des übergeordneten Objektbaums. Durch Zu¬ 
weisung kann die Reihenfolge der Objekte innerhalb der Baumstruk¬ 
tur bestimmt werden bzw. den Objekten ein willkürlicher Offset zu¬ 
gewiesen werden. 


OB__NEXT0 Nächstes Objekt derselben Ebene lesen (Word) 
ÖB_NEXT0= {0b)=: } ... schreiben (Word) 

Wert =OB NEXT(Adre88e,Objekt) -> Nachfrage 

0B_NEXT(Adre88e,0bJekt)=Wert -> Zuweiaung 

Enthält die Nummer des nächsten Objektes auf der Ebene, welcher 
das angegebene Objekt selbst angehört. Ist das angegebene Objekt das 
letzte Objekt der Ebene, zeigt OB_NEXT auf das ihm übergeordnete 
Wurzelobjekt (Eltern-Generation) zurück. Ist es selbst das oberste 
Wurzelobjekt, enthält OB_NEXT eine -1. 


OB_HEAD0 Erstes Objekt der Kind-Ebene lesen (Word) 

OB_HEAD0= ( Ob_h )= ) ... schreiben (Word) 

Wert=OB HEAD(Adre88e,Objekt) •> Nachfrage 

OB_HEADi[Adre88e,Objekt)=Wert -> Zuweiaung 

Enthält die Nummer des ersten Objektes der nächsttieferen Ebene (1. 
Kind). Ist keine Kind-Ebene vorhanden, enthält OB_HEAD eine -1. 
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IWVklLO Letztes Objekt der Kind-Ebene lesen (Word) 

ÖBt_TAIL0 = { Ob_t )= } ... schreiben (Word) 

Wert=OB TAIL(Adresse,Objekt) -> Nachfrage 

OB_TAIL(Adre88e,ObJekt)=Wert -> Zuwei8ung 

Enthält die Nummer des letzen Objektes der nächsttieferen Ebene (n. 
Kind). Ist keine Kind-Ebene vorhanden, enthält OB_TAIL eine -1. 


OBTYPEO Objekt-Typ lesen (Word) 

OB TYPE0= {Ob__^ty)= } ... schreiben (Word) 

Wert=OB 7YPE(Adres8e,Objekt) -> Nachfrage 

OB_TYPE(Adre88e,Objekt)=Wert -> Zuweiaung 

Enthält den Typen-Index des betreffenden Objektes. Die Bedeutung 
der Objekt-Variable OB_SPEC wechselt bei den verschiedenen 
Objekttypen. 


Index_Beteichnung_OB SPEC 


20 

G_BOX 

BOXINFO (32-Bit-Code) 


Rechteck. 


21 

G_TEXT 

Zeiger auf TEDINFO 


Variabler Grafiktext. 


22 

G_BOXTEXT 

Zeiger auf TEDINFO 


Text in einem Rechteck. 


23 

GIMAGE 

Zeiger auf BITBLK 


Bitraater- Zeichnung. 


24 

G PROGDEF 

Zeiger auf APPLBLK 


Maechinen-Routine Eur eigenen Objekt-Darstellung. 

2S 

G IBOX 

BOXINFO (32-Bit-Code) 


Rechteck ohne Rahmen und Füllung. Als unsichtbares Wurselobjekt 


geeignet. 


26 

G_BUTTON 

Zeiger auf C-Text 


Grafiktext. Zentriert in einem 

Rechteck (AbachluB durch Rechteck). 

27 

GBOXCHAR 

BOXINFO (32-Bit-Code) 


Einseiner Buchstabe. Zentriert 

: in einem Rechteck. 

28 

G_STRING 

Zeiger auf C-Text 


Grafiktext in Standard-Font 

(AbachluB durch Rechteck) a.B. Pull- 


Down-MenUtext. 


29 

G FTEXT 

Zeiger auf TED INFO 


Formatierter Grafiktext (siehe TEDINFO). 

30 

G FBOXTEXT 

Zeiger auf TEDINFO 


Formatierter Grafiktext in einem Rechteck (siehe TEDINFO). 

31 

G ICON 

Zeiger auf ICONBLK 


Maskierte Bit-Raster-Zeichnung mit Text-Integration. 

32 

G TITLE 

Zeiger auf C-Text 


Grafiktext für Pull-Down-Menü-Titel. 
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OBFLAGSO Objekt-Attribute lesen (Word) 

OB_FLAGS0 = { ObJ )= } schreiben (Word) 

Wert=OB FLAGS(Adresse,Objekt) -> Nachfrage 

OB_FLA(x5(Adresse,ObJekt)=Wert -> Zuweisung 

Enthält einen 9-Bit-Vektor, der angibt, mit welchen Attributen das 
Objekt ausgestattet sein soll. Ein gesetztes Bit bedeutet, daß dem Ob¬ 
jekt das betreffende Attribut zugeordnet wird. Ist kein Bit gesetzt, ist 
es ein sog. NONE-Objekt. Zur Selektion der einzelnen Bits siehe unter 
BTST/BCHG/BSET/BCLR. 


Bit _ Name _ 

1 SELECTABLE 

1 DEFAULT 

2 EXIT 

3 EDITABLE 

4 RBUTTON 


6 LASTOB 


6 TOUCHEXIT 


7 HIDETREE 


ErlSuterung _ 

WShlbarea Objekt. Bei Mausklick auf 
Objekt wird ee invera gezeichnet. 
Objekt, daa auch durch <Return> 
angewShlt werden kann. Oblicherweiae 
auch EXIT-Objekt. Pro Formular 
(Baum) iat nur ein DEFAULT-Objekt 
erlaubt. 

Auawahl dieaea Objektea führt dazu, 
daB Maua- und Taataturkontrolle 
wieder an daa Programm zurUckgege- 
ben werden (Rückkehr vom 
FORM_DO-Aufru0. 

Daa betreffende Objekt iat in irgend¬ 
einer Weiae veründerbar (üblich: 
Texteingabe). 

Objekt innerhalb einer Objektgruppe 
(Objekte einer Ebene). Wird ein 
Objekt dieacr Gruppe angewShlt, wird 
ein evtl, achon aktiviertea Objekt 
deraelben Gruppe wieder deaktiviert 
(normal). Innerhalb einer aolchen 
Gruppe kann immer nur ein Objekt 
aktiviert (invera) werden. 

Hierarchiach letatea Objekt dea aktu¬ 
ellen Objektbaumea. Pro Formular 
(Baum) iat nur ein LASTOB-Objekt 
erlaubt. 

Gleiche Funktion wie EXIT. Im 
Gegenaatz zu EXIT muB die 
Mauataate jedoch nicht erat loagelaa- 
aen werden, um daa Formular zu ver- 
laaaen. 

Kennzeichnet ein Wurzelobjekt, daa 
inkl. a&mtlicher Nachkommen 
(Unterebenen) von OBJC__DRAW, 
OBJCFIND, FORM_DO etc. 
"überaehen* wird. Die Objekte dieaer 
Ebenen werden alao weder dargeatellt, 
noch aind aie im Formular wählbar. 
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8 INDIRECT Die Objektipeeißkation des hiermit 

markierten Objektes ist nicht der 
Wert selbst, sondern Zeiger darauf. 

OBSTATEO Objekt-Status lesen (Word) 

6b_stateo= {Ob_8)=} ... schreiben (Word) 

Wert=OB STATE(Adresse,Objekt) -> Nachfrage 

OB_STATE(Adresse,Ob|ekt)=Wert -> Zuweisung 

Enthält einen 6-Bit-Vektor, durch welchen die Art der grafischen 
Darstellung eines Objektes bestimmt werden kann. Ist kein Bit gesetzt, 
ist es ein sog. NORMAL-Objekt. Zur Selektion der einzelnen Bits 
siehe unter BTST/BCHG/BSET/BCLR. 


Bit _ Name _ 

0 SELECTED 


1 CROSSED 


2 CHECKED 


3 DISABLED 


4 OUTLINED 


5 SHADOWED 


Erläuterung 

Da« betreffende Objekt wird invers 
geseichnet, um su signalisieren, daS 
der dadurch repräsentierte 
Auswahlpunkt aktiviert ist. Dieser 
Status wird einem SELECTABLE- 
Objekt auch durch FORM_DO() lu- 
gewiesen, sobald es innerhalb eines 
Formulars vom Anwender angeklickt 
wurde. 

Das Objekt wird mit swei Linien dia¬ 
gonal "durchkreust". Eignet sich vor¬ 
wiegend für G_??BOX7?-Typen, um 
es als "markiert” su kennseichnen. 

In das Objekt wird ein Häkchen ge¬ 
seichnet, um es als "erledigt" su 
kennseichnen (s.B. bei 

Menüseilentext). 

Das Objekt wird hell (lightend) ge¬ 
seichnet, um es als "unwählbar" su 
kennseichnen (dasu auch Bit 0 von 
OB_FLAGS ausschalten). 

Das Objekt wird mit einem dicken 
und einem weiteren, dünnen Rahmen 
eingerahmt, um ggfs, seine Priorität 
SU unterstreichen (evtl, bei Rahmen-, 
bsw. Wurselobjekten). 

Das Objekt wird mit einem nach 
rechts unten fallenden Schatten aus¬ 
gestattet. Die Schattentiefe richtet 
sich nach der Randstärke des 
Objektes (optischer Effekt). 
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OBSPECO Adresse der Uater-Struktur lesen (Long) 

OB_SPECÖ= { Ob_sp)= } ... schreiben (Long) 

Wert=OB SPEC(Adresse,Objekt) -> Nachfrage 

OB_SPEC(Adresse,Objekt)=Wei1 -> Zuweisung 

Enthält einen Wert, dessen Bedeutung je nach OB_TYPE variiert. 
Mögliche Bedeutungen sind TEDINFO-, BITBLK-, ICONBLK-, 
APPLBLK- und String-Zeiger oder BOXINFO-Wert (s. OB_TYPE). 


OB XQ Relative Objekt-X-Koordlnate (Word) 

Wert=OB X(Adre88e,Objekt) -> Nachfrage 

OB_X(Adre88e,Objekt)=Wert -> Zuweisung 

Enthält die X-Koordinate des angegebenen Objekts. Bei selbstdefi¬ 
nierten Objekten mit zeichenorientierten Koordinaten sind diese vor 
Objekt-Aufruf umzurechnen (siehe RSRC_OBFIX). Beim Objekt der 
obersten Ebene (Wurzelobjekt) bezieht sich die Angabe der Koordina¬ 
ten immer auf den absoluten Bildschirmnullpunkt. Bei allen Unterob¬ 
jekten stehen die Koordinatenangaben immer in Relation zum Null¬ 
punkt (obere linke Ecke) des übergeordneten (Eltern-)Objektes. Dar¬ 
aus ergibt sich, daß übergeordnete Objekte immer in Form eines ko¬ 
ordinatenbehafteten Rechtecks zu definieren sind. 

Unterobjekt-Koordinaten sind immer so anzugeben, daß das jeweilige 
Unterobjekt immer vollständig innerhalb des Rechtecks des Eltern- 
Objektes liegt. 


jpB YO Relative Objekt-Y-Koordlnate (Word) 

Wert=OB_Y(Adre8se,Objekt) -> Nachfrage 

OB_Y(Adres8e,Objekt)=Wert -> Zuweisung 

Enthält die Y-Koordinate des angegebenen Objekts. Siehe Erläuterun¬ 
gen zu OB_X. 
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OBWO Objektbrehe (Word) 

Wert=OB W(Adresse,Objekt) •> Nachfrage 

OB_W(Adresse,Objekt)=Wert -> Zuweisung 

Enthält die Breite des angegebenen Objekts. Siehe Erläuterungen zu 
OB X. 


OBHO Objekthöbe (Word) 

Wert=OB_H (Adresse,Objekt) -> Nachfrage 

OB_H(Adresse,Objekt)=Wert -> Zuweisung 

Enthält die Höhe des angegebenen Objekts. Siehe Erläuterungen zu 
OB X. 


19.1 GEM-Datenstrukturen 

Zur Objektprogrammierung mit AES ist die Kenntnis über den Auf¬ 
bau der Unter- und Unter-Unter-Strukturen unerläßlich. Bei den 
verschiedenen Objekttypen (siehe OB_TYPE) werden zur weiteren 
Spezifikation jeweils Zeiger auf eine entsprechende Unterstruktur er¬ 
wartet, bzw. in den Fällen G_BOX, G_IBOX und G_BOXCHAR ein 
Long-Wert mit weiteren Informationen zur Boxbeschaffenheit 
(BOXINFO). 


RSC-HEADER 


RSC-File-Vorspann (38 Bytes) 


Offset_Name/Bedeutung_Format 


Reserviert (immer 1) Word 

Objekt-Feld-Position Word 

Tedinfo-Position Word 

Icon-Block-Position Word 

Bit'Block-Position Word 

Position freier Strings Word 

Position gebundener Strings Word 

Position der Image-Daten Word 

Position freier Images Word 

Objektbaum-Tabellenseiger Word 

Objekt-Ansahl im RSC-File Word 

Baum-Ansahl im RSC-File Word 

Ansahl der TEDINFOs Word 

Ansahl der ICNBLKe Word 

Ansahl der BITBLKs Word 

Ansahl der Strings Word 

Ansahl der Images Word 
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34 Länge der RSC-Datei Word 

36 End-Markierung (0) Word 


BOXINFO 32-BIT-Code in OB_SPEC 

Dieser Wert wird bei den Objekttypen G_BOX, G_IBOX und 
G_BOXCHAR in OB_SPEC erwartet. 

Aufbau: 


1 Hl-Uord LO-Uord 

j HI-Byte j LO-Byte HI-Byte j LO-Byte 


7777 ! 7777 

6666 ! 6666 

5555 ! 4444 

3222 ! 1111 

Bit 31 

Bit 16 

Bit 15 

Bit 0 


Die Ziffern haben dabei folgende Bedeutung: 

1 FUllmusterfarbe (4 Bits = 0 bis 15) 

2 FUllmuster (3 Bits = 0 bis 7) 

0 = Ohne FUllmuster. 

1-6 = Verschiedene Muster. 

7 = Komplett mit Füllfarbe gefüllt. 

3 Grafikmodus (1 Bit = 0 bis 1) 

0 = Objekt replace aeichnen. 

1 = Objekt transparent seichnen. 

4 Farbe f. Textseichen (4 Bits = 0 bis 15). 

- Nur bei G_BOXCHAR-Objekten - 

5 Farbe des Objektrahmens (4 Bits = 0 bis 15) 

6 Rahmendicke (8 Bits = -127 bis 128) 

0 = Kein Rahmen. 

1 bis 127 = Rahmendicke nach innen. 

128 bis 255 = Rahmendicke nach aussen. 

Komplement wert: Entspricht -127 bis -1. 

7 ASCII für Textseichen (8 Bits = 0 bis 255) 

- Nur bei G_BOXCHAR-Objekten - 


tEDINFO Textobjekt-Unterstruktur (28 Byte) 

Enthält weitere Informationen über Text-Objekte vom Typ G_TEXT, 
G_BOXTEXT, G_FTEXT und G_FBOXTEXT (siehe OB SPEC). 

Die Struktur hat folgenden Aufbau: 
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Offset: 

0 

4 


8 


12 

14 

16 

18 

20 

22 

24 

26 


Name (Format)/Bedeutung: 

te_ptext (Long): Zeiger auf C-Text, der die Vorgabe für die editierba¬ 
ren Positionen in te_ptmplt enthält (s.B. 2000Hamburg). Ist das erste 
Zeichen ein ^ (Klammeraffe/Commercial At), wird die komplette 
Textlänge als Space-String interpretiert. 
te_ptmplt (Long) 

Zeiger auf einen C-Text mit der Textmaske, welche die String- 
Positionen bestimmt, in welche bet Eklition vom Benutzer Zeichen ein¬ 
gegeben werden können. Diese Positionen sind durch einen Tiefstrich 

EU kennEeichnen, e.B.: PLZ:_Ort:_. 

Bei Aufruf des Objektes wird te_ptext in diese Positionen als Vorgabe 

eingetragen. e.B.: PLZ:2000 OrtrHamburg_. 

Sind nur Ziffern EUgelassen und es wird bei Edition ein alphanumeri¬ 
sches Zeichen eingegeben, springt der Cursor auf die nächste freie 
Eingabeposition hinter diesem Zeichen, sofern das Zeichen in der 
Schablone te^tmplt enthalten ist. 

te_pvaJid (Long): Zeiger auf C-Text, in welchem die Eur Eingabe eu- 
gelassenen Zeichen speEifiEiert sind. Für jeden Tiefstrich in te^tmplt 
ist hier das entsprechende Valid-Zeichen einsutragen, 
e.B.: 9Ö99XXXXXXXXXXXX. Fehlerfreie Valid-Zeichen: 

9 = Nur Ziffer (0 - 9) ist EUgelassen. 

X = Jedes Zeichen ist EUgelassen. 

UnEUverlässige Valid-Zeichen (Abstursgefahr): 

A = Nur Großbuchstabe oder Leerseichen. 
a = Nur Gro6-/Kleinbuchstabe oder Leerseichen. 

N = Nur Ziffer, Großbuchstabe oder Leerseichen. 
n = Wie N oder Kleinbuchstabe. 

F = File-Namen-Zeichen (Großbuchstabe oder _.:*?). 
p = Wie F, jedoch Eusätslich \. 

P = Wie p, jedoch nicht * oder ? 
te_font (Word): Zeichensats-Flag: 

3 = Standard-ZeichensatE. 

5 = Verkleinerter ZeichensatE. 

t€_re8vd (Word): Für spätere TOS-Versionen reserviert. 
te_ju8t (Word): Plag für Textausrichtung: 

0 = Linksbündig 

1 = Rechtsbündig 

2 = Zentriert 
te_color (Word) 

0 - 15 = Rahmenfarbe bei G_BOXTEXT und G_FBOXTEXT. 
te_re8vd2 (Word): Für spätere TOS-Versionen reserviert. 
te_thickne88 (Word): Rahmendicke bei G_BOXTEXT/GFBOXTEXT: 
0 = Kein Rahmen. 

1 bis 127 = Rahmendicke nach innen. 

128 bis 256 = Rahmendicke nach außen. 

Komplementwert: Entspricht -127 bis -1. 
te_txtlen (Word): Länge des C-Textes (inkl. Null-Byte), dessen Zeiger 
in te_ptext angegeben ist. 

te_tmplen (Word): Länge des C-Textes (inkl. Null-Byte), dessen 
Zeiger in te_ptmplt angegeben ist. 
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ICONBLK^^*^^ G^ICON-Ünterstruktur (36 Byte) 

Enthält weitere Informationen über Grafik-Objekte vom Typ 
G_ICON (siehe OB_SPEC). Ein G_ICON-Objekt besteht aus einer 
Hintergrund-Maske und der eigentlichen Grafik. Bei Aufruf wird 
zuerst die Maske gezeichnet und anschließend die Grafik auf die 
Maske gelegt. Zusätzlich hat man bei G_ICONs die Möglichkeit, 
einen Text-String und ein weiteres einzelnes Zeichen in die Grafik zu 
integrieren (siehe Laufwerksymbol im Desktop). 

Die Struktur hat folgenden Aufbau: 

Offset: Name (Format)/Bedeutung: 

0 ib^pmask (Long): Zeiger auf die Maskendaten im GEM-Bit-Raster- 

Modus (Aufbau wie GET/PUT-String ohne Header). Ein gesetstes Bit 
im Raster löscht den entsprechenden Bildschirmpunkt (= 
Hintergrundfarbe). 

4 ib_pdata (Long): Zeiger auf die Grafikdaten im GEM-Bit-Raster- 

Modus (Aufbau wie GET/PUT-String ohne Header). Ein gesetstes Bit 
im Raster seichnet den entsprechenden Bildschirmpunkt in der suge- 
wiesenen Farbe. 

8 ib^ptext (Long): Zeiger auf einen C-Text, der den in die Grafik su in¬ 

tegrierenden String enthält. 

12 ib_coI (Byte): Die unteren vier Bit enthalten die Farbe der Icon-Maske 
und die oberen vier Bit die Farbe des Icons. 

13 ib_char (Byte): ASCII-Code eines einselnen Zeichens, das in die Grafik 
integriert werden soll. 

14 ib_xchar (Word): Pixelorientierte X-Position des einselnen Zeichens, 
relativ sur linken oberen Ecke der G_^ICON-Grafik. 

16 ib_ychar (Word): Pixelorientierte Y-Position des einselnen Zeichens, 

relativ zur linken oberen Ecke der G_ICON-Grafik. 

18 ib_xicon (Word): Pixelorientierte X-Position der Grafik, relativ sur 

linken oberen E^ke des übergeordneten Objektes (siehe OB__X). 

20 ib_yicon (Word): Pixelorientierte Y-Position der Grafik, relativ sur 

linken oberen Ecke des übergeordneten Objektes (siehe OB_Y). 

22 ib_wicon (Word): Pixelorientierte Breite der Grafik (muß glatt durch 

16 teilbar sein). 

24 ib_hicon (Word): Pixelorientierte Höhe der Grafik. 

26 ib_xtext (Word): Pixelorientierte X-Position des Text-Strings, relativ 

sur linken oberen Ecke des übergeordneten Objektes (siehe OB_^X). 

28 ib_ytext (Word): Pixelorientierte Y-Position des Text-Strings, relativ 

sur linken oberen Ecke des übergeordneten Objektes (siehe OB_Y). 

30 ib_wtext (Word): Pixelorientierte Breite des Text-Strings. 

32 ib_htext (Word): Pixelorientierte Höhe des Text-Strings. 

34 ib_resvd (Word): Für spätere TOS-Versionen reserviert. 
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BITBLK G_IMAGE-Uiiterstruktur (14 Byte) 

Enthält weitere Informationen über Grafik-Objekte vom Typ 
G_IMAGE (siehe OB_SPEC). Ein G_IMAGE-Objekt besteht ledig¬ 
lich aus einer GEM-Bit-Raster-Grafik ohne Maske (nur auf einfarbi¬ 
gem Hintergrund verwendbar - s. FORM_ALERT/ALERT-Symbole). 

Die Struktur hat folgenden Aufbau: 

Offset: Name (Format)/Bedeutung: 

0 bi^pdata (Long): Zeiger auf die Grafikdaten im GEM-Bit-Raster- 

Modus (Aufbau wie GET/PUT-String ohne Header). Ein gesetates Bit 
im Raster teichnet den entsprechenden Bildschirmpunkt in der suge- 
wiesenen Farbe. 

4 bi_wb (Word): Breite der Grafik in Bytes (muB glatt durch 2 teilbar 

sein). 

6 bi hl (Word): Pixelorientierte Höhe der Grafik. 

8 bi_^x (Word): Pixelorientierte X-Position der Grafik, relativ eur linken 

oberen E^ke des übergeordneten Objektes (siehe OB_X). 

10 bi_y (Word): Pixelorientierte Y-Position der Grafik, relativ sur linken 

oberen Ecke des übergeordneten Objektes (siehe OB_Y). 

12 bi_color (Word): 

0>1S = Farbe der in ib_pdata geseteten Grafikpunkte 
(0 = Hintergrundfarbe). 


APPLBLK (USERBLK) G_PROGDEF-Unterstruktur (8 Byte) 

Enthält einen Zeiger auf eine Maschinen- oder C-Routine, die bei 
Aufruf eines G_PROGDEF-Objekts (siehe OB_SPEC) ausgeführt 
wird. 

Die Struktur hat folgenden Aufbau: 

Offset: Name (Format)/Bedeutung: 

0 ub^code (Long): Zeiger auf eine Maschinen* oder C-Routine, die bei 

Objektaufruf angesprungen wird. Hiermit lassen sich beliebige 
Programme in die Objektdarstellung einbinden (s.B. um Sound- oder 
Grafikeffekte lu produsieren oder um die Formulardarstellung su be¬ 
einflussen. 

4 ub_parm (Long): Zeiger auf eine PARMBLK-Struktur, der als 

Parameter an die User-Routine übergeben wird. 
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PARMBLK APPLBLK-Unterstruktur (30 Byte) 


Enthält weitere Informationen über den aktuellen Baum, das aktuelle 
Objekt, sowie Angaben zur Objektdarstellung. 

Die Struktur hat folgenden Aufbau: 

Offset: Name (Format)/Bedeutung: 

0 pb_tree (Long): Adresse des Objektbaumes. 

4 pb_obj (Word): Nummer des betreffenden Objektes. 

6 pb^prevstate (Word): Vorheriger Objektstatus. 

8 pb_currstate (Word): Aktueller Objektstatus. 

10 pb__x (Word): Pixelorientierte X-Position des Objektes, relativ lur lin¬ 
ken oberen Ecke des übergeordneten Objektes, biw. bei 

Wuraelobjekten sum Bildschirm-Nullpunkt. 

12 pb_y (Word): Pixelorientierte Y-Position des Objektes, relativ Bur lin¬ 
ken oberen Ecke des übergeordneten Objektes, biw. bei 

Wurselobjekten £um Bildschirm-Nullpunkt. 

14 pb_w (Word): Pixelorientierte Breite des Objektes. 

16 pb_h (Word): Pixelorientierte Höhe des Objektes. 

18 pb_xc (Word): X-Position der linken oberen E^cke des aktuellen 

CHpping-Rechtecks (siehe CLIP). 

20 pb_yc (Word): Y-Position der linken oberen Ecke des aktuellen 

Clipping-Rechtecks (siehe CLIP). 

22 pb_wc (Word): Breite des aktuellen Clipping-Rechtecks. 

24 pb_hc (Word): Höhe des aktuellen Clipping-Rechtecks. 

26 pb_parm (Long): Beliebiger 82-Bit-Parameter für die User-Routine. 
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20. GEM-Adressen/-Felder 


ADDRiN AES-Adreß-Input-Block 

Var%=LPEEK(ADDRIN-t-Offset) (lesen) 

LPOKE ADDRIN-t-Offset,4-Byte-Adresse (schreiben) 

Start-Adresse des AES-Adreß-Input-Blocks. 


Für Version 3.0 

ADDRINQ Aus AES-ADDRIN-Block als Array lesen 

lDDRiN0 = 

( Ad )::: } In AES-ADDRIN-Block als Array schrei|ien 

Var%=ADDRIN(lndex) (lesen) 

ADDRIN(lndex)=d-Byte-Adresse (schreiben) 

4-Byte-IntegerfeId. Entspricht AES-Addrin-Block (Index = Offset 
DIV 4). 

ADDROUT AES-Adreß-Output-Block 

Var%=LPEEK(ADDROUT+Offset) (lesen) 

LPOKE ADDROUT+Offset,4-Byte-Adresse (schreiben) 

Start-Adresse des AES-Adreß-Output-Blocks. 


Version 3.0 

ADDROUTQ Aus AES-ADDROUT-Block als Array lesen 

ADDROUT0= 

{Addro)s} In AES-ADDROUT-Block als Array schreiben 

Var%=ADDROUT(lndex) (lesen) 

ADDROUT (I ndex)=4-Byte-Adresse (schreiben) 

4-Byte-Integerfeld. Entspricht AES-Addrout-Block (Index = Offset 
DIV 4). 
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CÖNTRL VDI - Kontrollbloclc 

Var=DPEEK(CONTRL+Offset) (lesen) 

DPOKE CONTRL+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des VDI-Kontroll-Blocks. 


I/O: 

Offset: 

Bedeutung: 

--> 

+0 

Funktions-Opcode 

--> 

+2 

PTSIN-Array-Länge, geteilt durch 2 

<-- 

+4 

PTSOUT-Array-Länge, geteilt durch 2 

•-> 

+6 

INTIN-Array-Länge 

<-- 

+8 

INTOUT-Array-Länge 

--> 

+10 

Evtl. Unterfunktions-Identifikator 

<--> 

+12 

Gerütekennung (VDI-Handle) 

<--> 

+14 bis 28 

Funktionsabhängige Informationen 


Version 3.0 

CÖNTRLO Aus VDI-CONTRL-Block als Array lesen 

CONTRL0= {CON)= } In CONTRL-Block als Array schreiben 

Var&=CONTRL(lndex) (lesen) 

CONTRL(lndex)=2-Byte-Wert (schreiben) 

2-Byte-Integerfeld. Entspr. VDI-Contrl-Block (Index = Offset DIV 2). 


GB Startadresse des Array-Zelgerblocks 


Var%=LPEEK(GB+Offset) (lesen) 

LPOKE GB+OBset,4-Byte-Adresse (schreiben) 

Start-Adresse des Pointer-Blocks für AES-Arrays. 

Offset: Bedeutung: 

+0 Zeiger auf GCONTRL-Array-Start 

+4 Zeiger auf Global-Array-Start 

+8 Zeiger auf GINTIM-Array-Start 

+12 Zeiger auf GINTOUT-Array-Start 

+16 Zeiger auf ADDRIN-Array-Start 

+20 Zeiger auf ADOROUT-Array-Start 
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GCONTRL AES- Kontroli - Block 

Var=DPEEK(GCONTRL+Offset) (lesen) 

DPOKE GCONTRL+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des AES-Kontroll-Blocks. 


I/O: 

Offset: 

Bedeutung: 

--> 

+0 

Funktions-OpcOde 

--> 

+2 

GINTIN-Array-Lange in Bytes 

<-- 

+4 

GINTOUT-Array-Länge in Bytes 

--> 

+6 

AODRIN-Array-Länge (4 Bytes/Element) 

<-- 

+8 

ADDROUT-Array-Länge <4 Bytes/Element) 


Version 3.0 

GCÖNTRLO Aus AES-CONTRL-Block als Array lesen 

GCONTRL0 = {GC)= } In CONTRL-Block als Array schreiben 

Var&=GCONTRL(lndex) (lesen) 

GCONTRL(l ndex)=2-Byte-Wert (schreiben) 

2-Byte-Integerfeld. Entspr. AES-Contrl-Block (Index = Offset DIV 2). 


GINTIN AES - Integer-Inputblock 

Var=DPEEK(GINTIN+Offset) (lesen) 

DPOKE GINTIN+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des AES-Integer-Input-Blocks. 


Version 3.0 

GINTINO Aus AES-INTIN-Block als Array lesen 

GINTINO = {Gl)« } In AES-INTIN-Block als Array schreiben 

Var&=GINTIN (Index) (lesen) 

GINTIN(lndex)=2-Byte-Wert (schreiben) 

2-Byte-Integerfeld. Entspr. AES-Intin-Block (Index = Offset DIV 2). 
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GINTOUT AES-Integer-Output-Biock 

Var=DPEEK(GINTOUT+Offset) (lesen) 

DPOKE GINTOUT+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des AES-Integer-Output-Blocks. 


Version 3.0 

GINTOUTO Aus AES-INTOUT-Block als Array lesen 

GINTOUTO = 

{GINTO)= } In INTOUT-Block als Array schreiben 

Var&=GINTOUT(lndex) (lesen) 

GINTOUT(lndex) = 2-Byte-Wert (schreiben) 

2-Byte-Integerfeld. Entspricht AES-lntout-Block (Index = Offset DIV 

2 ). 

INTIN VDI-Integer-Input-Block 

Var=DPEEK(INTIN+Offset) (lesen) 

DPOKE INTIN+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des VDI-Integer-lnput-Blocks. 


Version 3.0 

INTINQ Aus VDI-INTIN-Biock als Array lesen 

INTIN0= { INT)= y In VDI-INTIN-Block als Array schreiben 

Var&=INTIN (Index) (lesen) 

INTIN (Index)=2-B)de*Wert (schreiben) 

2-Byte-Integerfeld. Entspr. VDl-lntin-Block (Index = Offset DIV 2). 


INTOUT VDI-Integer-Output-Block 

Var= DPEEK(INTOUT+Offset) (lesen) 

DPOKE INTOUT+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des VDI-Integer-Output-Blocks. 
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Version 3.0 

INTOUTQ Aus VDI-INTOÜT-Block als Array lesen 

INTOUT0 = {INTO)= } ln INTOUT-Block als Array schreiben 

Var&=INTOUT(lndex) (lesen) 

INTOUT(lndex) = 2-Byte-Wei1 (schreiben) 

2-Byte-Integerfeld. Entspr. VDI-Intout-Block (Index = Offset DIV 2). 


PTSrN VDI- Punkt-Input-Bloick 

Var=DPEEK(PTSIN+Offset) (lesen) 

DPOKEPTSIN+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des VDI-Punkt-Input-Blocks. 


Version 3.0 

pSiNO Aus VDI-PTSIN-Block als Array lesen 

pS«N0= { Pt)= } In VDI-PTSIN-Block als Array schreiben 

Var&=PTSIN(lndex) (lesen) 

PTSIN(lndex) = 2-Byte-Wert (schreiben) 

2-Byte-Integerfeld. Entspr. VDI-Ptsin-Block (Index = Offset DIV 2). 

PTSOUT VDI-Punkt-Output-Blöck 

Var=DPEEK(PTSOUT+Offset) (lesen) 

DPOKE PTSOUT+Offset,2-Byte-Wert (schreiben) 

Start-Adresse des VDI-Punkt-Output-Blocks. 


Version 3.0 

PTSOUTO Aus VDI-PTSOUT-Block als Array lesen 

PTSOUTO = { PTSO)* } In PTSOUT-Block als Array schreiben 

Var&=PTSOUT(lndex) (lesen) 

PTSOUT(lndex) = 2-Byte-Wert (schreiben) 

2-Byte-Integerfeld. Entspr. VDI-Ptsout-Block (Index = Offset DIV 2). 
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VDIBASE VDI-Verwaltungsblöck 

Var=VDIBASE 

Start-Adresse eines Speicherbereichs, den GEM zur Verwaltung der 
VDI-Parameter einrichtet. Diese Liste ist nicht für das MEGA- oder 
Blitter-TOS gültig. In V3.0 werden hier konfuse Werte geliefert. Beim 
Standard-ROM-TOS liegt jedoch der Parameterblock für die virtuelle 
Workstation ab Adresse &HS78C. Dieser Block ist ebenfalls 308 Bytes 
lang und hat denselben Aufbau wie die GFA-VDIBASE. Die GFA- 
VDIBASE ist eine Kopie dieses Parameterblocks. In V3.0 können Sie 
also statt VDIBASE diese Blockadresse verwenden. 

Offsets: 

+0 (Word) Aktuelle Textrotation (0/900/1800/2700). 

-t-2 (Word) Clipping-Flag (1 = An/0 = Au«, «iehe CLIP). 

+4 (Long) Adrease des aktuellen Font-Headers (8x16 oder 8x8). 

+8 (Word) DDA INC (7). 

+10 (Word) Multifill-Flag. 

+12 (Word) Ansahl der Scan-Linea des akt. FOllmuaters (FOIImuater liegt 

ab LPEEK(VDIBASE+14)). 

+14 (Long) FQIlmusterdaten-Startadresse. 

+18 (Word) Points/Absolute Mode (7). 

+20 (Long) scrtchp (Puffer-Pointer/akt. Boot-Sektor 77). 

+24 (Word) scrpt2 (Minus-Offset su Lpeek(Vdibase+20) 77). Ergibt Start 

des evtl, ausführbaren Boot-Sektor-Teila -> ab Lpeek(Vdibase+20)- 
Dpeek(Vdiab8e+24) liegen die letsten 490 Bytes des Boot-Sektors 77. 
+26 (Word) Aktueller Textstil. 

+28 (Word) T_«clBt« (=0 77). 

+30 (Word) Aktuelle Polygon-FUIIfarbe. 

+32 (Word) Aktuelles FUllmuster (= DefTill Farbe,Dpeek(Vdibase+32)- 

l.Stil) 

+34 (Word) Umrandungs-Flag (an/aus siehe BOUNDARY). 

+36 (Word) Aktueller FUllatil. 

+38 (Word) Aktuelle horisontale Textausrichtung. 

+38 (Word) (0 = Links/1 = Zentriert/2 = Rechts). 

+40 (Word) VDl-Handle der akt. Workstation (GFA-BASIC). 

+42 (Word) Aktuelle Linienstartform. 

+44 (Word) Aktuelle Linienfarbe. 

+46 (Word) Aktuelle Linienendform. 

+48 (Word) Aktueller Linienstil. 

+60 (Word) Aktuelle Linienbreite. 

+62 (Long) Zeiger auf nächsten VDI-(GDOS)-Font. 

+66 (Word) Aktuelle Polymarkerfarbe. 

+68 (Word) Aktuelle Polymarkerhöhe. 

+60 (Word) Aktueller Polymarkertyp. 

+62 (Word) Relative Polymarkerhöhe. 

+64 (Long) Zeiger auf nächsten virt. Workstation-Pareuneter-Block. 
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+68 

+70 

+72 

bil 

+161 

+ 162 
+164 

+ 166 
bif 
+197 

+198 

bil 

+229 

+230 

bil 

+261 

+262 

bil 

+293 

+294 


+296 

+298 


+300 

bil 

+306 


Aufbau eines 

+0 

+2 

+4 

bis 

+36 

+36 

+38 


(Word) Ansahl der verfügbaren GEM/VDI-Fonts. 
(Word) Index des aktuellen GEM/VDI-Fonts. 


(88 Bytes) Kopie des aktuellen Font-Headers (siehe unten). 


(Word) Aktuelle Textfarbe. 

(Word) Aktueller Benutser-Linienstil. 


(16 Words) Plane 1 des Benutser-FUllmuster (Hires). 


16 (Words) Plane 2 des Benutser-Füllmusters (COLOR). 


(16 Words) Plane 3 des Benutser-Füllmusters (COLOR). 


(16 Words) Plane 4 des Benutser-Füllmusters (Hires). 


(Word) Aktuelle vertikale Textausrichtung: 

0 = baseline 

1 = halfline 

2 = ascentline 

3 = bottomline 

4 = descentline 
6 = topline 

(Word) Akt. Grafikmodus => Graphmode Dpeek(Vdibase+296)-l. 

(Word) Aktuelles Koordinatensystem: 

Normalised Device Coordinates (NDC) = 0 
Raster Coordinates (RC) =: 2 -> Standard 


(4 Words) XI, Yl, X2, Y2 der akt. Clipping-Box (siehe CUP ..TO..). 


Font-Headers 

(Word) Identifier (1 = Syitem-Font). 
(Word) Größe des Fonts in Pixel 


(32 Bytes) Font-Name als ASCII-String. 


(Word) ASCII des niedrigsten darstellbaren Zeichens. 
(Word) ASCII des höchsten darstellbaren Zeichens. 
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+40 

+42 

+44 

+46 

+48 

+50 

+52 

+54 

+56 

+58 

+60 

+62 

+64 

+66 


+68 

+72 

+76 

+80 

+82 

+84 


(Word) Abstand der top line sur base line. 

(Word) Abstand der ascent line sur base line. 

(Word) Abstand der half line sur base line. 

(Word) Abstand der descent line sur base line. 

(Word) Abstand der bottom line lur base line. 

(Word) Bit-Breite des breitesten Zeichens. 

(Word) Bit-Breite der breitesten Zeichenbox. 

(Word) Kursiv-Tolerans links. 

(Word) Kursiv-Tolerane rechts. 

(Word) Fettschrift-Flag. 

(Word) Bei underlined-Text Pixel-Dicke des Strichs. 
(Word) Hellschrift-Maske (lightening grau = &H6555). 
(Word) Kursivschrift-Maske (normal skewing = &H555S). 
(Word) Multi-Flag. 

And 1 = 0 --> Kein System-Font 

And 1 = 1 —> System-Font 

And 2 = 0 --> Keine Horiaontal-Offset-Tabelle 

And 2 = 1 —> HoriBontal-Offset-Tabelle vorhanden 

And 4 = 0 --> Font im Intel-Format (HI/LOl 

And 4 = 1 --> Font im 68000er-Format (LO/HI) 

And 8 = 0 --> Variierende Zeichenbreite 
And 8 = 1 --> Alle Zeichen gleich breit 


(Long) Zeiger auf Horisontal-Offset-Tabelle. 

(Long) Zeiger auf Character-Offset-Tabelle. 

(Long) Zeiger auf die Font-Daten. 

(Word) Summe aller 256 Scan-Line-Breiten (--> Byte-Abstand der 
Scan-Lines im Puffer voneinander). 

(Word) Ansahl der Scan-Lines des Fonts (8x8 = 8/8x16 = 16). 

(Long) Zeiger auf nächsten verfügbaren Font. 


Ab Offset +88 folgen dann 512 Bytes für die horisontale Offset-Tabelle, 
die für jedes Zeichen des Fonts separat den Bit-Abstand seiner ersten 
Scan-Line sum Font-Datenstart angibt. 
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21. Systemaufrufe 


21.1 BIOS 


BIOSO BIOS-Routinen aufrufen 

Var=BIOS(Opcode [.Parameterliste]) 

Opcode gibt die jeweilige BIOS-Funktionsnummer an. Parameterliste 
enthält die notwendigen Funktionsparameter. Sind Longwords zu 
übergeben, wird dem entsprechenden Wert ein "L:" vorangestellt. Wird 
die Angabe einer Kennung unterlassen, gelten die übergebenen Werte 
im Wordformat. 

Nach Rückkehr kann der Inhalt von DO (= Funktionsergebnis) ausge¬ 
geben (PRINT BIOS(...)), einer Variablen übergeben (A%=BIOS(...)), in 
Bedingungsabfragen (IF BIOS(...)) oder Ausdrücke (X$="BIOS-Rück- 
gabe: "+STR$(BIOS{...))) eingebunden werden. 


Var=‘BIOS(0,L:Adresse) -GETMPB- 

Überträgt den GEMDOS-Memory-Parameter-Block in einen 12-Byte- 
Puffer ab Adresse. Dieser Block besteht aus drei Zeigern; 

Adresse+O (Longword) = Memory-Free-Li st (mfl) 

Adresse+A (Longword) = Memory-AUocated-List (nal) 

Adresse+8 (Longword) = Roving-Pointer (Umlaufzeiger) 

Die beiden Memory..Lists sind folgendermaßen aufgebaut: 

1. Longword = Zeiger auf Folgeblock (link) 

2. Longword = Zeiger auf Blockstart (Start) 

3. Longword > Blocklänge (length) 

A. Longword = Process-Descriptor (own) 

Ohne genaueste TOS-Kenntnisse gibt es hier keine Anwendungsmög- 
lichkeiten. 


Var=BIOS(l,Device) -BCONSTAT- 

Liefert Auskunft, ob am angegebenen Device (Port) Bytes anliegen. 
Entspricht INP?(Device) (siehe dort). 
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Var=BIOS( 2,Device) -BCONIN- 

Wartet auf Dateneingang am Port Device. Kann ein Zeichen empfan¬ 
gen werden, wird ein 4-Byte-Wert zurückgegeben. Zu Device siehe 
INP(Device) und zum 4-Byte-Wert bei Device = 2, siehe KEYGET. 


Var=BIOS( 3,Device,Byte ) -BCONOUT- 

Gibt das angegebene Byte auf Port Device aus. Kehrt erst zurück, 
wenn Byte ausgegeben werden konnte (siehe OUT Device,Byte). 


Var=BlOS(4,Flag,L:Adresse,Anzahl,Start,Lauf werk) -RWABS- 
Liest/schreibt Anzahl Sektoren ab logischem Sektor Start von/auf 
Laufwerk in/aus Pufferbereich ab Adresse. Flag hat folgende Bedeu¬ 
tung: 


0 = Sektoren lesen 

1 = Sektoren schreiben 

2 = Sektoren gelesen 

3 = Sektoren geschrieben 


(bei Disk-Uechsel Error ) 

^ 11 II II ^ 

(Disk-Uechsel ignorieren) 

(II " ) 


Start liegt im Bereich von 0 bis zur Gesamtsektorenanzahl-1. Für An¬ 
zahl gilt dasselbe. 

Die Größe des Puffers muß 512 mal so groß sein, wie Sektoren gele¬ 
sen, bzw. geschrieben werden sollen (1 Sektor = 512 Byte). 

Laufwerk bestimmt das Laufwerk, auf welches sich die Funktion be¬ 
ziehen soll (0 = A/1 = B/2 = Hard-Disk). Ist Var = 0, so wurde feh¬ 
lerfrei gelesen bzw. geschrieben. 


Var=BIOS( 5,Exc_nummer,L: Adresse) -SETEXEC- 

Ändert den Exception-Vektor mit der angegebenen Exc_nummer auf 
Adresse. Ab Adresse muß die neue Exception-Routine liegen. 

In Var wird die Adresse des alten Vektors geliefert. Soll nur die alte 
Adresse geliefert werden, ist in Exc_nummer eine -1 zu übergeben. 


Var=BIOS(6) -TICKCAL- 

Liefert Millisekunden-Differenz zwischen zwei Timer-Ticks (20). 
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Var=BIOS(7.Lauf werk) -GETBPB- 

Liefert in Var die Adresse des BIOS-Parameterblocks für das angege¬ 
bene Laufwerk (0 = A/1 = B). Dies ist - für jedes Laufwerk getrennt 
- ein jeweils 18 Byte großer Puffer mit wichtigen Diskettendaten: 

Word 1 Byte-Größe eines Sektors. 

Word 2 Ansahl der Cluster pro Sektor. 

Word 3 Byte-Größe eines Clusters. 

Word 4 Directory-L&nge in Sektoren. 

Word 6 Größe eines FAT in Sektoren. 

Word 6 Sektomummer des 2. FAT. 

Word 7 Sektomummer des 1. Daten-Clusters. 

Word 8 Ansahl der vorhandenen Daten-Cluster. 

Word 9 Verschiedene Flags (Bedeutung unbekannt). 


Var=BIOS( 8,Device) -BCOSTAT- 

Liefert in Var Auskunft, ob am angegebenen Device (Port) Bytes aus¬ 
gegeben werden können. Entspricht OUT?(Device) (siehe dort). 


Var=BIOS(9,Laufwerk) -M EDI ACH- 

Liefert in Var Auskunft, ob die Diskette im angegebenen Laufwerk (0 
= A/1 = B) gewechselt wurde: 

0 Diskette wurde sicher nicht gewechselt. 

1 Diskette wurde möglicherweise gewechselt. 

2 Diskette wurde sicher gewechselt. 


Var=BIOS(10) -DRVMAP- 

Liefert Information darüber, welche Laufwerke zur Zeit angeschlossen 
sind. In Var wird ein Bit-Vektor zurückgegeben, dessen Bits für die 
jeweiligen Laufwerke stehen (Bit 0 für A /Bit I für B/Bit 2 für C 
etc.). Das Sytem geht grundsätzlich davon aus, daß mindestens A und 
B angeschlossen sind. Auch wenn nur A vorhanden ist, wird trotzdem 
der Wert 3 geliefert. 


Var=BIOS( 11,Status) -KBSHIFT- 

Liefert in Var den Status der Umschalt-Tasten, wenn in Status der 
Wert -1 übergeben wird. 


Bit 0 gesetzt 
Bit 1 gesetzt 
Bit 2 gesetzt 
Bit 3 gesetzt 
Bit 4 gesetzt 


Rechte <Shift>-Taste ist gedrückt. 
Linke <Shift>-Taste ist gedrückt. 
<ControI>-Taste ist gedrückt. 
<Altemate>-Taste ist gedrückt. 
<CapsLock> ist angeschaltet. 
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Bit 5 gesetzt <Altemate><ClrHome> ist gedrückt. 
Bit 6 gesetet <Altemate><Insert> ist gedrückt. 


Wird in Status ein positiver Wert übergeben, so wird dies als ge¬ 
wünschter Status nach obigem Schema interpretiert. Es können so die 
Tastendrücke simuliert werden. 

Dabei gilt dieser Status bis erneut eine der Umschalttasten gedrückt 
oder ein neuer Status BIOS(ll) zugewiesen wird. 


21.2 GEMDOS 


GEMDOSO GEMDOS-Routinen aufrufen 

Var=GEMDOS(Opcode [.Parameterliste]) 

Opcode gibt die jeweilige GEMDOS-Funktionsnummer an. Parameter¬ 
liste enthält die notwendigen Funktionsparameter. Sind Longwords zu 
übergeben, wird dem entsprechenden Wert ein "L:" vorangesellt. Wird 
die Angabe einer Kennung unterlassen, gelten die übergebenen Werte 
im Word-Format. 

Nach Rückkehr kann der Inhalt von DO (=Funktionsergebnis) ausgege¬ 
ben (PRINT GEMDOS(...)), einer Variablen übergeben 
(A%=GEMDOS{...)), in Bedingungsabfragen (IF GEMDOS(...)) oder 
Ausdrücke (XS="GEMDOS-Rückgabe: "+STR$(GEMDOS(...))) einge¬ 
bunden werden. 

Das GEMDOS ist die Hauptbibliothek zur Bereitstellung von grundle¬ 
genden Ein- und Ausgabefunktionen. 

Bei einigen GEMDOS- und BIOS-Routinen wird bei fehlerhaft aus¬ 
geführter Funktion ein Fehler-Code zurückgegeben: 


~32 Ungültige Funktionenummer. 

'33 Angegebene Datei nicht gefunden. 

'34 Angegebener Pfadname existiert nicht. 

'35 Zu viele offene Dateien. 

-36 Datei-Zugriff ist nicht möglich. 

-37 Ungültiges Datei-Handle. 

'39 Speicher ist nicht ausreichend. 

'40 Ungültige Speicherblock-Adresse. 

-46 Ungültiges Laufwerk. 

'49 Weitere Dateien sind nicht vorhanden. 
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Wird eine Null geliefert, heißt das, daß die Funktion korrekt ausge¬ 
führt wurde. 


Var=GEMDOS(0) -PTERM- 

Beendet das aktuelle Programm und kehrt zu Desktop bzw. zum Auf- 
rufer zurück. In GFA-BASIC nicht verwenden, sondern QUIT bzw. 
SYSTEM einsetzen! 


Var=GEMDOS(I) -CONIN- 

Wartet wie INP(2) oder KEYGET auf die Eingabe eines Zeichens über 
die Tastatur. Es wird ein 32-Bit-Wert (siehe KEYGET) zurückgegeben 
und das entsprechende Zeichen an der aktuellen Cursor-Position aus¬ 
gegeben. 

Auf keinen Fall <Control><C> drücken, da Absturzgefahr! 


Var=GEMDOS(2,Ascii) -CONOUT- 

Gibt das durch den Byte-Wert Ascii angegebene Zeichen an der aktu¬ 
ellen Cursor-Position auf dem Bildschirm aus. 


Var=GEMDOS(3) - AUXIN- 

Wartet auf ein am Auxilliary-Port (RS232) eingehendes Zeichen und 
gibt dessen ASCII-Code ggfs, in Var zurück. 


Var=GEMDOS(4,Ascii) -AUXOUT- 

Wartet darauf, daß das Zeichen mit dem angegebenen ASCII-Wert am 
Auxilliary-Port (RS232) ausgegeben werden kann und gibt es ggfs, 
aus. 


Var=GEMDOS(5,Ascii) -PRNOUT- 

Wartet darauf, daß das Zeichen mit dem angegebenen ASCII-Wert am 
Centronics-Port (Drucker-Port) ausgegeben werden kann und gibt es 
ggfs. aus. 
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Var=GEMDOS(6.Ascii) -RAWCONIO- 

Gibt das in Ascii angegebene Zeichen an der aktuellen Cursor-Position 
auf dem Bildschirm aus und kehrt zurück. 

Wird in Ascii der Wert 255 übergeben, wird ein 32-Bit-Wert (siehe 
KEYGET) in Var geliefert, der dem zuletzt im Tastaturpuffer einge¬ 
gangenen Zeichen entspricht (siehe INKEYS bzw. KEYTEST). Es er¬ 
folgt dann keine Ausgabe. 


Var=CEMDOS(7) -RAWCONIN- 

Ist prinzipiell mit GEMDOS(l) identisch. Das gelesene Zeichen wird 
jedoch nicht gleichzeitig ausgegeben. <Control><C> kann hiermit ge¬ 
fahrlos gelesen werden. 


Var=GEMDOS(8) -RAWNECIN- 

Absolut identisch mit GEMIX)S(7). 


V ar=GEMDOS( 9.L: Adresse) -CONWS- 

Gibt den ab Adresse liegenden String an der aktuellen Cursor-Position 
aus. Der String muß mit einem Null-Byte enden. 


Var-^GEMDOS( 10,L: Adresse ) -CONRS- 

Liest einen String von der Tastatur ein (vgl. INPUT/INPUTS). In 
Adresse ist als Byte die maximale Länge der Eingabezeile vor Aufruf 
einzutragen. Daran anschließend ist ein Puffer in der benötigten 
Größe +1 vorzubereiten. Nach String-Eingabe wird vom GEMDOS in 
Adresse+1 (und ’Var’) die tatsächlich eingegebene String-Länge und ab 
Adresse+2 der eingegebene String eingetragen. 

Auf keinen Fall <Control><C> eingeben, da Absturzgefahr! 

Tastatur-Kommandos während der Eingabe: 


<Control><H> 

<Control><I> 

<Control><J> 

<Control><M> 

<Control><R> 

<Control><U> 

<Control><X> 


Backspace (Cursor 1 Zeichen surück) 

Tab (Cursor 8 Zeichen weiter) 

Eingabe-Ende und Line Feed ausgeben 
Eingabe-Ende und Carriage Return ausgeben 
Eingegebene Zeile in neuer Zeile ausgeben 
Eingabe ignorieren, ln nächster Zeile neu. 
Eingabe löschen und Cursor an Zeilenanfang 
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Var=GEMDOS( 11) -CONSTAT- 

Liefert den Status des Tastaturpuffers (vgl. INP?(2) bzw. KEYLOOK). 

0 = Kein Zeichen verfügbar 

6553S = Zeichen verfügbar 


Var=GEMDOS( 14,Laufwerk) -SETDRV- 

Legt das angegebene Laufwerk (A = 0/B = {fC = 2 etc.) als Default- 
Laufwerk fest. Entspricht CHDRIVE Laufwerk-1. 

Im Gegensatz zu CHDRIVE liefert die Funktion in Var die Kennung 
des vorher aktiven Laufwerks. 


Var=GEMDOS(16) -CONOUTSTAT- 

Prüft Ausgabebereitschaft des Bildschirms. In GFA nicht verwenden! 


Var=GEMDOS(17) -PRTOUTSTAT- 

Liefert den Wert Null, wenn Ausgabe auf dem Drucker nicht möglich 
ist (vgl. OUT?(0)). 


Var=GEMDOS(18) - AUXIN STAT- 

Liefert den Wert &HFFFF, wenn am AUX-Port (RS232) ein Zeichen 
anliegt, sonst Null (vgl. INP?(1)). 


Var=GEMDOS(I9) -AUXOUTSTAT- 

Liefert den Wert &HFFFF, wenn der AUX-Port (RS232) zur Ausgabe 
bereit ist, sonst Null (vgl. OUT?(l)). 

Var=GEMDOS(25) -CURDRV- 

Ermittelt das aktuelle Default-Laufwerk (0 = A/1 = B/2 = C etc.). 


Var=GEMDOS(26,L: Adresse ) -SETDTA - 

Entspricht exakt der V3.0-Funktion FSETDTA() (siehe dort). 
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Var=GEMDOS(32,L: Adresse) -SUPER- 

Schaltet in den Supervisor-Modus und zurück. Im Supervisor-Modus 
ist der Supervisor-Bereich unterhalb der Adresse 2048 auch durch 
Normal-POKEs und BMOVE etc. erreichbar. 

Wird erstmalig in Adresse der Wert 0 übergeben, so wird der Super¬ 
stack mit dem aktuellen Userstack-Inhalt geladen. In Var erhält man 
dann den letzten Inhalt des alten Superstacks (unbedingt merken!). 

Das GEMDOS läuft jetzt im Supervisor-Modus (größte Vorsicht im 
Umgang mit POKEs etc.!). Dabei sind weiterhin auch GEMDOS-, 
BIOS- und XBIOS-Aufrufe möglich. 

Wird erstmalig in Adresse ein Wert <>0 übergeben, so wird dies als 
gewünschter Superstack-Inhalt interpretiert und der Superstack damit 
geladen. Auch hier erhält man den alten Superstack-Inhalt in Var zu¬ 
rück. Das System bemerkt den Wechsel der Betriebsart und registriert 
GEMDOS(32)-Aufrufe abwechselnd als User->Super-Wechsel und Su- 
per->User-Wechsel. Der nächste Aufruf nach einem User->Super- 
Wechsel lädt den Superstack mit dem in Adresse übergebenen Wert 
(der beim ersten Aufruf erhaltene Superstack-Inhalt!) und schaltet das 
System wieder in den User-Betrieb. BMOVE mit einem Ziel unter 
2048 ergibt wieder eine 2-Bomben-Fehlermeldung. Da bei dieser 
Funktion evtl, auch die Register Al und Dl verändert werden, ist sie 
unter GFA-BASIC nur mit besonderer Vorsicht einzusetzen. 

On break cont I Abbruch unterdrücken 

AX=Ge(ndos(32,L:0) I Alten Superstack holen 

Bmove 0,Xbios(2),32000 I Dies ist nur im Supervisor-Modus 

■ I möglichl 

Print "SUPER-BMOVE aus Supervisor-Bereich = OKAY I" 

Print "Supervisor-Stack ab Adresse: ",AX 
BX=Genidos(32,L:AX> I Alten Stand restaurieren 
Pause 60 
Cls 

Print "USER-BMOVE aus Supervisor-Bereich = ERROR I" 

Print "Supervisor-Stack (=USP) ab Adresse: ",BX 

Bmove 0,Xbios(2),32000 I Im User-Modus nicht möglich (Error) 


Var=GEMDOS(42) -GETDATE- 

Liefert das aktuelle System-Datum. Da das Format hier bitorientiert 
ist, ist dies wesentlich leichter mit DATES zu erfahren. 


(Var AND «X1111111000000000)+1980 = Jahr 
(Var AND &X111100000) = Monat 
(Var AND &X11110) = Tag 
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Var=GEMDOS(43,Format) -SETDA TE- 

Bestimmt das aktuelle System-Datum. Da das Format hier bit-orien- 
tiert ist, ist dies wesentlich leichter mit SETTIME zu erreichen. 

Format (vgl. GEM00S<42)): ((Jahr-1980)*2'9)+(Honat»2‘5)+Tag 

Var=GEMDOS(44) -GETTIME- 

Liefert die aktuelle System-Uhrzeit. Da das Format hier bit-orientiert 
ist, ist dies wesentlich leichter mit TIMES zu erfahren. 

(Var AND &X1111100000000000) = Stunde 
(Var AND &X11111100000) = Minute 

(Var AND &X11111)*2 = Sekunde 


Var=GEMDOS(45.Format) -SETTIME- 

Bestimmt die aktuelle System-Uhrzeit. Da das Format hier bit-orien¬ 
tiert ist, ist dies wesentlich leichter mit SETTIME zu erreichen. 

Format (vgl. GEMOOS(44)): (Stunde*2‘11)+(Minute*2'5)+(Sekunde/2) 


Var=GEMDOS(47) -GETDTA- 

Ist absolut identisch mit der V3.0-Funktion FGETDTA() (siehe dort). 

Var=GEMDOS(48) -GETVERS- 

Liefert die aktuelle GEMDOS-Versionsnummer. 


Var=GEMDOS(49,L:Bytes,Wert) -KEEP PROCESS- 

Beendet das aktuelle Programm und kehrt zum Desktop bzw. zum 
Aufrufer zurück. Dabei wird ab der Basepage des zu beendenden Pro¬ 
gramms ein Speicher von Bytes Länge reserviert. Das Programm bleibt 
also resident. Der reservierte Bereich wird vom GEMDOS nicht mehr 
vergeben. Außerdem kann an den Prozeß, zu dem zurückgekehrt wird, 
in Wert ein 16-Bit-Wert übergeben werden. In GFA-BASIC sollte 
diese Funktion nicht eingesetzt werden. Sie wird bei Accessories und 
residenten Auto-Ordner-Programmen verwendet. 
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Var=GEMDOS( 54,L: Adresse,Lauf werk) -GETDFREE- 

In Adresse ist die Startadresse eines 12-Byte-Puffers zu übergeben. In 
diesem Puffer werden von der Funktion vier Longwords abgelegt, die 
den Speicherzustand des in Laufwerk angegebenen Laufwerks (1 = 
A/2 = B/3 = C etc.) beschreiben: 

Adresse+O (Longword) - Anzahl freier Cluster auf Disk 
Adresse+4 (Longword) = Gesamt-Cluster-Anzahl der Disk 

(Standard => SingleSide = 351/DoubleSided = 711) 

Adresse+8 (Longword) = SektorgröBe in Bytes (Standard = 512) 

Adresse+12 (Longword) = Sektoren pro Cluster (Standard = 2) 

Die Anzahl freier Bytes auf Laufwerk ergibt sich aus: 

Lpeek(Adresse) * Lpeek(Adresse+12) • Lpeek(Adresse+8) 

(freie Cluster)* (Sek. pro Cluster)* (Bytes pro Sek.) 

Die Gesamtgröße von Laufwerk ergibt sich aus: 

Lpeek(Adresse+4) * Lpeek(Adresse+12) * Lpeek(Adresse+8) 

(Gesamt-Cluster) * (Sek. pro Cluster)* (Bytes pro Sek.) 


Var=GEMDOS( 57,L: Adresse) -MKDIR- 

Erzeugt einen Ordner auf der aktuellen Station (siehe MKDIR). 

In Adresse wird die Startadresse des gewünschten Ordnernamens ange¬ 
geben. Der String muß mit einem Null-Byte abgeschlossen sein (C- 
Konventionen). 


Var=GEMDOS(58,L:Adresse) -RMDIR- 

Löscht den Ordner mit dem ab Adresse liegenden Namen (Abschluß 
durch Null-Byte). Der Ordner muß leer sein (vgl. RMDIR) 


V ar=GEM DO S( 59,L: Adresse) -CHDIR- 

Wechselt das Default-Directory. Der Pfadname der neuen Default- 
Ebene muß dabei ab Adresse liegen und durch ein Null-Byte abge¬ 
schlossen sein (vgl. CHDIR). 


Var=GEMDOS(60,L:Adresse.Allribut) -CREATE- 

Erläuterung wäre hier zu aufwendig. Entspricht ungefähr OPEN "O". 
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Var=‘GEMDOS(61.L:AdresseModus) -OPEN- 

Erläuterung wäre hier zu aufwendig. Entspricht ungefähr OPEN "I" 
bzw. OPEN "U". 


Var=GEMDOS( 62,Kanal) -CLOSE- 

Erläuterung wäre hier zu aufwendig. Entspricht ungefähr CLOSE 
#’Kanar. 


Var=GEMDOS( 63,Kanal,L.Länge.L: Adresse) -READ- 

Liest Länge Bytes aus der Datei Kanal mit Ziel Adresse. Erläuterung 
wäre hier zu aufwendig. Entspricht ungefähr BGET # Ka- 
nal,Adresse,Länge bzw. INPUT # Kanal. 


Var=GEMDOS( 64,Kanal,L: Länge,L: Adresse) -WRITE- 

Schreibt Länge Bytes ab Adresse in die Datei Kanal. 

Erläuterung wäre hier zu aufwendig. Entspricht ungefähr BPUT # 
Kanal.Adresse,Länge bzw. PRINT # Kanal. 


Var=GEMDOS(65,L:Adresse) -UNLINK- 

Löscht die Datei mit dem ab Adresse liegenden Namen, der durch ein 
Null-Byte abgeschlossen sein muß (siehe KILL). 


Var=GEMDOS(66,L:Bytes,Kanal,Modus) -LSEEK- 

Versetzt den File-Pointer der Datei Kanal. 

Modus 0 Auf das Byte Bytes der Datei (vgl. SEEK #Kanal,-l-Bytes). 

Modus 1 Um Bytes Bytes ab der aktuellen Position 
(vgl. RELSEEK #Kanal,+/- Bytes). 

Modus 2 Auf das Byte Bytes - ab File-Ende gesählt 
(vgl. SEEK #Kanal,-Bytes). 

Weitere Erläuterungen wären zu aufwendig (siehe SEEK/RELSSEK). 


Var=GEMDOS( 67,L: Adresse,Modus,Attribut) -CHMODE- 

Ermittelt oder ändert das Attribut einer Datei. 

Adresse Startadresse des Dateinamens (Null-Byte-AbschluB), deren Attribut 
ermittelt oder ver&ndert werden soll. 
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ModuB Gibt an, ob das Attribut ermittelt (O) oder geändert (l) werden soll. 
Attribut Gibt Attribut an, das der Datei durch Modus = 1 gegeben werden soll. 
0 = Normal (lesen/schreiben) 

1 = Nur-Lese-Datei 

2 = Versteckte (hidden) Datei 
4 = System-Datei 

8 = Disketten-Label 

16 = Unter-Inhaltsveraeichnis 

Bei Modus = 0 ist das Attribut unwichtig, sollte aber trotsdem angege¬ 
ben werden (siehe auch FGETDTA()). 


Var==GEMDOS( 69.Kanal) -DUP- 

Ordnet einem Ausgabekanal die File-Nummer Kanal (1 - 5) zu. 
Erläuterung wäre hier zu aufwendig. Entspricht ungefähr OPEN 
#Kanal,"VID;" bzw. "CON:" bzw. "PRN:" bzw. "AUX:". 


Var=GEMDOS(70.Kanal.Standard) -FORCE- 

Ordnet dem Standard-Ausgabekanal die neue File-Nummer Kanal zu. 
Dies ist eine gegenüber GEMDOS(69) erweiterte Funktion. 

Erläuterung wäre hier zu aufwendig. Entspricht ungefähr OPEN 
"",#Kanal,"VID;" bzw. "CON:" bzw. "PRN:" bzw. "AUX:". 


Var=GEMDOS(71.L: Adresse.Lauf werk) -GETDIR- 

Schreibt in den ab Adresse liegenden Puffer den Namen des aktuell 
geöffneten Ordners auf dem angegebenen Laufwerk (0 = Aktuell/1 = 
A/2 = B/3 = C etc.). Entspricht DIRS (siehe dort). 


Var=GEMDOS(72.L:Bytes) -MALLOC- 

Entspricht exakt der V3.0-Funktion MALLOC() (siehe dort). 

Var=GEMDOS(73.L:Adresse) -MFREE- 

Entspricht exakt der V3.0-Funktion MFREE() (siehe dort). 

Var=GEMDOS(7 4.0.L: Adresse.L:Bytes) -SETBLOCK- 

Entspricht exakt der V3.0-Funktion MSHRINK() (siehe dort). 
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Var=GEMDOS(75,Modus,L:Progname,L:Command,L:Environ)-PEXEC- 
Entspricht EXEC Modus,Prognanie$,Command$,Environ$. Hier wer¬ 
den jeweils die Startadressen der Strings bzw. der Basepage übergeben, 
wobei die Strings alle mit einem Null-Byte enden müssen. Modus 
siehe unter EXEC (bei Modus 4 ist Com hier numerisch). 


Var=GEMDOS(76.Wert) -PTERM- 

Entspricht grundsätzlich GEMDOS(49) KeepProcess. Es wird Jedoch 
kein Speicher reserviert. 


Var=GEMDOS(78,L:Name_adresse,Attribut) -SFIRST- 

Entspricht exakt der V3.0-Funktion FSFIRST() (siehe dort). 

Var=GEMDOS(79) -SNEXT- 

Entspricht exakt der V3.0-Funktion FSNEXT() (siehe dort). 


Var=GEMDOS( 86,L:Alt_adresse,L:Neu_adresse,0) -RENAME- 
Ändert die Datei mit dem ab Alt_adresse liegenden Namen in den ab 
Neu_adresse liegenden Namen. Beide Strings müssen mit einem Null- 
Byte enden. Entspricht NAME bzw. RENAME (siehe dort). 


Var=GEMDOS(87,L:Adresse,Kanal.Modus) -GSDTOF- 

Ändert oder ermittelt die Datei-Zeit bzw. -Datum des Files mit dem 
angegebenen GEMDOS-Kanal. Erläuterung wäre hier zu aufwendig. 
Hat Ähnlichkeit mit dem V3.0-Befehl TOUCH #Kanal. 


21.3 GEMSYS 

GEMSYS {GE} AES-Routinen aufriii^en 

GEMSYS [[Q Opcode Dl] 

Opcode enthält die Funktionsnummer der jeweils aufzurufenden AES- 
Routine. Sollen nur die AES-Arrays verändert und dieselbe Funktion 
wiederholt werden, kann die Angabe von Opcode entfallen. 
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In V3.0 sind sämtliche AES-Aufrufe als Funktionen implementiert. 
Soweit möglich, sind die entsprechenden V2.xx-Prozeduren unter der 
jeweiligen V3.0-Funktion aufgeführt. 


21.4 VDISYS 


VDISYSiV} VDI-Routinen aufrufen 

VDISYS na Opcode DU 

VDISYS [[Q Opcode [,IJen,PJen[,ld]l Dl] (nur V3.0) 

Opcode enthält die Funktionsnummer der jeweils aufzurufenden VDI- 
Routine. Sollen nur die VDI-Arrays verändert und dieselbe Funktion 
wiederholt werden, kann die Angabe von Opcode entfallen, ln CON- 
TROL+12 ist bei VDI-Aufrufen das jeweilige Workstation-Handle zu 
übergeben. Dieses kann in V2.xx aus VDIBASE+40 ausgelesen oder - 
in V3.0 - durch V~H ermittelt werden. 

In Version V3.0 kann zusätzlich zum Opcode in I_len und P_len die 
Länge des INTIN-Arrays und des PTSIN-Arrays übergeben werden 
(siehe dort). Bei manchen Funktionen ist die Angabe eines Unter- 
funktions-Identifikators notwendig. Dieser kann ggfs, in Id übergeben 
werden. 

Die VDI-Bibliothek bietet einige sehr komfortable Routinen an, die es 
Ihnen erlauben, Ihre Programme vielfältiger auszustatten. Viele dieser 
Routinen sind vollwertig in BASIC-Befehle übernommen worden, die 
hier nicht aufgeführt zu werden müssen. Die folgenden vier Routinen 
bieten die Möglichkeit, verschiedene aktuelle Grafik-Einstellungen zu 
erfahren. Gerade für die Produktion von Utilities und Befehlserwei¬ 
terungen sind diese Routinen interessant, da solche Hilfsprogramme 
die aktuellen Einstellungen sowenig wie möglich verändern bzw. diese 
nach Abschluß der Arbeiten wieder weitestgehend restaurieren sollten. 

Für die V2.xx-Anwender wurde versucht, unter der Befehlsbeschrei¬ 
bung zu den in V3.0 neu implementierten VDI-Operationen eine ent¬ 
sprechende Prozedur anzubieten, die es dann ermöglichen soll, auch in 
V2.XX die V3.0-Vorzüge genießen zu können. Dies ist auch für dieje¬ 
nigen interessant, die in V3.0 arbeiten, aber außerdem noch V2.xx- 
Programme schreiben, um diese dann compilieren zu können. V2.xx- 
Programme mit diesen Erweiterungen lassen sich dann natürlich we¬ 
sentlich leichter in die V3.0-Syntax übertragen, sobald der V3.0-Com- 
piler verfügbar ist. 
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VDISYS 35 -CURRENT POLYLINE ATTRIBUTS- 

V_hX=Dpeek(Vdibase+40) ! VDI-Handle für VZ.xx 
' V_hX=VH I " " für V3.0 

aGetline(V_hX,*LcolX,*LtypX,*LthicX,*LstaX,*Lend*,*GmodX) 

Print "Aktuell: DEFLINE ";LtypX;",";LthicX; 

Print ",";LstaX;",";LendX 

Print " COLOR ";LcolX 

Print " GRAPHMOOE ";G(nodX 

Procedure Getline(HandleX,LIX,L2X,L3X,LAX,LSX,L6X) 

Local Buff$ 

Buff$=Hkl$(0)+Hklt(0)+Mkl$(0)+Hki$(HandleX) 

Bmove Varptr(Buff$),Contrl,H 
Vdisys 35 

•LZX^peekdntoot) I Linientyp 
"LIX^Dpeekdntout-t-Z) I Linienfarbe 
•L6X=Dpeekdntout+4) I Grafiknxxlus 
*LAX=Dpeekdntout+6) I Linienstartform 
*L5X=0peekdntout+8) I Linienendform 
"L3X=Dpeek(Ptsout) I Liniendicke 
Return 


VDISYS 36 -CURRENT POLYMARKER ATTRIBUTS- 

V_hX=Dpeek(Vdibase+AO) I VDI-Handle für VZ.xx 
' V hX=VH I " " für V3.0 

aGetmarklV hX,*McolX,*MtypX,*MsizX,"GnxxlX) 

Print "Aktuell: DEFMARK ";McolX;",";HtypX;",";MsizX 
Print " GRAPHHOOE ";GmodX 

Procedure Getmark(HandleX,M1X,HZX,M3X,HAX) 

Local BuffS 

Buff$=Mkl$(0)+Mkl$(0)+Mkl$(0)'fMki$(HandleX) 

Bmove Varptr(Buff$),Contrl,1A 
Vdisys 36 

*M1X=Dpeekdntout)+1 I Markerfarbe 
•MZX=Dpeekdntout+Z) I Harkertyp 
*MAX=Opeekdntout+A) I Grafikmo^s 
•M3X=0peek(Ptsout+Z) I MarkergröBe 
Return 


VDISYS 37 -CURRENT FIEL AREA ATTRIBUTS- 

V_hX=Dpeek(Vdibase+AO) I VDl-Handle für VZ.xx 
■ V_hX=VH I " " für V3.0 

aGetfilKV hX,*FcolX,»FtypX,*FpatX,*GmodX,*BoundX) 

Print "Aktuell: DEFFILL ";FcolX;",";FtypX;",";FpatX 

Print " GRAPHHOOE ".-GmodX 

Print " BOUHOARY ";BoundX 

Procedure Getfill(HandleX,FIX,FZX,F3X,FAX,F5X) 

Local Buff$ 

Buff$=HklS(0)+Hkl$(0)+Hkl$(0)+HkiS(HandleX} 

Bmove Varptr(Buff$),Contrl,1A 
Vdisys 37 

*FZX=Opeekdntout) I Fülltyp 
*F1X=Dpeekdntout+Z) I Füllfarbe 
•F3X=Dpeekdntout+A) ! Füllmuster 
*FAX=Dpeekdntout+6) ! Grafikmodus 
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•F5*=Dpeek(Intout+8) I P-Umrahmung (Boundary) 
Return 


VDISYS 38 -CURRENT GRAPHIC TEXT ATTRIBUTS- 

V hX=Dpeek(Vd{base+40) I VDI-Handle für V2.xx 
'~V h*=VH I " " für V3.0 

aGettext(V_hX,*TcolX,»TangX,*TwidX,*ThciX,*TbwidX,*Tbhei*,*Giixx«) 

Print " ~ Textfarbe : '';TcolX 

Print " Textwinkel : ";Tai^X 

Print " Zeichenbreite : ";TwidX 

Print " Zeichenhöhe : ";TheiX 

Print '■ Zeichenboxbreite: ";TbwidX 

Print " Zeichenboxhöhe : ";TbheiX 

Print " GRAPHHOOE ";GmodX 

Procedure Gettext(HandleX,T1X,T2X,T3X,TAX,T5X,T6X,T7X) 

Local Bufft 

BuffS^MklSlO-rMkltfOT+HkltCO+MkitCHandleX) 

Bmove Varptr(Buff$},Contrl,lÄ 
Vdisys 38 

' Dpeek(Intout) I Verwendeter VOI-Font 

•T1X=0peek{Intout+2) I Textfarbe 

*T2X=Dpeek(Intout+4) I Rotationswinkel 

' Dpeek(Intout+6) I Horiz. Textausrichtung 

' Dpeek(Intout'''8) I Vert. Textausrichtung 

•T7X=Dpeek(Intout+10)+1 I Grafikmodus 

*T3X=Dpeek(Ptsout) I Zeichenbreite 

*T4X=Dpeek(Ptsout+2) I Zeichenhöhe 

*T5X=0peek(Ptsout+4) I Zeichenboxbreite 

*T6X=Dpeek(Ptsout+6) I Zeichenboxhöhe 

Return 


VDISYS 104 -SET FIEL PERIMETER VISIBILITY- 

aBoundary(O) I Nur für V2.xx (siehe BOUNDARY) 

Deffill ,2,2 
Pcircle 100,100,80 
Procedure Boundary(FlagX) 

Local Bufft 

Bufft=Mklt(0}+Hklt(1)+Mklt(0)+Mkit(Dpeek(Vdibase+40)) 

Bmove Varptr(Bufft),Contrl,14 
Dpoke Intin,FlagX 
Vdisys 104 
Return 


VDISYS 118 -EXCHANGE TIMER INTERRUPT VECTOR- 

Procedure Vdi_timer(AdresseX,P1X) 

' - Nur in V2.XX einsetzbar - 

' Die ab Adresse liegende Naschinenroutine wird im 
' VDI-Timer-Interrupt ausgeführt. In PIX wird der 
' aktuelle Interrupt-Intervall in 1/1000 Sekunden 
' zurückgegeben und in P2X die Adresse der vorher aktiven 
’ Routine. 

Local Bufft 

Bufft=Mklt(0)+Mklt(0)+Mklt(0}+Mkit(Dpeek(Vdibase+40}) 
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Buf fS=Buf ft+HkIS(AdresseX) 

Bmove Varptr(Buff$),Contrl,18 
Vdisys 104 

*P1X=Dpeek(Intout) I Interrupt-Intervall in 1/1000 Sek. 
•P2X=Lpeek(Contrl+18) I Alte Rout inen-Adresse 
Return 


VDISYS 5 -VDl ESCAPE FUNKTIONEN- 

Unter dieser Funktionsnummer sind insgesamt 20 Funktionen zusam¬ 
mengefaßt. Sie befassen sich überwiegend mit bildschirmorientierten 
Aufgaben. 

Da die Einträge in die VDI-Arrays von der jeweiligen Unterfunktion 
abhängig sind, wird zuerst nur das einzige allgemein gültige Element 
belegt: das Handle. 

Contrl(6)=Vh I In V3.0 

Dpoke Contrl+12,Dpeek(Vdibase+40) I In V2.xx 

ln CONTRL+10 bzw. - in V3.0 - in CONTRL(5) wird Je nach ge¬ 
wünschter Unterfunktion deren Identifikator Id eingetragen. Welche 
Elemente sonst noch zu belegen sind, hängt von der jeweiligen Un¬ 
terfunktion ab. Nachdem diese Belegungen ebenfalls abgeschlossen 
sind, wird die Funktion mit VDISYS 5 ausgelöst. Anschließend können 
bei einigen Funktionen aus dem INTOUT-Array Rückgabewerte ge¬ 
lesen werden. 

Id: 

1 Zeichen-Raster des Bildechirms ermitteln. Standard: Hires u. Midres 
80*25/Lowree 40*25 

<- Zeilen=Dpeek(Intout) 

<- Spalten=Dpeek(Intout+2) 

2 Von Pixel-Text auf Zeichen-Text umschalten. 

3 Von Zeichen-Text auf Pixel-Text umschalten. 

4 Cursor eine Zeile hoch. 

5 Cursor eine Zeile runter. 

6 Cursor ein Zeichen nach rechte. 

7 Cursor ein Zeichen nach linke. 

8 Cureor in linke obere E^ke seteen (Home). 

9 Bildechirm ab Cureor löechen. 

10 Zeile ab Cureor löechen. 

11 Cursor positionieren (siehe PRINT AT(Xp,Yp)). 

-> Dpoke Intin,Yp 

-> Di>oke Intin+2,Xp 

12 String ab Cursor-Position ausgeben. Die eineelnen Zeichen des Strings 
müssen dabei der Reihe nach im INTIN-Array liegen: 

-> Dpoke Intin+l,Zeichenl 
-> Dpoke Intin+8,Zeichen2 
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-> Dpoke Intin+S,Zeichens 
etc. 

-> Dpoke Contrl't-6,String_liinge 

13 Text inven ichreiben (weiß nuf echwarx). 

14 Text normal schreiben (schwars auf weiß). 

16 Aktuelle Cursor-Position ermitteln (siehe CRSCOL/CRSLIN): 

<- Crslin =Dpeek(Intout] 

<- Crscol =Dpeek(Intout-t-2) 

16 Nachfrage, ob Maus verfügbar; 

<- Maus =Dpeek(Intout) I (0 = Nein/1 = Ja) 

17 Hardcopy ausfUhren (siehe HARDCOPY bsw. XBIOS(20)). 

18 Maus positionieren (siehe SETMOUSE): 

-> Dpoke Contrl+2,2 I 2 PTSIN-Elemente 

-> Dpoke Pttin,Xpos 
-> Dpoke Ptsin-t'2,Ypos 

102 System-Font w&hlen (siehe Prosedur Sysfont unter ASC): 

-> Dpoke Contrl+6,2 I 2 INTIN-Elemente 
-> Lpoke Intin.Fontadresse 


21.5 XBIOS 


XBIOSQ XBIOS-Routinen aufrufen 

Var=XBIOS(Opcode [.Parameterliste]) 

Nach der Rückkehr kann der Inhalt von DO (= Funktionsergebnis) di¬ 
rekt ausgegeben (PRINT XBIOS(...)), einer Variablen übergeben 
(A%=XBIOS(...)), in Bedingungsabfragen (IF XB10S(...)) oder auch 
Ausdrücke (X$="XBIOS-Rückgabe: "+STR$(XBIOS(...))) eingebunden 
werden. 

Das XBIOS ist eine erweiterte Bibliothek zur allgemeinen Verwaltung 
von Ein- und Ausgaben jeglicher Art. Kann eine Funktion nicht ord¬ 
nungsgemäß ausgeführt werden, so wird als Rückgabewert ein Fehler- 
Code geliefert. 

XBIOS-Fehlermeldungen: 


-1 Allgemeiner Fehler. 

-2 Station nicht empfangsbereit. 

-3 Unbekannter Befehl. 

-5 Ungültiger Befehl. 

’6 Track nicht gefunden. 

-7 Boot-Sektor nicht gültig. 

-8 Sektor nicht gefunden. 

-10 Schreibfehler. 

-12 Allgemeiner Fehler. 

-13 Floppy ist schreibgeschütst. 
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-14 Floppy wurde gewechselt. 

-16 Gerät unbekannt. 

-16 Fehlerhafter Sektor. 

-17 Floppy nicht eingelegt. 


Wird eine Null geliefert, heißt das, daß die Funktion korrekt ausge¬ 
führt wurde. 


Var=XBIOS( O.Typ.L: Parameter _adresse,L: Prag _adresse ) 

-INITMOUSE- 

Es kann eine eigene Maschinenroutine angegeben werden, die die 
Mausverwaltung übernimmt. Es sind mehrere Parameter über einen 
Parameterblock zu übergeben. Die Parameterstrukturen und ihre Be¬ 
deutungen sind für mich (und bestimmt nicht nur für mich) absolutes 
Niemandsland, weshalb ich hier keine weiteren Auskünfte geben kann. 


Var=XBIOS(l.Bytes) -SSBRK- 

Von einem ROM-Modul aus kann hiermit vor Installierung des Be¬ 
triebssystems direkt das Boot-ROM angesprochen werden, um am 
oberen Ende des Arbeitsspeichers die angegebene Anzahl an Bytes zu 
reservieren. 


Var=XBIOS(2) -PHYSBASE- 

Liefert die Anfangsadresse des physikalischen Bildschirmspeichers. Als 
physikalischer Bildschirm wird der Speicherbereich bezeichnet, der 
vom Video-Shifter ständig auf den sichtbaren Bildschirm übertragen 
wird. 


Var=XBIOS(3) -LOGBASE- 

Im Gegensatz zur physikalischen Screen existiert ein logischer Bild¬ 
schirm. Diese ist im allgemeinen mit der physikalischen Screen iden¬ 
tisch, solange nicht durch XBIOS(5) unterschiedliche Startadressen zu¬ 
gewiesen werden. 

Alle Bildschirmausgaben beziehen sich auf diesen logischen Bild¬ 
schirm. D.h., daß von den Ausgaben nichts zu sehen ist, wenn Phys- 
base und Logbase mehr als 32 KByte auseinanderliegen. 
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Var=XBIOS(4) -GETREZ- 

Liefert die aktuelle Auflösung des Bildschirms. 


0 = 320 • 200 Punkte (Lowres = 16 von 512 Farben) 

1 = 640 • 200 Punkte (Midres = 4 von 512 Farben) 

2 = 640 • 400 Punkte (Hires = schwarz / ueiB) 


Var=XBIOS(5,L:Logbase,L:Physbase,Resolution) -SETSCREEN- 
Der logische und physikalische Bildschirm kann an verschiedene 
Speicheradressen gelegt werden: 

Logbase Neue Startadresee der logischen Screen. 

Phyabaae Neue Startadrease der physikalischen Screen. 

Resolution 

Neue Bildschirm-Auflösung. Der dritte Parameter ist nicht im GEM- 
Betrieb nutzbar, also in GFA-BASIC uninteressant. Hier ist generell 
der Wert -1 au Ubergeben. 


Die beiden "Bildschirme" müssen an einer durch 256 teilbaren Adresse 
beginnen. Ist dies nicht der Fall, kommt es fast immer zu Abstürzen. 
Den Einsatz von XBIOS(5) können Sie in den BMOVE-Beispielen be¬ 
obachten (Prozedur Screen). Diese Funktion bildet das A und O zur 
Erzeugung flimmerfreier Animation. 


Var=XBIOS(6.L:Adresse) -SETPALETTE- 

Überträgt die ab Adresse liegenden 16 Words (32 Bytes) "en bloc" in 
die Farbregister. Das erste Word liegt dann in Register 0, das zweite in 
Register 1 usw. 

Ein Word entspricht dem unter SETCOLOR beschrieben Gesamtfarb¬ 
wert. Bei Degas-Bildern liegt z.B. die komplette Farbpalette des Bildes 
in den Bytes 3-34 der Bilddatei. Byte 1 und 2 (1. Word) enthalten 
die Screen-Auflösung, unter welcher das Bild abgespeichert wurde 
(entspricht XBIOS(4)). Die letzten 32000 Bytes der Bilildatei enthalten 
die Grafikdaten. 


Var=XBIOS( 7,Register,Farbwert) -SETCOLOR- 

Belegt das angegebene Farb-Register mit dem angegebenen Farbwert 
(entspricht SETCOLOR Register,Farbwert). 

Ist Farbwert = -1, so wird in Var der aktuelle Farbwert des angegebe¬ 
nen Registers zurückgegeben. Das Register bleibt dann unverändert. 
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Var=XBIOS( 8,L: Adresse,L:0,Lauf werk,Sektor,Track,Side,Anzahl) 

-FLOPREAD- 

Liest Sektoren von einer Diskette in einen vorbereiteten Pufferbereich. 

Adreise StartadreM« des Puffen. Der Puffer muß mindestens 512*Aneahl Bytes 
groß sein. 

Laufwerk Nummer des Laufwerks (A = 0/B = 1). 

Sektor Nummer des track-relativen Startsekton: 

(Standard; 1 - 9 -> ein Track = 9 Sektoren) 

Track Nummer des Tracks (Standard: 0 - 79). 

Side Disk-Seite (Single = O/Double = 0 oder 1). 

Ansahl Aniahl der su lesenden Sektoren: 

(Standard: max. 9-Sektor+l) 


Var=\BlOS(9,L; Adresse,L:0,Lauf'Merk,SektorTrack,Side,Anzahl) 

-FLOPWRITE- 

Schreibt Sektoren aus einem Speicherbereich auf eine Diskette. 

Die Parameter sind mit den bei XBIOS(8) (Flopread) vergleichbar. Nur 
sinngemäß umgekehrt (z.B. schreiben statt lesen). 


Var=XBIOS( lO,L:Adr,L:0,Laufw,Anz,Trck,Sid,Intrl,L;Magc,Virgn) 

-FLOPFMT- 


Formatiert einzelne Tracks. 


Adr Startadresse eines 8000-Byte-Arbeitspuffen, in dem von der Funktion 

die Track-Daten erzeugt werden. 

Laufw Laufwerk (A = 0/B = 1). 

Ans Ansahl der Sektoren, in die der Track eingeteilt werden soll (Standard: 

9). Es sind auch 10 Sektoren pro Track möglich (sog. Fat-Disks). 

Trck Nummer des Ziel-Tracks (Standard: 0 - 79). Bei Fat-Disks auch bis 81 

möglich. 

Sid Disk-Seite (Single = 0/Double = 0 oder 1). 

Interl Gibt die Reihenfolge an, in welcher die Sektoren geschrieben werden 
sollen (I?) (Standard: 1). 

Mage Longword, das verseh. Formatieren erschwert (muß &H87654321 sein). 

Virgn Word-Muster, mit dem die Sektoren gefüllt werden sollen (Standard: 

8eHE5E5 oder 0. Kann jeder beliebige Wert sein, die oberen 4 Bits der 
beiden Bytes dürfen jedoch nicht größer als 14 werden. 


Das System gibt bei Überschreiten der maximalen Track-Anzahl keine 
Fehlermeldung aus (Vorsicht!). Bei evtl, auftretenden Fehlern wird in 
Var eine Fehlernummer zurückgeliefert. Konnten beim Formatieren 
Sektoren nicht formatiert werden, so erhält man -16 (bad sectors). In 
diesem Fall steht ab Pufferanfang eine mit einem Null-Byte abge¬ 
schlossene Word-Liste der fehlerhaften Sektor-Nummern. 

Die Formatierung wird üblicherweise durch XBIOS(18) abgeschlossen. 
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Var=XBIOS(Il) Kein Effekt! 

Var=XBIOS( 12,Bytes,L:Adresse) -MIDIWS- 

Es werden Bytes+1 Bytes ab der angegebenen Adresse gelesen und als 
Einheit auf dem Midi-Out-Port ausgegeben. 

Einfacher durch: 

Open 

Print HIDI-Urite-String." 


Var=XBIOS( 13,Mfp_index,L:Adresse) -MFPINT- 

Überschreibt im MFP-Interruptvektor den Sprungzeiger mit der 
Nummer Mfp_index durch die angegebene Adresse. Dadurch wird die 
ab Adresse liegende Maschinen-Routine im Interrupt ausgeführt. 


Var=XBIOS( 14,Device) -lOREC- 

Liefert in Var die Startadresse des angegebenen I/O-Puffer-Daten- 
blocks. 

Device: 

0 RS232 (Auxilli&ry) 

1 Console (Tutatur) 

2 MIDI 

Aufbau der Datenblöcke: 

1 Longword 

Zeiger auf den jeweiligen Puffer. 

1 Word Größe des Puffers. 

1 Word Head. Zeiger auf die nächste Position hinter dem suletst eingegangenen 
Zeichen. 

1 Word Tail. Zeiger auf das als nächstes aussugebende Zeichen. Head und Tai] 

sind Umlaufseiger (Ringseiger oder "rover"). Wird das oberste Puffer- 
Byte überschritten, springen Sie wieder auf den Pufferanfang. Ist Head 
= Tail, so ist der Puffer ohne Inhalt. 

1 Word Low water mark. 

1 Word High water mark. 

Arbeitet die RS232-Schnittstelle im Handshake-Modus (XON/XOFF 
bsw. RTS/CTS siehe XBIOS(15)) und im Eingangspuffer liegen mehr 
Bytes, als in High water mark angegeben, so erhält der Sender das 
Signal XOFF bsw. CTS. Weitere Eingänge werden dann solange abge¬ 
wiesen, bis der Pufferinhalt auf die Low water mark abgesunken ist. 
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Für den RS232-Puffer wird durch XBIOS(14,0) nur die Adresse des 
Eingabe-Blocks geliefert. Der Block für den RS232-Ausgabepuffer 
liegt direkt hinter dem Block für den Eingabepuffer 
(AUX_Outputblock=XBIOS( 14,0)+l 4). 


Var=XBIOS( 15,Baud Modus.Usart,Rsr,Csr,Scr ) -RSCONF- 

Bietet die Möglichkeit, die RS232-Schnittstelle einzustellen. 

Baud (Bits pro Sek.): 


0 = 

19200 

1 

= 9600 

2 = 

4800 

3 = 

3600 

4 = 

2400 

5 

= 2000 

6 = 

1800 

7 = 

1200 

8 = 

600 

9 

« 300 

10 = 

200 

11 = 

150 

12 = 

134 

13 

« 110 

14 « 

75 

15 = 

50 


Modus (Kontrollparameter): 

0 Handshak« off (Default). 

1 XON/XOFF. 

2 RTS/CTS (RequestToSend/CloseToSend). 

3 XON/XOFF und RTS/CTS gleichseitig. 


Usart (Usart-Register). 

Bit 1 und 2 = no parity &X0....000 
• odd parity &X0....100 
= even .i.parity; &X0....110 
Bit 3 und 4 • kein Stopbit &X0..00..0 

° 1 .i.Stopbit; &X0..01..0 
= 1.5 Stopbits &X0..10..0 

> 2 Stopbits &X0..11..0 
Bit 5 und 6=8 .i.Databit;s &X000....0 

> 7 Oatabits 8X001....0 
= 6 Oatabits &X010....0 
= 5 Oatabits &X011....0 

Rar MFP-ReceiverStatuiRegister. 

Tsr MFP-TransmitterStatuaRegieter. 

Scr MFP-SynchronouiCharacterRegiater. 

Wenn ein Parameter unverändert beibehalten werden soll, ist -1 zu 
übergeben. 


Var=XBIOS( I6.L:Normal,L:Shifted,L:Capslocked)-KEYTABLE- 
Die Tastaturbelegung kann nach eigenem Bedarf organisiert werden. 
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Es existieren drei Tabellen, die die ASCII-Codes der Tasten bei drei 
verschiedenen Zuständen beinhalten. Der erste Zustand ist, wenn 
"normal" geschrieben wird, also weder <CapsLock> noch <Shift> ge¬ 
drückt ist. Der zweite tritt ein, wenn eine <Shift>-Taste gedrückt wird 
und der dritte, wenn die <CapsLock>-Taste gedrückt wurde. 

Die Tabellen sind je 128 Bytes lang. Ihre Adressen können durch diese 
Funktion ermittelt und ggfs, auch bestimmt werden. Jede Tabelle ent¬ 
hält der Reihe nach die ASCII-Codes der nach Scan-Code sortierten 
Tasten. Die Taste <F1> hat z.B. den Scan-Code 59. Soll bei Druck auf 
<F1> und gleichzeitig gedrückter <Shift>-Taste das Zeichen A ausge¬ 
geben werden, so muß in das 59. Byte der Shifted-Tabelle der Wert 65 
(ASCII für A) eingetragen werden. 

Von der Funktion wird in Var nach Abschluß ein Zeiger auf einen 
12-Byte-Block (3 Longwords) geliefert, der nacheinander die drei Ta¬ 
bellen-Adressen enthält. Wird ein Parameter mit -1 angegeben, so 
bleibt die entsprechende Adresse im Zeigerblock unverändert. 
XBIOS(16,L:-l,L:-l,L:-l) liefert nur die Blockadresse, ohne die Ein¬ 
träge zu verändern. 


On break cont 
AdrX=aKeyvec(-1,-1, -1) 


A$=SpaceS(128) 


I Break unterdrücken 
I AdrX enthält nun die Adresse der 
I Normal-Tabelle. AdrX-i-^ die der 
I Shifted- und AdrX+8 die der 
I CapsLocked-Tabelle. 

I 128-Byte-Puffer vorbereiten 
Bmove Lpeek(AdrX),Varptr(A$),128l Alte Tabelle im Puffer sichern 
BS=ChrS(242}+Chr$(243}«Chr$(244)'»Chr$(245)+Chr$(24ö) 

B$=B$+Chr$(247)+Ch r$(251)+Ch r*(252)+Ch r$(253)+Ch r*(254) 

• 1 1. Strina (F1-F10) mit ASClIs 

' I belegen 

C*=Chrt<23)+Chr${24)+Chr$(25)+Chr»(20>+Chr$(21) 
C*=C*+Chr$(22)+Chr»(17)+Chr»(18)+Chr$(19)+Chr$(16) 

• I 2. String (Ziffernblock-Zifferntasten) 

' I mit ASCIIs belegen 

I 3. String (Ziffernleiste-Zifferntaste) 

I mit gewünschten ASCIIs belegen 


For IX=17 To 25 
OS=DS+Chr$(IX) 
Next IX 
D$=D$+ChrS(16) 


HidS(A$,60,10)=B$ 

MidS(A$,104,10)=C$ 

MidS(AS,3,10)=D$ 


I ASCII der höchsten Taste (0) ist 
I niedriger als der ASCII der untersten 
I Zifferntaste (1). 

I String 1 in Puffer einsetzen 
I String 2 in Puffer einsetzen 
I String 3 in Puffer einsetzen 


Void Xbios(16,L:Varptr(A$),L:-1,L:-1) I Neue Tabellen-Adresse 


' l übergeben 

Print “FI-FIO oder Zifferntaste drücken“ 

Print " (andere Taste=Abbruch)” 

Repeat 

KeyX=IrY>(2) 

Out 5,KeyX 



Systemaufrufe 


629 


Until Key5t>25 And KeyX<242 

Void Xbios(24) ! Alte Tabellen restaurieren 

Um bei riskanten Änderungsversuchen hinterher die Tastatur noch be¬ 
nutzen zu können, wird hier das Break unterbunden, damit auf jeden 
Fall XBIOS(24) ausgeführt wird. Dadurch wird der ursprüngliche Zu¬ 
stand wieder hergestellt und die Tastatur kann wieder normal verwen¬ 
det werden. 


Var=XBIOS(17) -RANDOM- 

Liefert eine 24-Bit-Zufallszahl (vgl. RANDOMO). 

Diese Funktion habe ich so in eine DEFFN-Funktion abgeändert, daß 
eine Bit-Zahl angegeben werden kann. Wird z.B. als Bit-Zahl 4 über¬ 
geben, ist die höchste zurückgelieferte Zufallszahl eine &X1111 = 15. 
Die höchste verwendbare Bit-Zahl ist dabei 24. 

Do 

Print BinSOZufal 1(4)) 14^4 Bit-Zufallszahl 

Loop 

Deffn Zufall(LiinX)=Xbios(17) And ((2'(LimX Hod 25))-1) 


21.5.1 


Aufbau einer Diskette 
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Inhalt und Aufbau der alles entscheidenden Disketten ist wohl den 
meisten Lesern ein Buch mit den berühmten sieben Siegeln. "Alles 
entscheidend" deshalb, weil unser ST ohne diese kleinen "Schwabbel- 
Scheiben" (engl.: Floppy-Disk) nun mal nicht auskommt. 

So eine Diskette sieht eigentlich nicht besonders exklusiv aus. Es han¬ 
delt sich um dünne Kunststoffscheiben, die mit einer magnetischen 
Oberfläche beschichtet sind. Die Daten werden grundsätzlich in der 
gleichen Verfahrensweise in diese magnetische Schicht eingraviert, wie 
wir es von Magnet-Tonbändern her kennen. Der Unterschied ist der, 
daß bei einem Tonband die Informationen analog zu der dem Tonkopf 
zugeführten Spannung übertragen werden, d.h. daß hier je nach Qua¬ 
lität des Gerätes und des Bandes eine sehr große Frequenzspanne vor¬ 
liegen kann. 

Bei einer Diskette werden ausschließlich digitale Informationen verar¬ 
beitet. Der "TonkopP überträgt also nur zwei Frequenzen. Die zu 
übertragenden Daten werden bitweise interpretiert und je nachdem, ob 
ein Bit gesetzt oder leer ist, entweder ein hoher oder ein niedriger Ton 
gesendet. Die Frequenz dieser beiden unterschiedlichen Töne hinter¬ 
läßt dann auf der Magnetschicht ganz charakteristische Spuren. 

Da sich die Diskette während des Schreibens und Lesens ständig um 
ihre Achse dreht, ist der Gedanke nicht fern, sie in konzentrische 
Kreise Kreise einzuteilen. Womit wir auch schon bei den mysteriösen 
Tracks (engl.: Spuren) angekommen sind. Sind Sie im Besitz eines 
besseren Formatier-Programms, wird Ihnen schon aufgefallen sein, 
daß die Anzahl an Tracks, die sich auf einer Diskette befinden, auch 
bei gleichem Diskettentyp unterschiedlich sein kann. Man hat dort also 
die Wahl, ob man die Diskette in 40, 80, 81 oder 82 Tracks (je Dis¬ 
kettenseite) einteilen möchte. Das bedeutet nichts anderes, als daß nun 
der zur Verfügung stehende Teil des Diskettenradius’ physikalisch in 
die gewünschte Track-Anzahl unterteilt wird. 

Weiterhin wird Ihnen vielleicht aufgefallen sein, daß auch die Anzahl 
der Sektoren variabel sein kann. Wird z.B. eine einseitige Diskette mit 
82 Tracks zu je 10 Sektoren formatiert, stehen Ihnen 82*10 » 820 
Sektoren zu je 512 Byte (820*512 = 419840 Byte) zur Verfügung. Da 
man auf diese Weise ca. 60 Kilobyte pro Diskettenseite mehr an 
Speicherplatz erhält, wird dieses Diskettenformat häufig verwendet. 

Aus einem ganz bestimmten Grund erweist es sich jedoch oft als 
nachteilig, seine Diskette derart platzsparend einzurichten. Das Be¬ 
triebssystem des ST ist in seinen Kopier- und Formatier-Utilities auf 
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das großzügigere "720-Sektoren-pro-Seite"-Format ausgerichtet und 
man hat so keine Möglichkeit, ohne spezielle Kopierprogramme seine 
Disketten zu vervielfältigen. Sie werden also üblicherweise Disketten 
vorfinden, die mit 80 Tracks zu je 9 Sektoren (80*9 = 720 Sektoren) 
ausgestattet sind. 

Wer nun schnell mitgerechnet hat, kommt bei einseitigen Disketten auf 
eine Byte-Zahl von 720*512 = 368640 Bytes. Nach dem Formatieren 
mit dem Desktop-Formatter werden jedoch nur 357376 als frei gemel¬ 
det. Das liegt daran, daß das System sich einen "hübschen Batzen" von 
22 Sektoren zur Diskettenverwaltung, also für Boot-Sektor, File-Allo- 
cation-Tables (engl.: Datei-Zuteilungs-Tabelle) und Directories ab¬ 
kneift. Es bleiben also nur noch 698 Sektoren (698*512 = 357376 By¬ 
tes) übrig. Ein erfreulicherweise für die meisten Zwecke völlig aus¬ 
reichender Speicherplatz. Bei zweiseitigen Disketten steht die zweite 
Seite vollständig zur Datenspeicherung bereit, da diese 22 Sektoren nur 
von der ersten Seite abgezogen werden. Nach erfolgter Standard-For¬ 
matierung einer zweiseitigen Diskette wird Ihnen ein freier Speicher¬ 
platz von 726016 Bytes gemeldet ((698+720)*512 = 726016 Bytes). 

Nun sind gleich drei Begriffe gefallen, deren Erklärung zum Ver¬ 
ständnis der Disketten-Organisation unumgänglich ist. Was sind ei¬ 
gentlich Sektoren? Sektoren sind die kleinste Einteilungsgröße auf der 
Diskette. Sie bestehen generell aus 512 Byte. Während ein Track eher 
eine technische Einheit ist, ist der Sektor zur Verwaltung der Diskette 
notwendig. 



Bei Diske-tten^ nit: denen 
das TOS geladen wird,, steht 
in diesen Bereich das TOS— 
Rootprogrann. 

Bei Nornal—Disketten kann 
dieser Bereich für eigene 
Daten verwendet werden . 


|5 ES ES 
ES ES ES 
ES ES ES 






9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999909999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
9999999999999999 
99999999999999B^ 



lAlle Mord — Daten sind in MS~DOS'-Forna't' 
kerst Low-jdann Highbyte) abgelegt. l 

lOer Bootsektor ist inner auf Track | 

ktor 1, Seite 6 »u finden._, 
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Boot-Sektor 

Jede Diskette verfügt über einen solchen. Er ist generell auf Sektor 0 
(Seite 0, Track 0) einer Diskette zu finden. Nach erfolgter Formatie¬ 
rung einer Diskette werden hier grundlegende Informationen zur Dis- 
ketten-Organisation festgeschrieben (siehe unter XBIOS(18)). 

Bei genauester Kenntnis der Materie ist es auch möglich, ihn nach¬ 
träglich zu modifizieren, um so z.B. versteckte Tracks zu erzeugen. 



le ersten dre 

3yte der FAT 

I sind grundsätz¬ 
lich als belegt 
gekennzeichnet. 
Index des i. 
Datenclusters 
ist 1 nn e r 2 ! 


File-Allocation-Table 

Wie der Name schon sagt, wird hier den Dateien etwas zugewiesen. 
Wird eine Datei eingerichtet, werden in den FAT-Sektoren (üblich 
2*5) die Sektoren eingetragen, die von dieser Datei belegt werden. 

Eine FAT muß immer so groß sein, daß für jeden Sektor der Diskette 
eineinhalb Byte (12 Bit) zur Verfügung stehen. Üblicherweise werden 
pro Diskette zwei FATs angelegt, wovon die zweite direkt auf die er¬ 
ste folgt. Wurde z.B. eine einseitige Disk mit 80 Tracks zu je 9 Sekto¬ 
ren formatiert, muß eine FAT mindestens INT(((80*9)*1.5)/512)+1 = 3 
Sektoren groß sein. Standardmäßig wird eine FAT grundsätzlich für 
eine doppelseitige Diskette ausgelegt (INT(((80*2*9)*1.5)/512)+1 = 5), 
woraus sich die übliche FAT-Größe von 5 Sektoren ergibt. 
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Da die erste FAT üblicherweise auf Sektorl in Track 0 der Seite 0 ei¬ 
ner Diskette direkt hinter dem Boot-Sektor liegt, folgt die zweite in 
diesem Fall also auf Sektor 6. Die FAT beginnt immer mit der 3- 
Byte-Konstante &HF7FFFF. Was jetzt folgt, ist nichts für schwache 
Nerven. Hier handelt es sich um einen echten Disketten-Dschungel. 

Da sich durch ständiges Erstellen neuer und das Löschen alter Dateien 
die Cluster-Belegung auf der Diskette wie Spaghetti ineinander ver- 
knäult, haben sich die TOS-Bauer hier etwas ganz besonderes einfallen 
lassen. 

Um nicht für jede neue Datei, die angelegt wird, neuen Speicherplatz 
zu verschwenden, wird in der FAT jeder Cluster, der nicht bzw. nicht 
mehr benötigt wird, mit einem 12-Bit-Wert von Null gekennzeichnet. 

Wird nun eine Datei angelegt, geht das System die gesamte FAT durch 
und sucht der Reihe nach nach unbelegten Cluster-Plätzen. Dies macht 
es solange, bis die Anzahl der gefundenen Cluster (1 Cluster = 1024 
Byte) ausreicht, um die Datenmenge der neuen Datei unterzubringen. 
Die Nummer des ersten gefundenen freien Clusters wird dann in der 
Direktory in das 27. und 28. Byte des neuen Direktory-Eintrags ge¬ 
schrieben. 

Cluster Ein Cluster besteht immer aus zwei Sektoren und der erste 
Daten-Cluster liegt direkt hinter den Direktory-Sektoren 
(üblicherweise ab Sektor 18). Die Cluster-Zählung beginnt 
bei Sektor 18 mit dem Index 2 (Sektor 18 und 19 = Cluster 
2, Sektor 20 und 21 = Cluster 3 usw.). 

Da wir aber konfuserweise nicht im ST-Format arbeiten, sondern im 
MS-DOS-Format, steht im 27. Byte das LO-Byte und im 28. Byte das 
HI-Byte dieser Zahl. Um die Nummer des ersten belegten Clusters 
dieser Datei zu erfahren, muß man also diesen Wert aus dem Direk- 
tory-Eintrag der betreffenden Datei auslesen. 

Die durch die Datei belegten Cluster ermittelt man nun, indem man 
mit dieser Clusternummer nun in die FAT geht. Und zwar an den 
FAT-Platz, der für diesen betreffenden Cluster reserviert ist. Dort 
steht nun die Nummer des nächsten von dieser Datei belegten Daten- 
Clusters. 

Nun springt man in den FAT-Platz, der nun wieder für diesen Cluster 
reserviert ist usw., bis man auf einen Platzeintrag mit dem Wert 
&HFFF trifft. Dieser Wert stellt die Endmarkierung einer Datei dar. 
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D.h., daß der Cluster, in dessen FAT-Platz der Wert &HFFF steht, der 
letzte dieser bestimmten Datei ist. 

Um jetzt feststellen zu können, welches Byte innerhalb dieses letzten 
Daten-Clusters das letzte Byte der Datei ist, wird die Anzahl der ge¬ 
lesenen Cluster mit der im Direktory eingetragenen Dateilänge verg¬ 
lichen. Ist die Datei z.B. 2466 Byte lang, muß also das 418. Byte 
(2466-2*1024) das letzte Byte der Datei sein. 

Damit nicht genug! Daß ein Cluster zwei Sektoren umfaßt, wissen Sie 
bereits. Wenn eine einseitige Diskette 720 Sektoren hat, denkt man 
sich, daß demnach also 360 Cluster vorhanden sein müßten! Weit ge¬ 
fehlt! Im Normalfall hat eine 720-Sektoren-Diskette nur 351 Daten- 
Cluster. 

Das liegt daran, daß die ersten 18 Sektoren (normalerweise!) für Boot- 
Sektor, FATs und Haupt-Direktory ausgenommen sind. Aus diesem 
Grund sind die ersten beiden FAT-PIätze mit &HF7FFFF belegt. So 
einfach ist das! 

Um das Chaos noch perfekt zu machen, müssen auch die Einträge der 
FAT-Plätze verdreht gelesen werden (MS-DOS). Es ist schon kompli¬ 
ziert genug, aus jeweils drei Byte für zwei FAT-Plätze immer die 
Halb-Bytes zu selektieren. Daß man nun auch noch die drei einzelnen 
Nibbles (je 4 Bit) auch noch vertauschen muß, setzt dem Ganzen die 
Krone auf. Das kann passieren, wenn das Betriebs-System eines beste¬ 
henden Computers einfach (und das so schnell wie möglich) aufeinen 
neuen Computer "aufgesetzt" wird (MS-DOS: Microsoft-Disk-Opera- 
ting.System -> TOS: Tramiel-Operating-System). 
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Directory 

Ein Directory (engl.: Adreßbuch) beinhaltet üblicherweise die Namen 
aller Dateien, die jemals (seit der letzten Formatierung!) auf dieser 
Diskette angelegt wurden. Es sei denn, der Dateiname wurde per Mo¬ 
nitor komplett gelöscht. Es ist grundsätzlich 7 Sektoren groß und der 
erste Direktory-Sektor liegt üblicherweise direkt hinter dem letzten 
Sektor der zweiten (bzw. letzten) FAT. 

Wurden Dateien gelöscht (z.B. Desktop-Papierkorb oder KILL-Funk- 
tion), wird der erste Buchstabe des Dateinamens durch das SIGMA- 
Zeichen (&HE5E5) ersetzt und der entsprechende FAT-Eintrag mit 
einer Null-Byte-Folge gelöscht. Die Länge dieser Folge ist ist von der 
Größe der gelöschten Datei abhängig. 

War die Datei z.B. 5000 Bytes groß, so hat sie (INT(5000/512)+1)) 10 
Sektoren an Speicherplatz belegt (eine Datei beginnt immer mit dem 
ersten Byte des nächstfreien Sektors). Wie oben beschrieben, belegt ein 
Sektor 1.5 Bytes in der FAT, woraus sich eine Null-Byte-Folge von 
(10*1.5) 15 Bytes ergibt. 

Im Anschluß an die jeweiligen Datei- und Ordnernamen enthält ein 
Direktory-Eintrag zusätzliche Informationen über Datum und Uhrzeit 
der Datei-Erstellung, über Datei-Atrribute sowie über Dateilänge und 
Start-Cluster. 
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Ein Direktory-Eintrag hat immer eine Länge von 32 Bytes, woraus 
sich 16 mögliche Einträge pro Direktory-Sektor ergeben. Wie Sie wis¬ 
sen, kann man auf einer Direktory-Ebene max. 112 Dateien ablegen. 
Jetzt wissen Sie auch, woher diese Zahl kommt: 7 Sektoren mal 16 
Einträge sind max. 112 Einträge pro Direkory. Sie können allerdings 
Ordner anlegen, die dann wieder jeder 112 weitere Einträge auf neh¬ 
men können. Es bestehen dann außer dem Hauptverzeichnis noch so 
viele Unter-Verzeichnisse, wie Ordner vorhanden sind. 

Die Lage eines Unter-Verzeichnisses auf der Diskette ergibt sich aus 
dem im Direktory hinter dem Ordner-Namen eingetragenen Start- 
Sektor. Wenn Sie ein großer Freund der Ordnung sind, bedenken Sie 
bitte, daß für jeden angelegten Ordner 7 Sektoren (3584 Bytes) an 
Speicherplatz "verschwendet" werden und einmal gemachte Ordner- 
Einträge im Haupt-Direktory nicht wieder entfernt werden, auch 
wenn man den Ordner löscht. Hatten Sie z.B. 10 Ordner angelegt und 
alle wieder gelöscht, bleibt trotzdem nur noch eine freie Eintragszahl 
im Direktory von 102 Datei-Einträgen. Sie können das revidieren, in¬ 
dem Sie die - nun überflüssigen - Ordner-Einträge im Direktory mit 
Null-Bytes überschreiben. Dabei müssen allerdings alle Einträge, die 
hinter der Löschung liegen, um eine Position nach vorn verschoben 
werden, damit keine Lücken im Direktory entstehen. Das System 
durchsucht bei der Datei-Suche nur bis zum ersten Null-Eintrag. 

Dateinamen hinter einer Null-Lücke werden dann also nicht mehr 
gefunden und können auch nicht mehr auf dem Direktory (oder durch 
FILES, DIRS, FILESELECT etc.) sichtbar gemacht werden. Dies ist 
übrigens eine interessante Möglichkeit, versteckte Dateien zu produ¬ 
zieren. 


Var=XBIOS( 18,L: Adresse,L:0,L: Serie Typ,Tos _Jlag)-PROTOBT- 
Schreibt die angegebenen Daten in einen ab Adresse liegenden Boot- 
Sektor, erzeugt die 2-Byte-Checksumme und trägt sie in die letzten 
zwei Bytes des Puffers ein. 


AdresBc StartadresM eines S12-Byte-Pu(fers, in dem der vorbereitete Boot- 
Sektor liegt. 

Serie 24-Bit-Wert, der die Seriennummer der Diskette darstellt. Wird ein 

Wert gröBer tHFFFFFF Obergeben, so wird ein eufUliger Wert er- 
»eugt. 

Typ Beschreibt den Disk-Typ (Media); 

0 = 40 Tracks - einseitig (252) 

1 = 40 Tracks - zweiseitig (253) 

2 = 80 Tracks - einseitig (248) 

3 = 80 Tracks - einseitig (249) 
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Abhängig von dem hier übergebenen Wert wird von der Funktion der 
Media-Descriptor erzeugt und eingetragen. 

Toi_flag Gibt an, ob ez sich um eine ausführbaren Boot-Sektor inkl. Boot- 
Programm handelt (z.B. Disketten-TOS). 

0 = Diskette ohne Boot-Programm 
1 = Diskette mit Boot-Programm 

Wird in einem der letzten drei Parameter der Wert -1 übergeben, so 
bleibt der entsprechende Eintrag im Sektor unverändert. 


Var=XBIOS (64.Blil%) -blitmod- 

-Nur mit Blitter-TOS- 

Fragt den Blitter-Status ab, bzw. schaltet den Blitter ein oder aus. 
BUt%: 

-1 In Var wird der TRUE (-1) oder FALSE (0) geliefert (an/aus) 

0 Blitter ausschalten 

1 Blitter anschalten 
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21.5.2 Disketten formatieren 

Wer möchte nicht gern seine Disketten selbst formatieren können. Es 
folgt nun eine ausführliche Beschreibung jedes einzelnen Schrittes, der 
zu einer Formatierung notwendig ist. Auch wenn Sie später doch lie¬ 
ber die Desktop-Formatier-Routine verwenden, können Sie so wich¬ 
tige Einblicke in die Organisation einer Diskette gewinnen. 

Legen Sie bitte eine unformatierte Leerdiskette in Laufwerk A. Ich 
gehe hier nun davon aus, daß diese Diskette einseitig mit 80 Tracks 
und 9 Sektoren pro Track standardmäßig formatiert werden soll. 
Möchten Sie Ihre Disketten mit Spezialformaten versehen, bleibt das 
später Ihrer Phantasie und Experimentierfreude überlassen. 

' Zuerst wird die Diskette rein physikalisch in Tracks und Sektoren 
' eingeteilt. Damit das auch professionell aussieht, verwandle 
' ich den Bildschirm in ein "Desktop". 

I 

Deffill ,2,4 I 

Pbox 0,17,639,399 
Print At(36,1);''F0RMATIEREN'' 

Deffill ,0,0 
Pbox 150,100,490,299 
Pbox 153,103,487,296 
Pbox 154,104,486,295 
Print At(24,10);''Formatieren" 

Print At(24,12);"In Arbeit .." 

Box 180,230,460,248 
Deffill ,2,2 I 

I 

X$=Space(8000) I Arbeitspuffer vorbereiten 

For 1X=0 To 79 I 80 Tracks... 

Void Xbios(10,L:Varptr(X$),L:0,0,9,I*,0,1,L:&H87654321,&HE5) 

' ...der Seite 0 mit je 9 Sektoren auf Disk A: formatieren 
Pbox 180,230,180+280/80*(IX+1),248 
Next IX 
Deffill ,2,4 

Pbox 0,17,639,399 I Screen löschen 

I 

' Um eine frisch formatierte Diskette verwenden zu können, muB vorher 
• der Boot-Sektor und die FAT auf der Diskette eingerichtet werden. 

I 

’ Das Wichtigste ist dabei, zu wissen, wie ein Boot-Sektor aufgebaut 
' ist. Bei allen folgenden Uord-Uerten ist zu beachten, daB sie im 
' MS-DOS-Format angelegt sind, d.h. daß die High- und Low-Bytes 
' miteinander vertauscht sind (z.B. &HB16E wird als &H6EB1 gelesen). 

I 

Boot$=Mki$(0) I Branch 

I 

' Die ersten 2 Bytes sind ein Zeiger auf ein Boot-Programm, das 
' dann ggfs, ab dem 31. Byte des Boot-Sektors zu installieren 
' ist (z.B. bei TOS-Boot-Disketten oder bei Disk-Viren (!?)). 

' Da es sich hier un eine Standard-Disk handelt, lasse ich 
' diesen Zeiger unberücksichtigt - also Null. 


I - Screen-Aufbau 
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Boot$=Boot$+Stringt(6,‘‘N") ! ’Loader' 

I 

' Die Bytes 3-8 sind ein sogenannter "Loader". Der Inhalt dieser 
' 6 Bytes ist nur dann von Interesse, wenn die ersten zwei Byte 

' auf ein Boot-Programm zeigen. 

' Hier sind diese 6 Bytes mit N belegt, wie es die Desktop- 
' Formatier-Routine ebenfalls tut. 

I 

Boot$=Boot$+"000'* ! Serial 

I 

■ Die nächsten 3 Byte (9, 10 u. 11 = 2A Bit) gelten als Puffer für 
' den an XBI0S(18) übergebenen 2A-Bit-Uert (ggfs. Zufallszahl), 

' der als Seriennummer interpretiert wird. 

■ 

Boot$=Boot$'*-HkiS<&H2) I BPS *> MS-DOS (entspricht &H200) 

I 

■ Byte 12 und 13 enthalten als Word die Anzahl der Bytes pro Sektor. 

' Dies ist standardnäBig der Uert 512 (&H200 -> in MS-DOS: &H2 s.o.). 
' Da ich mit diesem Uert noch nicht experimentiert habe, kann ich 
' nicht sagen, ob es möglich ist, auch mehr oder weniger als 

■ 512 Bytes pro Sektor zuzuordnen. 

I 

Boot$=Boot$+Chr$(2) I 'SPC 

I 

' Byte 14 enthält als Byte die Anzahl der Sektoren pro Cluster. 

■ Dies ist üblicherweise der Uert 2. Auch mit diesem Uert habe 
' ich noch keine Experimente angestellt. 

I 

Boot$=BootS+Hki$(&H100) I RES -> MS-DOS (entspricht &H1) 

I 

' Byte 15 und 16 enthält als Uord die Anzahl reservierter Sektoren. 

' üblich: 1 (&H1 -> in MS-DOS: &H100 s.o.). Damit ist der Boot-Sektor 
' selbst gemeint. 

I 

Boot$=Boot$+Chr$(2) I FAT 

I 

■ Byte 17 ist wieder ein Byte und enthält die Anzahl der FATs 
' (File-Allocation-Tables). üblich: 2. Jede Eintragsänderung 

' in der 1. Haupt-FAT wird auch gleichzeitig in der Reserve-FAT 
' durchgeführt. Ist evtl, eine FAT beschädigt, kann die Diskette 
' trotzdem noch gelesen werden, wenn man die unbeschädigte 
' FAT auf die beschädigte kopiert. 

I 

Boot$=Boot$+Mki$(&H7000) I 'DIR' -> MS-DOS (entspricht &H70) 

I 

■ Byte 18 und 19 sind wieder ein MS-DOS-Uord, das die max. Anzahl 

■ der Einträge pro Direktory (inkl. Ordner) angibt. 

' Üblich: 112 (SH0070 -> in MS-DOS: &H7000). Uenn Sie einen anderen 
' Uert verwenden möchten, sollten Sie darauf achten, daß er durch 
' 16 teilbar ist. 

I 

Boot$=Boot$+Mki$(&HD002) ! 'SEC -> MS-DOS (entspricht &H2D0) 

I 

■ Bytes 20 utkI 21 enthalten als MS-DOS-Uord die Gesamtanzahl der 

' Sektoren auf der Diskette. Hier 720 (&H2D0 -> in MS-DOS: &HD002) 
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Einseitig 

/ 

Zweiseitig 

80 

T racks 

Je 

9 Sektoren 

pro 

Seite = 

720 

/ 

1440 

81 

T racks 

Je 

9 Sektoren 

pro 

Seite = 

729 

/ 

1458 

82 

Tracks 

je 

9 Sektoren 

pro 

Seite = 

738 

/ 

1476 

80 

Tracks 

je 

10 Sektoren 

pro 

Seite = 

800 

/ 

1600 

81 

Tracks 

je 

10 Sektoren 

pro 

Seite = 

810 

/ 

1620 

82 

Tracks 

je 

10 Sektoren 

pro 

Seite = 

820 

/ 

1640 


Boot$=BootS+Chr$(248) I 'MEDIA' 

I 

' Das Byte 22 ist der sogenannte Media-Descriptor. Er ist bei 
' einseitigen 80-Track-Disketten auf 248 und bei zweiseitigen 
' 80-Track-Disketten auf 249 festgelegt und wird ggfs, durch 
' XBIOS(18) nachgetragen. 

I 

Boot$=Boot$+Mki$(&H500) I SPF -> MS-DOS (entspricht &HS) ' 

' Byte 23 und 24 gibt als MS-DOS-Uord die Anzahl der Sektoren 
• pro FAT an. üblich: 5 (&H5 -> in MS-DOS: &H500). 

' Sie können auch weniger als 5 FAT-Sektoren festlegen, solange 
' für jeweils einen Diskettensektor eineinhalb Bytes (12 Bits) 

' Platz darin enthalten sind (siehe 21.5.1 "Aufbau einer Diskette") 

I 

Boot$=Boot$+Mki$(&H900) I SPT -> MS-DOS (entspricht &H9) ' 

' Die Bytes 25 und 26 sind ein MS-DOS-Uord, das die Anzahl an 
' Sektoren pro Track enthält, üblich: 9 (&H9 -> in MS-DOS: &H900). 

' Es sind auch 10 Sektoren pro Track möglich. Mehr können vom 
' GEMOOS nicht verarbeitet werden. 

I 

Boot$=Boot$+Mki$(&H100) t SIDE -> MS-DOS (entspricht &H1) 

I 

' Bytes 27 und 28 sind wieder ein MS-DOS-Uord mit der Anzahl der 
' Seiten der Diskette. 

' Einseitig : 1 (&H1 ST -> in MS-DOS: &H100) 

' Zweiseitig: 2 (&H2 ST -> in MS-DOS: &H200) 

I 

Boot$=Boot$+MkiS(0) I HID 

I 

' Das letzte bedeutungsvolle Uord gibt in den Bytes 29 und 30 
' die Anzahl versteckter Sektoren an. Standard ist 0. 

' Versteckte Sektoren werden bei der Platzvergabe an die 
' Dateien durch das GEMOOS "übersehen". 

I 

Boot$=Boot$+String$(30,"N")+String$(12,0) 

Boot$=Boot$+String$(3,245)+Chr$(&HFE)+Chr$(&H4F) 

Boot*=Boot$+Chr$(0)+Chr$(1)+Chr$(2)+Chr$(&HF7) 

Boot$=Boot$+Stringl(22,"N")+String$(12,0) 

Boot$=Boot$+String$(3,245)+ChrS(&HFB)+String$(391,&HE5) 

I 

' Die Daten dieses Blocks bedürfen keiner Erklärung. Es handelt 
' sich um die Bytes 31 bis 510, die bei Standard-Disketten keine 
' erkennbare Bedeutung haben. 

' Bei ausführbaren Disketten (siehe Uord 1) ist hier das Boot-Programn 
' zu finden. 

' Dieser Block ist hier so aufgebaut, wie es die Formatier-Routine 
' des Desktops auch tut. Dabei besteht auch zwischen ein- und 
' zweiseitigen Disketten kein Unterschied. Dieser Block ist immer 
' gleich aufgebaut. 
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BootS=Boot$+Hki$(&HO) I 'CHECKSUH' 

I 

' Zun SchluB wird noch ein Word als Puffer für die 
' Check-Sunne sngehängt. Dieser Wert wird von XBIOSdS) dort 
' eingetragen. 

I 

' Die Check'Sunme ergibt sich daraus, daß alle Words des Boot-Sektors 
' addiert werden (inkl. Check-Sunne). Soll der Boot-Sektor ausführbar 
' sein, ist die Check-Sume als Ausgleichs-Word für die Sunme aller 
' übrigen 205 Words anzusehen. Das letzte Word (LO-Word) der gesamten 
' Sunme (inkl. Check-Suime) muB dann den Hexwert $1234 ergeben. 

I 

' Ein Boot-Programm muß mit RTS enden urd 
' darf keine GEM-Aufrufe enthalten. 

I 

' Wenn Sie es sich einfach machen wollen, können Sie natürlich auch 
' einen fertigen Boot-Sektor von einer "sauberen" Diskette 
' durch XBIOSlB) oder BI0S(4) in einen Puffer laden und die gewünschten 
' Daten einzeln eintragen. 

' Für den XBI0S(8)- bzw. XBI0S(9)-Aufruf liegt der Boot-Sektor in 
' Sektor 1 von Track 0 auf Seite 0. Für den BI0S(4)-Aufruf liegt er 
' im logischen Sektor 0. 

I 

' Den fertigen Boot-String schicke ich nun durch die 

■ Boot-Sektor-"Waschanlsge" XBIOSdS): 

I 

Void Xbios(18,L:Varptr(Boot$),L:&H1FFFFFF,2,0) 

I 

' Dabei wird durch den Wert &H1FFFFFF gesagt, daB ein Zufallswert 
' als Seriermunner dienen soll. Durch 2 wird der Disktyp übergeben 
' (2=80 Tracks einseitig) und durch die Null gilt der Boot-Sektor 
' als nicht ausführbar. 

I 

' Der Boot-Sektor ist fertig. 

I 

' Der nächste Schritt ist notwendig, um die Diskettenverwaltung 
' des GEMDOS auf den neuesten Stand zu bringen. Sonst kann es 
' passieren, daß die Speicherplatz-Ermittlung (siehe GEMDOS(54)) 

' nicht mehr funktioniert. 

I 

Void Bios(7,0) I BIOS-Parameter-Block holen 

I 

' Da die Diskette komplett formatiert wurde, muß der neue Boot-Sektor 
' auf der Diskette abgelegt und anschließend die FATs erzeugt werden. 

I 

' Der Boot'Sektor wird einfach entweder mit: 

I 

Void Xbios(9,L:Varptr(Boot$),L:0,0,1,0,0,1) 

■ 

' oder mit 

' VOID BIOS(4,3,L:VARPTR(Boot$),1,0,0) 

' auf die Diskette in Laufwerk A geschrieben. 

I 

' Die Erfahrung zeigt, daß es ratsamer ist, den Boot-Sektor über 
' das XBIOS auf die Diskette zu schreiben. In sehr seltenen 
' Fällen kann es bei der BIOS(4)-Variante zu Störungen kommen. 

' Warun das so ist, kann ich Ihnen leider nicht verraten. ' 

' Aus oben genanntem Grund wird noch einmal der BIOS-Parameter-Block 
' angefordert. 
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Void Bios(7,0) ! BIOS-Parameter-Block holen 

I 

' Nun zur FAT. 

' Der erste FAT-Sektor besteht bei einer neu formatierten Diskette aus 
' lediglich den ersten drei Byte, die ininer &HF7FFFF enthalten und den 
' restlichen 509 Null-Bytes. Die übrigen Sektoren derselben FAT 

■ bestehen ausschließlich aus Null-Bytes. Dies ist wichtig, wenn 

' beim Formatieren der Diskette durch XBIOS(IO) kein Null-Byte zum 
‘ Füllen verwerxJet wurde. 

' Die erste FAT liegt immer direkt hinter dem 

' Boot-Sektor und direkt daran schließt sich dann die zweite FAT an 
' (siehe 21.5.1 "Aufbau einer Diskette"). 

I 

' Im obigen Fall müssen also 2 mal 5 Sektoren für die beiden FATs 
' hergerichtet werden. 

I 

A$=Mki$(&HF7FF)+Chr$(&HFF)+String$(2557,0) I 1.FAT 
AS=AS+A$ I 1. + 2.FAT 

Void Bios{A,3,L:Varptr(A$),10,1,0) ! FATs schreiben 

I 

' Wie unter "Aufbau einer Diskette" bereits erwähnt 
' finden Sie immer direkt hinter der 2. (bzw. letzten) FAT 
' das Haupt-Direktory der Diskette, das üblicherweise 7 Sektoren 
' unfaßt. Aus dieser Sektorenfolge ergibt sich, daß bei 
' Starxiard-Disketten der erste Daten-Sektor auf Sektor 18 
' liegt (1 Boot-Sektor + 2*5 FAT-Sektoren ♦ 7 Direktory-Sektoren). 

I 

' Wer dies weiß, hat dadurch eine sehr einfache Methode 

' zur Verfügung, eine Diskette komplett zu "löschen": 

I 

' A$=Hki$(&HF7FF)+Chr${&HFF)+String$(2557,0) 

' A$=A$+A$+String$(512*7,0) 

• Void Bios(4,3,L:V8rptr(A$),17,1,0) 

I 

' Durch diesen simplen Dreizeiler werden die FATs und 

' das Direktory mit einem "unschuldigen" Standard-Block 

' von 17 Sektoren einfach überschrieben. Voraussetzur^g 

' dazu ist allerdings, daß die Diskette im Standard- 

' (Desktop-)Format schon korrekt formatiert wurde. 

' Das Diskettenformat (ein- oder doppelseitig) ist dabei 

' egal. Die vorher auf der Diskette vorhandenen Datei-Daten 

' werden nun durch neue Spei eher-Vorgänge einfach 

' überschrieben. 

I 

' Sollte die Diskette ein außergewöhnliche Anordnung 

' der FATs und des Direktories haben, müßten die A$=-Zeilen 

' entsprechend geändert werden. 

I 

' Uenn bis jetzt alles glatt gegangen ist, dann ist die 
' in Laufwerk A befindliche Diskette standardmäßig 

■ komplett und korrekt formatiert. 

' Es folgt nun eine Routine, die Ihnen den kompletten 

■ Boot-Sektor und die Disketten-Daten auf dem Bildschirm 

' anzeigt. Dazu holen wir uns den neuen Boot-Sektor von der 

■ Diskette und übergeben ihn an diese Prozedur. 


Void Bios(4,2,L:V8rptr(Boot$),1,0,0) 
ashowboot(BootS) 
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Um zu überprüfen, ob auch der Datei-Zugriff funktioniert, 
speichern Sie bitte dieses Formatierungsprogramm durch 
Save,A ab und laden es durch Merge wieder in den Speicher. 
Das müBte reibungslos geklappt haben. 


Bootsektor 1 «alt» 

Iii4ii7iiel2i4ii 




mm 


. . . J J J ^-444444444 
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Alert 1,"Freier Speicher :| j "+Str$(Dfree(0))+"| ",1,"Return",A% 


' Als krönenden AbschluB lassen wir uns noch den freien 
' Speicherplatz der neuen Diskette ausgeben. 


Procedure Showboot(Bootsek$) 

Local AS,AX,JX,IX,ByteX 
At=Hki$(&HA000)+HkiS(&H2009)+Hkit(&H4E75) 
Void Fre(O) 

AX=Varptr(A$) 

Lpoke Intin,Lpeek{C:AX()+4) 

Dpoke Contrl+2,0 
Dpoke Contrl+6,2 
Dpoke Contrl+10,102 
Vdisys 5 
Graphmode 1 
Deffill ,0,0 
Pbox 3,301,225,395 
Box 3,301,226,396 


I 

I 

I- 8x8-Font 
! einschalten 
I 
! 

!--■ 

!--. 

! 

! 

I 
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Pbox 3,4,162,298 
Box 3,4,163,299 

Print At(2,2);"Boot-Scktor ";Str$(FlX) 

Print At(2,3);".“ 

Print At(2,4);"1234567890123456" 

Print At(2,5);"." 

For JX=0 To 31 
Print At(2,Crslin); 

For IX=0 To 15 

Byte*=Peek(Varptr(Bootsek$)+IX+JX*16) 
If ByteX=0 
Out 5,Asc(“.'') 

Else 

Out 5,ByteX 


- Screen- 
Aufbau 


l-.i 

I 32 Zeilen 

I Zu je 16 Bytes 
I Zeichen lesen 
I Byte =0? 

I Dann Punkt schreiben 
I Byte >0 

I Zeichen ausgeben 


Endif 
Next IX 
Print "|";JX+1 
Next JX 

Print At(2,39);"Bytes pro Sektor : I-. 

Print Cvi(HidSCBootsekS,13,1}+HidS(Bootsek$,12,1)) 

Print At(2,40);“Sektoren pro Cluster; 

Print Asc(HidS(Bootsek$,14,1)) 

Print At(2,41);"Reservierte Sektoren: 

Print Cvi(Mid$(Bootsek$,16,1)+Mid$(Bootsek$,15,1)) 

Print At(2,42);“Anzahl der FATs : 

Print Asc(Hid$(Bootsekt,17,1)) 

Print At(2,43);"max. Einträge in Dir: 

Print Cvi(HidSCBootsekS,19,1)+MidS{BootsekS,18,1)) 

Print At(2,44);“Anzahl der Sektoren : 

Print Cvi(HidS(BootsekS,21,1)+HidS(BootsekS,20,1)) I- Disk- 
Print At(2,45);”Media Descriptor : I Daten 

Print Asc(HidS(BootsekS,22,1}) I lesen 

Print At(2,46);"Sektoren pro FAT : I und 

Print Cvi(HidS(BootsekS,24,1)'<'MidS(BootsekS,23,1)) I ausgeben 
Print At(2,47);“Sektoren pro Track ; “; 

Print Cvi(MidS(BootsekS,26,1)+HidS(BootsekS,25,1)) 

Print At(2,48);“Seiten pro Disk : "; 

Print Cvi(MidS(BootsekS,28,1)+HidS(BootsekS,27,1)) 

Print At(2,49);“versteckte Sektoren : “; 

Print Cvi(MidS(BootsekS,30,1)+HidS(BootsekS,29,1))l-' 

Void Fre(O) I Garbage Collection 

AX=Varptr(AS) I-. 

Lpoke Intin,Lpeek(C:AX()+8) I- 8x16-Font ein 

Vdisys 5 I....i 

Return 


Mit dieser "Showboot"-Routine haben Sie so ganz nebenbei auch die 
Möglichkeit, Ihre Disketten auf Disk-Viren zu untersuchen. Ist näm¬ 
lich auf einer normal erscheinenden Diskette im Boot-Sektor ein Boot- 
Programm untergebracht und die ersten zwei Bytes des Boot-Sektors 
sind nicht Null, so ist höchste Vorsicht angebracht. Sollte es tatsächlich 
ein Virus sein, so kann es sein, daß schon ein Großteil Ihrer Disketten 
verseucht ist. Manche Viren sind so hartnäckig, daß sie sich bei jedem 
Diskettenzugriff, der intern BIOS(7) auslöst, selbstständig wieder in 
den Boot-Sektor kopieren. 
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Um einen solchen Disk-Virus loszuwerden, benötigen Sie eine garan¬ 
tiert "gesunde" Diskette, die bei Systemstart in Laufwerk A liegt. Nun 
können Sie sich mit dem eben erworbenen Wissen an die Säuberung 
des Boot-Sektors bzw. der Boot-Sektoren machen. Sobald jedoch ein 
Virus unbemerkt auf einer Diskette überlebt und Sie haben diese Dis¬ 
kette bei Systemstart in A liegen, geht das ganze wieder von vorn los. 
Das eben gesagte gilt wohlgemerkt nur für die Disk-Viren, die sich 
über das Boot-Programm einschleusen. 

Viren, die in irgendwelche Programme eingebaut wurden, sind dage¬ 
gen um ein Vielfaches hartnäckiger und wesentlich schwerer zu fin¬ 
den. Meist ist dieser Virentyp auch um Einiges bösartiger (zerstörte 
Dateien, beschädigte Schreib/Leseköpfe ect. etc.). Bei Computer-Viren 
aller Art (es sei denn, es sind Spaß-Viren), gilt immer höchste Alarm¬ 
stufe, da ja evtl, nicht nur Sie davon betroffen sein können, sondern 
mit jeder infizierten Diskette und jedem infizierten Programm der 
Virus weitergegeben wird. Welche verheerenden Wirkungen (auch fi¬ 
nanzieller Art) das haben kann, mußten schon einige Software-Firmen 
und Anwender bitter erfahren. An Virus-Produzenten zu appellieren, 
ihre pubertären Ambitionen im Zaum zu halten, hat wohl wenig Sinn. 

Deshalb hilft da nur die Wachsamkeit jedes Einzelnen. 


Var=XBIOS( 19,L: Adresse.L:0.Lauf werk,Sektor,Track,Side,Anzahl) 

-FLOPVER- 

Vergleicht (verifiziert) den/die angegebenen Disketten-Sektor(en) mit 
dem ab Adresse liegenden Speicherbereich. Die Parameter sind diesel¬ 
ben wie bei XBIOS(8) (Flopread). 

Stimmen die Diskettendaten mit den Speicherdaten nicht überein, so 
steht ab Adresse eine mit einem Null-Byte abgeschlossene Word-Liste 
der fehlerhaften Sektor-Nummern. 


Var=XBIOS(20) -SCRDMP- 

Es wird eine Hardcopy ausgedruckt. Entspricht HARDCOPY in V2.xx, 
<Alternate><Help> bzw. der Desktop-Funktion "Bildschirm drucken". 

HARDCOPY in V3.0 funktioniert geringfügig anders (siehe dort). 


Var=XBIOS( 21,Modus,Frequenz) -CURSCONF- 

Mit dieser Funktion kann der TOS-Cursor beeinflußt werden. 




646 


Das große GFA-BASIC-Buch 


Modus 0 = Cursor aus 1 = Cursor an 

2 = Cursor blinken 3 = Cursor nicht blinken 

4 = Neue Frequens setzen 5 = Aktuelle Frequenz holen 
Rate (Nur wenn Modus = 4) Gibt in 1/70 (Hires) bzw. 1/50 (COLOR) 

Sekunden die Blinkfrequenz des Cursors an. Ein Wert von z.B. 35 läßt 
den Cursor in Hires zweimal in der Sekunde blinken. 


Bei Modus = 5 wird die aktuelle Frequenz in Var zurückgegeben. 


Var=XBIOS(22.L: Adresse ) -SETTIME- 

Entspricht den GEMDOS-Funktionen 43 und 45. Die dort getrennten 
Angaben sind hier zu einem Longword kombiniert, das ab Adresse 
liegen muß. Das Datum liegt dabei im Hl-Word des Longwords und 
die Zeitangabe im LO-Word (Format s. GEMDOS(43)/GEMDOS(45)). 


Var=XBIOS(23) -GETTIME- 

Liefert in Var einen 4-Byte-Wert. Diese Funktion entspricht den 
GEMDOS-Funktionen 42 und 44 (siehe dort sowie unter XBIOS(22)). 

Var=XBIOS(24) -BIOSKEYS- 

Wurde mit XBIOS(16) (Keytable) die Tastaturbelegung geändert, kann 
hiermit der Urzustand wiederhergestellt werden, falls Sie nicht die 
Belegung so geändert haben, daß die normale Tastaturbelegung außer 
Kraft gesetzt ist und man keine "vernünftigen" Zeichen mehr eingeben 
kann (siehe Beispiel unter XBIOS(16)). 


Var=XBIOS( 25,Bytes,L: Adresse) -IKBDWS- 

Sendet einen String von Bytes-1 Bytes an den Tastaturprozessor (IKBD 
= Intelligent Keyboard). Der String wird ab Adresse gelesen. Ausführ¬ 
liche Erläuterungen hierzu finden Sie unter OUT. 


Var=XBlOS(26,Mfp_index) -JDISINT- 

Der Interrupt im MFP-Vektor mit der Nummer Mfp_index kann 
hiermit gesperrt werden. 

Der MFP-Chip fungiert im ST als Interrupt-Controller. In einem 
Vektor sind hier 16 Interrupt-Routinen aufgeführt, die nacheinander 
bei jedem Interrupt ausgeführt werden. 
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Mfp_index: 

0 Centronics Strobe. 

1 RS232 DCD. 

2 RS232 CTS (RS232-Empninger bereit, Daten senden) 

3 Nicht belegt. 

4 RS232-Baud-Raten~Generator (Timer D) (frei sur eigenen Belegung, 
siehe XBIOS(31)) 

5 Timer C (Systemtakt setsen, Sound-Verarbeitung). 

6 ACIA-Kontrolle (Tastatur, MIDI, Joystick-Ports). 

7 Disk-Controller, DMA. 

8 HBL-Zähler (Timer B). 

9 RS232-Output-EtTor (Transmitter-Status in RS232-Parameter- 
Block). 

10 RS232-Output-Pufrer leer (Sendebereitschaft, Sende-Register setaen). 

11 RS232-Input-Error (Uber High water oder falsche Parity 

-> Empfangs-Status löschen) 

12 RS2S2-Input-PuRer leer (unter Low water) (Data-Empfang sulassen) 

13 System Clock (Timer A - reserviert). 

14 RS232-Ring-Indicator (Ring-Zeiger). 

15 Monochrom Monitor Detect. 


Var=XB!OS( 27 Mfpjndex) -JENABIN- 

Der Interrupt im MFP-Vektor mit der Nummer Mfp_index wird wie¬ 
der zugelassen (siehe XBIOS(26)). 


Var=XBIOS( 28,Byte,Register) -GIACCES- 

Ermittelt bzw. verändert die Inhalte der Sound-Register. (Bedeutung 
der Register siehe XBIOS(32)). 

Byte Byte-Wert, der in das mit Register angegebene Sound-Register ge¬ 

schrieben werden soll. Byte wird nur berücksichtigt, wenn in Register 
das Bit 7 gesetst ist. 

Register 

Die unteren 4 Bits dieses Byte-Wertes bestimmen das gewünschte 
Sound-Register (0 - 15). Ist das höchste Bit (Bit 7) dieses Bytes ge- 
setat, wird der Wert Byte in das angegebene Sound-Register 0+(2''7) 
bis 16+(2'‘7) geschrieben. 

Ist das Bit 7 nicht gesetat, so wird der aktuelle Inhalt des Registers in 
Var geliefert. Vorsicht: Register 14 und 15 haben nichts mit der Sound- 
Verarbeitung EU tun, sondern sind für die Floppy da (Funktion unbe¬ 
kannt, siehe XBIOS(29)/XBIOS(30)). 

Beispiel: 

For IX=0 To 15 

Print "Inhalt des Sound-Registers ";IX;" = 

Print Xbios(28,0,IX And SHFF) 

Next IX 
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Var=XBIOS( 29,Vektor) -OFFGIBIT- 

Sound-Chip-(Floppy/DMA)-Port-A-Bits setzen. Vektor ist ein 7-Bit- 
Vektor, dessen Bits angeben, welche Funktion angeschaltet werden 
soll. 

Vektor: 

Bit 0 Disk-Seite 0. 

Bit 1 Disk-Station A an. 

Bit 2 Disk-Station B an. 

Bit 3 RS232 RTS (RequestToSend) an. 

Bit 4 RS232 DTR (DataTerminalReady) an. 

Bit 5 Centronics Strobe Busy. 

Bit 6 GPO GeneralPurposeOutput-Pin an. 

Beispiel: 

For IX=1 To 10 

Void Xbios(29,&X110) 

Print At(10,10);"Diskette einlegen" 

Pause 5 

Void Xbios(30,&X10) 

Print At(10,10);« " 

Pause 5 
Next IX 


Var=XBIOS( 30,Vektor) -ONGIBIT- 

Soundchip-(Floppy/DMA)-Port-A-Bits löschen. Vektor ist ein 7-Bit- 
Vektor, dessen Bits angeben, welche Funktion ausgeschaltet werden 


soll. 


Vektor: 

Bit 0 

Disk-Seite 1. 

Bit 1 

Disk-Station A aus. 

Bit 2 

Disk-Station B aus. 

Bit 3 

RS232 RTS (RequestToSend) aus. 

Bit 4 

RS232 DTR (DataTerminalReady) aus 

Bit 6 

Centronics Strobe Not Busy. 

Bit 6 

GPO GeneralPurposeOutput-Pln aus. 


Beispiel siehe unter XBIOS(29). 


Var=XBIOS( 31 ,Timer,Control,Data,L: Adresse) -XBTIMER- 

Installiert eine MFP-Timer-Interrupt-Routine und startet den MFP- 
Timer bzw. verändert das Control- und Data-Register des betreffen¬ 
den Timers (siehe XBIOS{26). 
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Timer Gibt den gewünschten MFP-Timer an: 

Timer A = 0/B = 1/C = 2/D = 4 

Control Wert, der in das Kontroll'-Register des betreffenden Timers geschrieben 
wird. 

Data Wert, der in das Data-Register des betreffenden Timers geschrieben 

wird. Die Nutsung dieser beiden Parameter setst eine genaue Kenntnis 
der Hardware-Bedingungen des MFP 68901-Chips voraus. 

Adresse Wird -1 übergeben, bleibt die alte Timer-Routine erhalten. Ist Adresse 
größer Null, so wird dies als Startadresse der neuen Routine gewertet. 


Var=XBIOS(32.L:Adresse) -DOSOUND- 

Hiermit kann ein vorgegebener Sound-String auf Interrupt-Ebene ab¬ 
gearbeitet werden. Der SOUND- und WAVE-Befehl benötigt eine ge¬ 
wisse Zeitspanne, um den eingestellten Sound zu verarbeiten. 
XBIOS(32) kümmert sich dagegen nicht um das laufende Programm, 
sondern arbeitet im Hintergrund auf Interrupt-Ebene selbstständig 
weiter. Es ist also möglich, beliebige Programmabläufe mit Geräuschen 
und Klängen zu untermalen. Dazu sind in den ersten 14 Registern des 
Sound-Chips nach Bedarf bestimmte Werte zu setzen, die sich die 
Funktion aus dem String abholt. Außerdem können über drei spezielle 
Kommandos, die in den String integriert werden, drei weitere Funk¬ 
tionen bestimmt werden, die dann von der Dosound-Interrupt-Routine 
ausgeführt werden. Hat man sich einen solchen Sound-String zusam¬ 
mengebastelt, wird dessen Anfangsadresse in Adresse an XBIOS(32) 
übergeben. Wird als Adresse -1 angegeben, so erhält man in Var die 
Speicheradresse, deren Inhalt gerade gespielt wird. 


21.5.3 Interrupt-Sound 

Die Struktur dieser XBIOS-Funktion ist nicht gerade einfach zu hand¬ 
haben und liefert bei nur einem falsch gesetzten Register oder Befehl 
einen konfusen Klang- und Rauschsalat. Bei richtiger Handhabung 
können jedoch hiermit ganze Musikstücke mehrstimmig abgespielt 
werden. 

ln den String werden mit einem vorangestellten Kommando-Byte ver¬ 
sehene Daten-Bytes geschrieben, wobei die Reihenfolge gleichgültig 
ist, solange immer ein Byte-Paar (eine Ausnahme!) zusammen in den 
String geschrieben wird und die "Logik" der Kommando-Reihenfolge 
erhalten bleibt. 

Folgende Kommando-Bytes sind gültig: 
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0 

1 

2 

3 

4 

5 

6 

7 


8 

9 

10 
11 

12 

13 


128 

129 


Diesem Kommando folgt ein Byte, das mit seinen 8 Bits das LO-Byte 
der Periodendauer für den 1. Sound*Kanal bestimmt (0 - 256). 

Das diesem Kommando folgende Byte bestimmt mit seinen unteren 4 
Bits das HI-Byte der Periodendauer des 1. Sound-Kanals (0 - 15). 

Wie 0, jedoch für 2. Sound-Kanal. 

Wie 1, jedoch für 2. Sound-Kanal. 

Wie 0, jedoch für 3. Sound-Kanal. 

Wie 1, jedoch für 3. Sound-Kanal. 

Das hierauf folgende Byte bestimmt mit den unteren 6 Bits die 
Rauschgenerator-Frequeiu (0 - 63). 

Das folgende Byte bestimmt, welche Sound-Kan&le aktiviert werden 
sollen. Dabei werden die Bit-Werte für die aktiven Kanäle vom Wert 
255 abgesogen, i.B.: 
deXllllllll (266) = Alle Kanäle aus 
&X11111110 (254) =: Kanal 1 an 
AXllllllOl (253) = Kanal 2 an 
AXlllllOll (251) = Kanal 3 an 
äeXllllOlll (247) = Rauschen für Kanal 1 an 
äeXlllOllll (239) = Rauschen für Kanal 2 an 
dcXllOlllll (223) = Rauschen für Kanal 3 an 
3cX11000000 (192) = Alle Kanäle mit Rauschen an 
4eX11011001 (217) = Rauschkanal 3, Sound-Kanal 3 
und Sound-Kanal 2 an 

etc. 

Achten Sie darauf, daß keine Werte kleiner als 192 verwendet werden, 
da sonst die Floppy-Ports im Sound-Chip angesprochen werden und 
dies unvorhersehbare Folgen haben kann. 

Das folgende Byte bestimmt in den unteren 4 Bit die Lautstärke für den 
Sound-Kanal 1 (0 - 15). 

Wie 8, jedoch für 2. Sound-Kanal. 

Wie 8, jedoch für 2. Sound-Kanal. 

Mit folgendem Byte wird die Feinabstimmung für HQIlkurven-Länge vor¬ 
genommen (Sustain/Hüllkurvenfrequens 0 - 255). 

Wie 11, jedoch für Grobabstimmung (0 - 255). 

Das folgende Byte bestimmt mit dem oberen Nibble die Hullkurvenform 
(8 - 16): 

8 = \|\|\j\|\ • Minus-Sägezahn, anfangs fallend 

9 = \_ s Anfangs fallend, haltend 

10 = WV/W * Dreieckwelle, anfangs fallend 

11 = \j = Attack/Cut, anfangs fallend 

12 = /!/|/|/|/| = Plus-Sägezahn, anfangs steigend 

13 = /_ = Anfangs steigend, haltend 

H = /\/\/\/\/\ - Dreieckwelle, anfangs steigend 

15 = /|_ = Attack/Cut, anfangs steigend 

Speichert das folgende Byte (0 - 255) in einem Zwischenspeicher. 

Bildet die einsige Ausnahme bezüglich der Byte-Paare. Diesem 
Identifikations-Byte müssen immer 4 weitere Bytes folgen. Diese Byte- 
Folge bewirkt, das der mit 128 iwischengespeicherte Wert in das mit 
Byte 1 bestimmte Sound-Register geladen wird und dieser Wert nach 
einer bestimmten Zeitspanne (Byte 4/50) im Register um den Wert von 
Byte 2 erhöht wird. 

In Byte 3 wird ein End wert bestimmt, bei dessen Erreichen dieser 
Prozeß abgebrochen wird. 

Byte 1 = Betreffendes Sound-Register (0 - 13) 

Byte 2 = Schrittweite (0 - 255) 

Byte 3 = Endwert (0 - 255) 
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Byte 4 = Zeitintervall (0 - 256) 

130 Alle Werte ^ößer 120 haben dieselbe Kommandowirkung, 

bis Das hierauf folgende Byte gibt eine Zeitspanne in 1/50 Sekunden an. 

255 Die Routine , wird für die angegebene Zeitspanne versögert bew. bei 

Übergabe einer Null beendet. Durch WAVE 0 oder einen einfachen 
Tastaturklick kann die Routine ebenfalls beendet werden. 


Soll der Tastaturklick ausgeschaltet werden, kann dies durch SPOKE 
&H484,PEEK(&H484) AND NOT 1 erreicht werden. Durch OR 1 statt 
AND NOT 1 wird der Klick wieder eingeschaltet .(siehe Kapitel 22 
"Systemvariablen"). Bei der Komplexität dieses Themas wird man als 
jemand, der es erklären soll, sehr schnell dazu verleitet, etwas falsches 
oder oberflächliches zu sagen. Gerade zum Thema "Dosound" sind 
schon viele Halbheiten verbreitet worden. 

Es gibt in der Interrupt-Sound-Programmierung soviele "wenns" und 
"abers", daß man eine umfassende Erklärung aller Umstände nicht im 
engen Rahmen liefern kann. 

Um Ihnen die Möglichkeit zu geben, trotzdem etwas damit zu experi¬ 
mentieren, habe ich ein kleines Programm geschrieben, das Ihnen da¬ 
bei weitestgehend freie Hand läßt. Das Programm erklärt sich selbst 
und ist - so glaube ich - so komfortabel, daß damit schon einiges zu 
erreichen ist. Bei Programmstart wird eine Zahlenreihe von 0 bis 31 
dargestellt, unter welcher der jeweilige Inhalt des enstsprechenden 
Bytes eines 32 Byte langen Strings eingetragen ist. Dieser String ist 
hier auf 32 Bytes beschränkt, da ich das Programm nicht zu sehr aus¬ 
weiten wollte. Möchten Sie einen längeren Sound-String bearbeiten, so 
ließen sich bei entsprechender Änderung des Programms auch mehrere 
Kolonnen untereinander darstellen. Durch Mausklick auf die Kolon¬ 
nenwerte kann der Inhalt des gewählten Bytes verändert werden. 

Möchten Sie den eingestellten Sound hören, so können Sie den String 
durch PLAY initialisieren. Er wird dann solange gespielt, bis die 
Maustaste wieder losgelassen wird. Alles weitere ist aus dem Listing 
und den Help-Texten zu erkennen. 

A$=String$(32,0} I Puffer-String vorbereiten 

Deftext ,0,,6 I .-.. 

Text 10,142,"linke Maustaste = +" I 

Text 10,150,"rechte Maustaste = -" I 

Text 10,158," -> = rechts rotieren" I 

Text 10,166," <- = links rotieren" I 

Text 10,174,"<Help> = Element kopieren" I 

Text 10,182,"<Delete> = Element löschen ... I 

... (letztes Element wird Null)"l 
Text 10,190,"<Insert> = Element einfügen ... I 
... (letztes Element fällt raus}"l 
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Box 6,130,470,196 I 

Deftext ,0,,4 I 

For IX=0 To 31 I- Screen- 

Text I**20+6,80,Str${I*) I Aufbau 

Box IX*20-1,70,(IX+1)*20-1,110 I 

Next IX I 

Text 10,62,240,"PLAY LOAD SAVE QUIT ** DOSOUND •*" 

Line 1,86,638,86 I 

Line 1,88,638,88 I 

Line 1,89,638,89 I 

Line 1,109,638,109 I 

For IX=0 To 3 I 

Box 0,50,39+IX*40,68 I 

Box 1,51,38+IX*40,67 I 

Next IX I 

SPline I.' 

Do I Endlos-Schleife 

PX=Mousex/20 I Maus-X-Index holen 

If Housey>50 And Mousey<68 And Housek I Maus auf Menü? 

If PX<2 I PLAY? 


Void Xbios(32,L:Varptr(A$)) I Sound-String starten 
Graphmode 3 I XOR-Modus für Indexbox 

Get 0,90,639,110,BgS I Kolonne als Image Speicher 
Repeat I Play-Schleife 

BtX=Xbios(32,L:-1) I Aktuelles Byte ermitteln 
Box (BtX-Varptr<AS))*20,90,(BtX-Varptr(A$))*20+18,108 
Print At(1,1);"Spiele Byte: ";Peek(BtX) I Byte anzeigen 
Until Mousek=0 I Exit, wenn Maustaste = 0 

Put 0,90,BgS I Kolonne restaurieren 

Graphmode 1 I REPLACE-Modus 

Uave 0 I Dosound ausschalten 

Print At(1,1);Spc{44) 


Endif 

If PX>1 And PX<4 I LOAD? 


Fileselect FIS I Datei wählen 

If Exist(FlS) I Datei existiert? 

Open "I",#1,FIS I Dann öffnen 

Bget #1,Varptr(AS),Min(32,Lof(#1)} 

' I Max. 32 Bytes in String laden 

Close I Datei schließen 

apline I Neuen Byte-String anzeigen 

Endif 
Endif 

If PX>3 And PX<6 I SAVE? 

Fileselect "\*.SN0",".SN0“,FIS I Datei wählen 
If FIS>"" And FIS<>".SND'' And RightS(FlS)<>"\" 

' I Korrekte Dateinamen-Eingabe? 

Bsave FlS,Varptr(AS),Len{AS) ! Sound-String speichern 
Endif 
Endif 

If PX>5 And PX<8 I QUIT? 

Stop 1 Dann STOP 

' Ggfs, im Direktmodus durch CONT Fortsetzung 
Endif 
Endif 


If PX<32 And Nousey<110 And Mousey>90 And Housek 
' Mauszeiger auf Kolonnen-Element und Taste gedrückt? 
If Mousek=1 I Linke Maustaste gedrückt? 

Poke Varptr(AS)+PX,Peek(Varptr(AS)+PX)+1 
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' I Byte-Inhalt un 1 erhöhen 

Else I Rechte Maustaste! 

Poke Varptr(A$)+PX,Peek(Varptr(A*)+PX)-1 
Endif I Byte-Inhalt im 1 vermindern 

Text P**20,100,19,Right$(" "+str*(Peek{Varptr(A*)+P*)),3) 

' I Neuen Byte-Uert anzeigen 

Pause A I Kleine Klickpause 

Endif 

Key$=Inkey$ I Tastatur abfragen 

KeyX=Asc<Right$(Key$))l Ggfs. ASCII der Taste holen 
If KeyX I <Taste> gedrückt? 

If Key%=77 And Len(Key$)'2 I <Pfeil-rechts>-Taste? 
BfS=Right$(A$) I Letztes Byte retten 
Bmove Varptr{A$),Varptr(A$)+1,Len{A$)-1 I Rotiere... 

' I ...String im ein Byte nach rechts 

Poke Varptr(AS),Asc(Bf$) I Letztes Byte vorn wieder rein 
Endif 

If KeyX=75 And Len(Key$)22 I <Pfeil-links>-Taste? 
Bf$=LeftS(AS) I Erstes Byte retten 

Bmove Varptr(AS)+1,Varptr(A$),Len(AS)-1 I Rotiere... 

' I ...String un ein Byte nach rechts 

Poke Varptr(A$)+Len{AS)-1,Asc{Bf$) ! Erstes Byte hinten.. 
Endif I ...wieder reinpoken 

If KeyX=82 And Len(Key$)=2 I <Insert> gedrückt? 

■ Beim Einfügen wird ein Null-Byte in die angeklickte 
' Kolonnen-Position geschoben und alle rechts davon 

■ liegenden Bytes un eine Position nach rechts 

' versetzt. Das letzte Byte fällt dabei aus der Kolonne. 
Print At(1,1);"<Insert>-Feld anklicken (rechte Taste=Undo)" 
SlWait I Auf Hausklick warten 

Print At(1,1);Spc(A4) 

If Housek=1 I Linke Maustaste gedrückt? 

PX=Int(Housex/20) I X-Index ermitteln 
Bmove VBrptr(A$)+P*,Varptr(A$)+PX+1,Len(A$)-(PX+1) 

' I Rest-Kolonne um 1 Byte nach rechts 

Poke Varptr(A$)+PX,0 I Null in freie Position poken 
Endif 
Endif 

If KeyX=98 And Len(Key$)=2 I <Help> gedrückt? 

' Beim Kopieren eines Bytes wird der Inhalt des 
' zuerst angeklickten Kolonnen-Bytes in das 
' als zweites gewählte Kolomen-Byte geschrieben. 

' Das Quell-Byte bleibt dabei unverändert. 

Print At(1,1);"Quell-Feld anklicken (rechte Taste=Undo)" 
SlUait I Auf Mausklick warten 

If Mousek=1 ! Linke Maustaste gedrückt? 

P1X=Int(Mousex/20) I Quell-X-Index berechnen 
Print At(1,1);"Ziel-Feld anklicken (rechte Taste=Undo)" 
Pause 10 I Kleine Klickpause 

SlWait I Auf Mausklick warten 

Print At(1,1);Spc(44) 

If Mousek=i I Linke Maustaste gedrückt? 

Pause 10 I Kleine Klickpause 

P2X=Int(Mousex/20) I Ziel-X-Index berechnen 
Poke Varptr(A$)+P2X,Peek(Varptr(A$)+P1X) 

Endif I Quell-Byte ins Ziel-Byte schreiben 

Endif 
Endif 

If KeyX=127 


! <Delete> gedrückt? 
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■ Beim Löschen eines Kolonnen-Bytes wird die rechts 

■ von der angeklickten Kolonnen-Position liegende 

■ Rest-Kolorme ifn ein Byte nach links verschoben. Das 

■ frei werdende letzte Byte wird mit Null überschrieben. 

Print At(1,1);"<Oelete>-Feld anklicken (rechte Taste=Undo)" 
auait I Auf Hausklick warten 

Print At(1,1);Spc(44) 

If Mousek=1 I Linke Maustaste gedrückt? 

PX=Int(Mousex/24) I X-Index des Lösch-Bytes holen 
Bmove Varptr<A$)+PX+1,Varptr(A*)+PX,Len(AS)-(P%+1) 

' I Kolomen-Rest un ein Byte nach links 

Poke Varptr(A$)+Len(A$)-1,0 I Hinterstes Byte löschen 
Endif 
Endif 

aPline I Geäixierte Byte-Kolonne darstellen 

Pause 10 I Kleine Klickpause 

Endif 


Loop 

Procedure Pline I Erledigt das Schreiben der Kolonne 

For l!l!=0 To 31 I 32 Positionen 

Text IX*20,100,19,Right$(‘' "+Str$(Peek(Varptr(A$)+IX)),3) 
Next IX I Aktuellen Byte-Inhalt holen und... 

Return I ...ausgeben 

Procedure Uait I Wartet auf einen Mausklick 

Repeat 

Until Mousek 
Return 


Var=XBIOS(33Modus) -SETPRT- 

Es kann die aktuelle Druckereinstellung gelesen, bzw. eine neue ge¬ 
setzt werden. Wird für Modus -1 übergeben, erhält man in Var einen 
Bit-Vektor, der die aktuelle Einstellung beschreibt. Ein von -1 un¬ 
gleicher Wert wird als neue Einstellung übernommen. 


Var 

Modus 


gesetzt 

j nicht gesetzt 

Bit 0 


Matrixdrucker 

j Typenraddrucker 

Bit 1 


Colordrucker 

Schwarz/UeiB-Drucker 

Bit 2 


Atari 

Epson 

Bit 3 


Test 

Maximun 

Bit 4 


Centronics 

RS232 

Bit 5 


Endlos 

j Einzelblatt 


Standard-Einstellung für Epson: XBIOS(33,6) 


Var=XBIOS(34Modus) -KBDVBASE- 

Liefert in Var die Startadresse einer Tabelle. In dieser Tabelle stehen 
der Reihe nach sieben Startadressen (Long) von Maschinen-Routinen, 
die Aufgaben für den IKB (Tastaturprozessor) erledigen. 
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Aufbau der Tabelle: 


Var+O MIDI-Eingabe-Routine (midivec): Adresse einer Routine, die nach 
Eingang von Daten am MIDI-In-Port (Byte liegt in DO) dieses Byte in 
den MIDI-PufTer schreibt. 

V&r+4 Tastatur-Fehler-Behandlung (vkbderr): Zeigt auf eine Routine zur 
Behandlung von Tastatur-Überlauf (Meldung durch IKB-ACIA). 

Var+8 MIDI-Fehler-Behandlung (vnüderr); Zeigt auf eine Routine zur 
Behandlung von MIDI-Überlauf (Meldung durch MIDI-ACIA). 

Var4'12 Tastatur-Status-Paket (statvec): Zeigt auf eine Routine, die die vom 
Tastatur-ACIA gelieferten Tastatur-Datenpakete verarbeitet. 

Var-l-16 Maus-Status-Paket (mousevec); Zeigt auf eine Routine, die die vom 
Tastatur-ACIA gelieferten Maus-Datenpakete verarbeitet. 

Var+20 Zeit-Paket (clockvec): Zeigt auf eine Routine, die die vom Tastatur- 
ACIA gelieferten Zeit-Datenpakete verarbeitet. 

Var-t'24 Joystick-Status-Paket (joyvec): Zeigt auf eine Routine, die die vom 
Tastatur-ACIA gelieferten Joystick-Datenpakete verarbeitet. 


Sobald ein Interrupt durch ein entsprechendes Ereignis ausgelöst 
wurde, enthält das CPU-Register AO bei den letzten vier Routinen die 
Anfangsadresse des zu verarbeitenden Datenpakets. Falls hier eigene 
Routinen eingesetzt werden sollen, dürfen Sie nicht mehr als 1/1000 
Sekunde benötigen und müssen mit RTS abgeschlossen sein. 


Var=XBIOS(35,Delay.Repeat) -KBRATE- 

Liefert bzw. bestimmt die Reaktions-Verzögerung und die 
Wiederholungsrate der Tastatur. Damit ist das gemeint, was man auch 
mit den beiden Schiebereglern (Tastenfinger, bzw. Hase und Schild¬ 
kröte) im Panel des Control-Accessories einstellen kann. Die Reakti¬ 
onsverzögerung (Delay) ist die Zeitspanne, die zwischen dem ersten 
Druck auf eine Taste und dem Reagieren des Cursors vergeht. Mit der 
Wiederholungsrate (Repeat) ist die Zeitspanne gemeint, die der Cursor 
nach der ersten Reaktion benötigt, um bei gedrückt gehaltener Taste 
jeweils um eine Cursor-Position weiterzuspringen. 

In Delay wird entweder eine -1 (keine Änderung) oder die neue Ver¬ 
zögerungsrate erwartet, während in Repeat der Wert -1 (keine Ände¬ 
rung) oder die neue Taktfrequenz übergeben wird. Die Normalein¬ 
stellung ist Delay = 10 und Repeat = 3. In Var wird ein Longword 
zurückgeliefert, wovon das HI-Byte des LO-Words die alte Reaktions¬ 
verzögerung (Delay) und das LO-Byte des LO-Words die alte Taktfre¬ 
quenz (Repeat) darstellt. 

Der Wert 0 für Delay, bzw. 1 für Repeat steht jeweils für schnell. Je 
größer der Wert, umso langsamer. Wird in Repeat eine Null überge¬ 
ben, so ist der Tastatur-Repeat ausgeschaltet. 
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Var= XBIO S( 36,L: Adresse ) -PRTBLK- 

Dies ist eine erweiterte Hardcopy-Funktion. Während XBIOS(20 
SCRDMP nur den Ausdruck einer Standard-Hardcopy zuläßt, können 
hier verschiedene Parameter übergeben werden. 

Dies Parameter sind in einem Block zusammenzufassen, dessen 
Startadresse dann in Adresse an die Funktion übergeben wird. 

Blockaufbau: 

1 Long Bildschirm-AdreMe. 

1 Word ??. 

1 Word Bildschirmbreite. 

1 Word Bildschirmhöhe. 

1 Word ??. 

1 Word ??. 

1 Word Bildschirm-Auflösung (siehe XBIOS(4) GETREZ). 

1 Word Drucker-Auflösung (0 oder 1). 

1 Long Adresse der Farb-Palette. 

1 Word Druckertyp (0, 1, 2 oder 3). 

1 Word Drucker-Port (0 = CentronicB/1 = RS232). 

1 Long Adresse der "Halbtonmaske" (??)• 


Var=^XBIOS(37) -VSYNC- 

Diese Funktion ist mit dem BASIC-VSYNC-Befehl identisch (siehe 
dort). 


Var=XBIOS( 38,L: Adresse) -SUPEXEC- 

Es kann die Startadresse einer Maschinenroutine übergeben werden. 
Diese Routine wird dann im Supervisor-Modus ausgeführt. Die Um¬ 
schaltung durch GEMDOS(32) Super ist hier nicht nötig. 


Var=XBIOS(39) -PUNTAES- 

Befindet sich das AES im RAM, kann es mit dieser Funktion abge¬ 
schaltet werden. Das Ergebnis ist ein Reset. Bei ROM-TOS-Maschinen 
konnte ich keine Wirkung feststellen. 
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22. Systemvariablen 


&H424 1 Word -memctrl- 

Kopie des Konfigurationswertes im Memory-Controller. 

&H426 1 Long -resvalid- 

Wird hier der Wert &H31415926 eingetragen, kann damit erreicht 
werden, daß bei einem Reset über den Reset-Vektor in Routinen ge¬ 
sprungen wird, die auf den Reset reagieren. 

Ohne genaueste Kenntnis des internen Vorgangs ist hiermit leider 
nichts zu erreichen. 


&H42A 1 Long -resvector- 

Dieses ist der eben genannte Reset-Vektor, der allerdings keinen In¬ 
halt aufweist. Soll auf den Reset reagiert werden,wird hier die Adresse 
der reagierenden Routine eingetragen. 


&H42E / Long -phystop- 

In dieser Adresse ist das Ende des physikalischen RAMs eingetragen. 
Normalerweise ist dies 767 Bytes hinter dem Bildschirmspeicher. 


&H432 1 Long -membot- 

Dies ist die Anfangsadresse des Benutzerspeichers oberhalb des vom 
Betriebssystem verwendeten Speichers am RAM-Anfang. 


&H436 I Long -memtop- 

Endadresse des Benutzerspeichers. Normalerweise ist dies der Beginn 
des Bildschirmspeichers. 


&H440 1 Word -seekrale- 

Ist Ihnen Ihre Floppy zu langsam? Wenn Sie in diese Adresse den Wert 

2 Lpoken, wird sie etwas schneller. 

Damit wird die Geschwindigkeit der Schreib-/Lesekopf-Bewegung 
von einem Track zum nächsten bestimmt. 
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0 6 Millisek./l = 12 Milliaek. 

2 2 Millisek./3 = 3 Millisek. Der Default-Wert ist 3 


&H442 I Word -limer_ms- 

Diese Adresse enthält die Differenz zwischen zwei System-Timer- 
Aufrufen in Millisekunden (normal: 20). 


&H444 I Word -fverify- 

Diese Speicherstelle bestimmt, ob bei Floppy-Schreibzugriffen auto¬ 
matisch ein Verify ausgeführt wird. Wenn Sie das Verify unterdrücken 
möchten (Floppy schreibt schneller), müssen Sie diese Adresse auf 
Null setzen. Jeder andere Wert schaltet das Verify wieder ein. 


&H446 1 Word -bootdev- 

Enthält die Nummer des Laufwerks, von dem das System gebootet 
wurde. Bei ROM-TOS-Maschinen ist das relativ uninteressant. 

0 = A: / 1 = B: 

&H448 I Word -palmode- 

Liefert Auskunft, ob das Sytem im 50-Hertz-PAL-Modus (<>0) oder 
im 60-Hertz-NTSC-Modus (= 0) arbeitet. Veränderungen an dieser 
Adresse haben keinen Sinn, da der Modus nur während des Bootens 
installiert werden kann. 


&H44A I Word -defshiftmod- 

Bei Umschaltung vom Monochrom- in den Farbmodus liefert dieses 
Adresse dem System die gewünschte Farb-Auflösung. Ohne System- 
Kenntnisse kann dieses Adresse nur gelesen werden. 

0 = Lowres/1 = Midres 


&H44C I Word -sshiftmd- 

Auch diese Adresse kann nur gelesen werden. Sie liefert den gleichen 
Wert, der auch durch XBIOS(4) erfahren werden kann. 


0 = Lowres/I = Hidres/2 = Hi res 
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&H44E 1 Lang -v_bas_ad- 

Enthält einen Zeiger auf die Startadresse des logischen Bildschirms 
(siehe XBIOS(3)). Wollen Sie die Screen-Adressen verändern, können 
Sie dies am besten mit XBIOS{5) tun. 


&H452 1 Word -vblsem- 

Durch Setzen einer Null in dieser Adresse können die in &H454 ein¬ 
getragenen Vertikal-Blanc-Interruptroutinen gesperrt werden. Dadurch 
wird dann z.B. auch die Abbruchfunktion des GFA-BASIC außer 
Kraft gesetzt. Durch Einträgen einer 1 werden die Routinen wieder 
aktiviert. 


&H454 1 Word -nvbls- 

In diesem Longword steht die Anzahl der auszuführenden Vertikal- 
Blank-Interruptroutinen. Als Defaultwert ist hier eine 8 (8 Routinen) 
eingetragen. Vom System wird nur eine VBL-Routine installiert. Die 
anderen 7 Routinen können frei bestimmt werden. Durch Heraufsetzen 
der Zahl können entsprechend viele Routinen angemeldet werden 
(siehe Prozedur Slow unter BYTE{}/CARD{)/LONG{)). 


&H456 1 Long -vblqueue- 

Dies ist ein Zeiger auf eine Liste von Adressen der in &H454 ange¬ 
meldeten VBL-Routinen. Im Default-Zustand ist diese Liste 8 Long- 
words lang (8 eingetragene Routinen). Durch Lpeek(Lpeek(&H456)) 
erfahren Sie die Startadresse der ST-Standard-Mausroutine. Das zweite 
Longword Lpeek(Lpeek(&456)+4) zeigt sehr wahrscheinlich auf eine 
Adresse im BASIC-Interpreter, wo sich eine vom BASIC eingetragene 
Routine befindet. Sollte das nicht der Fall sein, wurden vorher durch 
ein Auto-Boot-Programm eine oder mehrere VBL-Routinen angemel¬ 
det und der Eintrag der BASIC-Routine verschiebt sich um dement¬ 
sprechend viele Longwords in der Liste. 

Die nächsten Einträge hinter dem BASIC-Eintrag müßten dann Null 
sein. Dort kann man dann die Adressen seiner eigenen Interrupt-Rou¬ 
tinen eintragen und damit erreichen, daß diese Routinen dann vom ST 
treu und brav bei jedem VBL-Interrupt ausgeführt werden. Sollen 
mehr als 8 VBL-Routinen ausgeführt werden, ist die Liste entspre¬ 
chend zu erweiteren (siehe Prozedur Slow unter 
BYTE{}/CARD{}/LONG{}), in einen ausreichend großen Speicherbe¬ 
reich zu verlegen, in &H456 die neue Tabellen-Adresse und in &H454 
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die neue Anzahl einzutragen. Ohne fundierte Assembler-Kenntnisse ist 
hier jedoch nicht viel auszurichten (außer Slow!). 

Übrigens können Sie die Abbruchfunktion des BASIC total ausschal¬ 
ten, indem Sie in das vierte Byte der V2.xx- BASIC-Interruptroutine 
einfach eine Null schreiben. Wollen Sie in V2.xx auch noch den 
Direktmodus im Interpreter ausschalten, schreiben Sie in das fünfte 
Byte einfach ebenfalls eine Null. Nur darf danach kein On Break 
Cont-Befehl mehr ausgeführt werden, da sonst die Break-Umschaltung 
im Interpreter durcheinander gerät. Wollen Sie beides wieder ein¬ 
schalten, poken Sie in das vierte Byte eine 27 und in das fünfte Byte 
eine 2. Die BASIC-Interrupt-Routine kann man in der Liste dadurch 
identifizieren, daß sie ca. 26 KByte über der BASIC-Basepage, also 
innerhalb des Interpreters liegen muß. 


&H45A 1 Lang -colorptr- 

Hier kann die Adresse einer 16 Words umfassenden Farbpalette einge¬ 
tragen werden. Diese Palette wird dann beim nächsten VBL-Interrupt 
geladen, sofern der VBL-Interrupt nicht gesperrt ist. Damit keine Pa¬ 
lette geladen wird, ist der Wert 0 einzutragen. 


&H45E 1 Lang - screenptr- 

Diese Adresse wird als Zeiger auf die Startadresse des logischen Bild¬ 
schirmspeichers (vgl. XBIOS(3) und XBIOS(5)) interpretiert. Das neue 
Video-RAM wird dann beim nächsten VBL-Interrupt installiert. Soll 
nicht ständig das Video-RAM installiert werden, muß diese Adresse 
Null enthalten. 


&H462 1 Lang -vbclock- 

In diesem Longword werden die seit Systemstart erzeugten Interrupts 
gezählt. 


&H466 I Lang -frclock- 

Hier werden die seit Systemstart ausgeführten Interrupt-Routinen ge¬ 
zählt. 

&H46A 1 Lang -hdv_init- 

Zeiger auf eine Sprungtabelle für die Initialisierung einer Hard-Disk. 
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&H46E 1 Lang -5wv_vec- 

Sprungvektor bei Änderung der Bildschirmauflösung im Farbbetrieb 
(siehe 3. Parameter bei XBIOS(5)). 


&H472 1 Lang -hdv_bpb- 

Sprungvektor zur Ermittlung des Bios-Parameter-Blocks für Hard- 
Disks. 


&H476 I Lang -hdv _ rw- 

Zeiger auf eine Routine, die das Lesen und Schreiben von/auf Hard- 
Disks erledigt. 

&H47A 1 Lang -hdv_boot- 

Zeiger auf eine Routine, die ausgeführt wird, wenn von einer Hard- 
Disk aus das System gebootet werden soll. 


&H47E 1 Lang -hdv_mediach- 

Zeiger auf eine Routine, die bei Hard-Disks die Media-Change-Kon- 
trolle durchführt. 

&H484 1 Byte -conterm- 

4-Bit-Vektor: 





Gesetzt | 

1 Nicht ! 

Bit 

0 -> 

Tastatur-Klick 

Ein 

Aus 

Bit 

1 -> 

Tastatur-Repeat 

Ein 

Aus 

Bit 

2 -> 

Chr$(7)-Klingel 

Ein 

Aus 

Bit 

3 -> 

HI-Byte von BI0S(2) 
Liefert Status der 





Umschalttasten 

Ja 

Nein 


&H486 1 Lang -trpHret- 

Rücksprungadresse nach TRAP# 14-Aufruf (XBIOS-Trap) 


&H48E 4 Längs -themd- 

Mit der BIOS-Funktion 0 wird die Adresse des Memory-Parameter- 
Blocks ermittelt. Als Rückgabewert erhält man die Adresse dieses 
Memory Descriptors. Weiteres siehe unter BIOS{0). 
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&H4A2 / Lang -savptr- 

Eine Möglichkeit, sich Einblick in den Stand der Prozessor-Register 
zu verschaffen, hat man hierdurch. Bei jedem BIOS-Aufruf werden 
die Register-Inhalte in einem bestimmten Bereich gesichert. E>er Inhalt 
dieser Adresse stellt einen Zeiger auf die Anfangsadresse dieses Be¬ 
reichs dar. 


&H4A6 1 Word -nflops- 

Diese Adresse liefert einen Wert, der die Anzahl der angeschlossenen 
Laufwerke angibt. Wie bei BIOS(10) wird auch hier immer davon 
ausgegangen, daß zwei Laufwerke (A und B) mindestens angeschlossen 
sind. 


&H4AC 1 Word -save_row- 

Dieses Word dient als Puffer für die Cursor-Positionierung. 


&H4AE I Long -save_context- 

Zeigt auf einen Puffer für die Exception-Verarbeitung. 


<SiH4BA I Long -hz_200- 

Dies ist der System-Timer, der vom BASIC-Befehl TIMER benutzt 
wird (vergl. Print Timer”’Lpeek(&H4BA)). 


&H4C2 I Long -drvbits- 

Aus dieser Adresse kann ermittelt werden, welche Laufwerke zur Zeit 
angeschlossen sind. Es handelt sich hier um einen Bit-Vektor. Ist Bit 0 
gesetzt, heißt das, daß Floppy A angeschlossen ist. Bit 1 steht für 
Floppy B, Bit 2 für C usw. Auch hier geht das System davon aus, daß 
generell mindesten Drive A und B angeschlossen sind (siehe 
XBIOS(IO)). 

&H4C6 1 Long -dskbufp- 

Um nicht bei jedem Diskettenzugriff die aktuellen Disketten-Attribute 
von Disk holen zu müssen, richtet sich das System einen Disk-Buffer 
ein, in welchem der aktuelle Boot-Sektor abgelegt wird. Dieser 1024 
Byte große Buffer beginnt bei der hier eingetragenen Adresse. 
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&H4CE 8 Längs -vbl_list- 

Dies ist die VBL-Routinenliste, deren Adresse durch Lpeek(&H456) 
erfragt werden kann. In ihr sind der Reihe nach alle VBL-Routinen 
eingetragen, welche bei jedem VBL-Interrupt ausgeführt werden sol¬ 
len. Wie oben bereits erwähnt, können auch mehr als acht Routinen 
angemeldet werden, wenn dieser entsprechend verlängerte Vektor an 
eine ausreichend große Speicherstelle verlegt wird, die neue Anzahl in 
&H454 und der neue Zeiger in &H456 eingetragen wird (siehe Proze¬ 
dur Slow unter BYTE{}/CARD{}/LONG{)). 

&H4EE 1 Word -dumpflg- 

Eine 1 in dieser Adresse zeigt an, daß gerade eine Hardcopy gefertigt 
wird (siehe unter HARDCOPY). 


&H4F0 1 Word -prtabt- 

Dies ist das Printer-Time-Out-Abort-Flag. Wozu dieses System-Flag 
gut ist, konnte ich nicht in Erfahrung bringen, der Default-Wert ist 
252. Ich nehme an, daß dieses Flag dann manipuliert wird, wenn bei 
einer Druckerausgabe der Drucker nicht empfangsbereit ist und nach 
ca. 30 Sekunden ein Printer-Time-Out gemeldet wird. 


&H4F2 1 Long -sysbase- 

Diese Adresse zeigt auf die Startadresse des Betriebssystems. 


&H4FA I Long -end_os- 

Hier ist das Ende des Betriebssystems im RAM eingetragen. Das Be¬ 
triebssystem benötigt auch bei einem ROM-TOS einen gewissen Be¬ 
reich des RAM für sich. Das Ende dieses RAM-Bereichs ist hier ge¬ 
meint. 


&H4FE 1 Long -exec_os- 

Dies ist ein Zeiger auf die Startadresse des AES innerhalb des Be¬ 
triebssystems. 
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23. Vario-RAM-Kartei RAMKART 



"Das obligatorische Beispiel-Programm", werden Sie jetzt vielleicht sa¬ 
gen, womit Sie auch recht haben. In diesem Fall habe ich mich jedoch 
bemüht, ein Programm zu konstruieren, das mehrere nützliche Aspekte 
gleichzeitig erfüllt. Es ist: 

vernünftig einsetzbar und nutzbar 
sehr lehrreich 
noch überschaubar 

streng strukturiert (obwohl nicht 100%ig optimiert) 

äußerst komfortabel und vielseitig 

schnell 

und zweckmäßig 

Es ist wieder ein Datei-Verwaltungsprogramm. Durch einige Eigen¬ 
schaften tanzt es dabei jedoch gewaltig aus der üblichen Reihe. "Nor¬ 
male" BASIC-Dateiverwaltungen benutzen weitestgehend (oder auch 
ausschließlich) Standard-Diskettenbefehle wie PRINT#, INPUT# oder 
GET#, PUT#. Dies hat seine Vorteile insofern, als man sich generell 
"innerhalb" der BASIC-üblichen Struktur hält. 

Genau in diesem Punkt hebt sich jedoch RAMKART von der Masse 
ab. Es benutzt eine eigene Speicher- und Disketten-Verwaltung und 
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bietet dadurch eine wesentlich platzsparendere und schnellere Ar¬ 
beitsweise. Am meisten ist dies an der Geschwindigkeit zu erkennen. 
Da RAMKART ausschließlich im RAM arbeitet (deshalb RAM- 
KART) und nur wenn es ausdrücklich gewünscht wird, auch die Dis¬ 
kettendaten aktualisiert, kann es Befehle wie z.B. BMOVE, BGET# 
und BPUT# verwenden, um die Daten blockweise zu transportieren. 
Es kann sein, daß ISAM- Dateien (Index-Sequencial-Aces-sMemory) 
oder matrix-indizierte Begriffs-Register (wie z.B. die assoziative 
THEMADAT-Datei) in mancher Hinsicht schneller sind. Sie sind da¬ 
für jedoch nicht so einfach zu begreifen wie RAMKART. 

Wer das Demprogramm Vario-RAM-Kartei aus den ersten Auflagen 
kennt, kann dieses getrost vergessen. In manchen Punkten ähneln sich 
die beiden Programme und sehen grafisch auch ähnlich aus, nur - zu 
tun haben sie nicht mehr viel miteinander. 

Ich gehe nun im folgenden davon aus, daß Sie kein völlig "mundge¬ 
rechtes" Programm zu sehen bekommen wollen, sondern daß Sie sich 
intensiver mit der Programmierung und dem Charakter des Programms 
auseinandersetzen wollen. Es liegt mir also nicht viel daran, ein ferti¬ 
ges, "kommerzielles" Programm zu präsentieren, als vielmehr Sie zur 
"Mitarbeit" bei der Entwicklung anzuregen. Nichts desto weniger 
braucht sich RAMKART hinter den meisten kommerziellen und pro¬ 
fessionellen Programmen nicht zu verstecken. Aber das werden Sie 
schon noch feststellen. 

Um jenen, die dieses Programm raubkopieren möchten, ein kleines 
Bein zu stellen, sind einige Optionen aus dem Programmlauf nicht di¬ 
rekt zu erkennen, sondern ergeben sich aus der hiesigen Beschreibung 
und dem Programmkommentar. Außerdem steckt im Sortier-Algorith- 
mus ein winzig kleiner Fehler, der nur zu beheben ist, wenn man sich 
näher mit dem Listing auseinandersetzt. Dieser Fehler besteht darin, 
daß in der Sortierfolge bei jedem Sortierlauf eine Karte versetzt wird 
und die unterste Karte nur mit dem ASCII-Zeichen 255 (Hochstrich) 
gefüllt ist. Dieser Mangel tut dem Nutzen des Programms keinen Ab¬ 
bruch, solange man die jeweils letzte Karte nicht mit wichtigen Daten 
belegt. 

Stört Sie diese eine "verunstaltete" Karte, so können Sie sie einfach 
dadurch entfernen, indem Sie die Karte "aufschlagen" und mit 
<Delete> aus dem Speicher entfernen. 

Soviel zur Vorrede. Nun folgt eine - aus oben genanntem Grund - et¬ 
was oberflächliche Bedienungsanleitung. 
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Internes 

Wie gesagt, beinhaltet RAMKART eine eigene Speicherverwaltung. 
Der BASIC-Speicher wird durch RESERVE auf das nötigste be¬ 
schränkt. Die Datenblöcke (Karten) werden dann hintereinander ab 
HIMEM+20000 abgelegt. Die 20000 Bytes gelten hier eigentlich nur 
für die V2.02-Version, da diese direkt hinter HIMEM das aktuelle 
Disk-Direktory ablegt (warum, weiß nur Frank Ostrowski allein). Für 
die Versionen V2.0 und V3.0 ist dieses Offset nicht nötig. In der ent¬ 
sprechenden Programmzeile können Sie dann also +20000 streichen. 

Als Transfer-Befehl gilt hauptsächlich BMOVE, bzw. sofern die Disk- 
Daten aktualisiert werden sollen, die Befehle BGET# und BPUT#. 
Nur zur Verarbeitung der einzelnen Karten wird die jeweilige Karte 
in einen String-Puffer übertragen, der dann mit entsprechenden 
String-Befehlen (INSTR(), LEFT$(), MID$() etc.) weiterverarbeitet 
wird. 

Dieses Verfahren erfordert einerseits ein äußerst sorgfältige Program¬ 
mierung und penible Vorsicht im Umgang mit den Jeweiligen Block- 
Adressen, bietet jedoch als Ausgleich eine wesentlich freiere Pro¬ 
grammgestaltung, sowie die Möglichkeit, das Programm schneller und 
kürzer zu machen. Ein vergleichbares Programm, daß auschließlich 
mit Feldvariablen und Standard-BASIC arbeitet, wäre mit Sicherheit 
langsamer und länger, sowie komplizierter in der Programmierung. 

Das Programm benötigt zu seinem Betrieb eine Initialisierungsdatei. 
Bei Programmstart werden Sie aufgefordert, zwischen der Datei-Bear¬ 
beitung und der Datei-Erstellung zu wählen. Auf der beiliegenden 
Diskette finden Sie schon eine Mini-Demodatei mit dem Namen 
ADRESSEN.DAT. Mit dem gleichen Namen, jedoch mit der Extension 
.DEF finden Sie außerdem noch die erwähnte Initialisierungs-Datei. In 
dieser Datei sind sämtliche für den Betrieb der jeweiligen Datei wich¬ 
tigen internen Daten abgelegt. Wählen Sie bei Programmstart die Op¬ 
tion DEFINE, so werden Sie aufgefordert, der Reihe nach die Titel 
für die einzelnen Kartenzeilen, sowie die Längen der jeweils zuzuord¬ 
nenden Einträge anzugeben. Nachdem Sie das getan haben, geben Sie 
noch die Anzahl der Karten an, die Ihre Datei haben soll und ab¬ 
schließend den gewünschten Disk-Dateinamen, sowie die gewünschte 
Bildschirm-Überschrift. Die Datei ist nun definiert und die entspre¬ 
chende .DEF-Datei wird auf der Diskette abgelegt. Nachdem das erle¬ 
digt ist, werden Sie nochmals gefragt, ob Sie eine Datei bearbeiten 
oder entwerfen möchten. Durch OPEN erscheint eine FILESELECT- 
Box, aus der Sie nun die gewünschte .DEF-Datei auswählen können. 
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Beim ersten Aufruf einer Kartei wird zuerst ein in der Größe schon 
kompletter Karteikasten auf die aktuelle Diskette geschrieben. Dieser 
gilt von nun an als Disketten-Puffer für sämtliche Karteikarten. Bei 
der Größe der Datei sind Sie allein von dem auf der Diskette und im 
RAM freien Speicherplatz beschränkt. Übrigens werden beim Laden 
der Datei alle Karten "en bloc" in den Speicher geladen. Bei größeren 
Dateien nimmt dies natürlich einige Zeit in Anspruch. Da Sie dann 
jedoch - vorausgesetzt, das UPDATING ist aus - ausschließlich im 
RAM arbeiten, gleicht die Arbeitsgeschwindigkeit diesen Zeitaufwand 
bei weitem wieder aus. 


Bedienung 

Sie haben nun vielfältige Möglichkeiten, die aktuelle Datei zu bear¬ 
beiten. Auf der linken Seite finden Sie ein Menü: 


Suchen 

Es erscheint eine Eingabe-Box, in welcher der erste Suchbegriff ein¬ 
gegeben wird. Anschließend kann ein weiterer Begriff eingegeben 
werden, der zusammen mit dem ersten im ODER- oder UND-Modus 
gesucht wird. Dabei wird immer nur die Kartenzeile durchsucht, die 
rechts unten in der Zeilen-Tabelle angeklickt ist. Ist die letzte Zeile in 
der Tabelle angeklickt, so wird die komplette Datei durchsucht. Die 
ODER-Suche zeigt immer dann eine Karte an, wenn entweder der er¬ 
ste oder der zweite Begriff gefunden wurde. Bei der UND-Suche 
müssen beide Begriffe zugleich in der Zeile, bzw. in der Karte auf- 
tauchen, um gefunden zu werden. Wird im Suchmodus eine Karte 
angzeigt, so kann die Suche durch die linke Maustaste oder einer be¬ 
liebigen A-Z-Taste bzw. <Space> fortgesetzt werden. Druck auf die 
rechte Maustaste oder <Esc> bricht die Suche ab. 


Blättern 

Die erste Karteikarte wird angezeigt. Es kann nun durch <Return> 
vorwärts oder <Control><Return> rückwärts geblättert werden. <Esc> 
kehrt zum Kartei-Desktop zurück. 


Sortieren 

Die Kartei wird komplett sortiert. Dabei kann durch die Zeilen-Ta¬ 
belle rechts im Bild angegeben werden, von welcher Zeile der An¬ 
fangsbuchstabe als Kriterium gewählt werden soll. Die Tabellenzeile 
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kann durch Mausklick oder die beiden Vertikal-<Pfeiltasten> gewählt 
werden. 


Updating 

Dies ist eine Umschaltfunktion, die darüber entscheidet, ob nach Än¬ 
derungen einer Karte oder nach dem Sortieren die Disketten-Kartei 
ebenfalls entsprechend geändert werden soll. Ist das UPDATING aus¬ 
geschaltet, so wird ggfs, bei Programmende gefragt, ob die jetzt aktu¬ 
elle Kartei auf die Diskette zurückgeschrieben werden soll. Bei Pro¬ 
grammstart ist das UPDATING eingeschaltet. 


Goto Karte 

Es erscheint eine Eingabebox, die die Eingabe einer Kartennummer 
erwartet. Anschließend wird die gewählte Karteikarte "aufgeschlagen". 


Import 

Die Kartei kann ab Karteistart mit einer beliebigen Disk-Datei über¬ 
schrieben werden. Ist die Datei kürzer als die Karteilänge, wird ohne 
Fehler die Disk-Datei in Ihrer Länge übertragen. Ist die Disk-Datei 
größer, wird Sie ohne Fehler bei Erreichen der Karteilänge abge¬ 
schnitten. Dieselbe Möglichkeit hat man auch für Jede einzelne Karte. 


Quit 

Beendet das Programm. Neben den Menü-Einträgen ist jeweils der 
Tastatur-Buchstabe angegeben, durch den die gewünschte Option 
ebenfalls ausgelöst werden kann. 

Weiterhin finden Sie in der Bildmitte zwei diagonale Register-Ketten, 
und zwar von A bis Z und von 0-9. Jeder dieser Register-"Reiter" 
steht für einen Buchstaben oder eine Ziffer. Wird ein Register-Reiter 
angeklickt, so wird die Kartei ab Anfang auf Zeilen untersucht, die 
auf der ersten Zeilenposition das entsprechende Zeichen, bzw. die 
entsprechende Ziffer enthält. Welche Zeile der Karten dabei aus¬ 
schlaggebend sein soll, wird auch hier durch Wahl der Zeile in der 
rechten Zeilen-Tabelle bestimmt. Wird eine solche Zeile gefunden, 
wird die entsprechende Karte angezeigt. Fortgesetzt oder abgebrochen 
wird die Suche genauso wie bei SUCHEN. Statt eines Klicks auf den 
gewünschten Reiter kann bei Buchstaben auch <Shift><A> bis <Shift>- 
<Z> und bei den Ziffern <0> bis <9> als Taste gedrückt werden. 
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Die <He]p>-Taste hat eine Sonderfunktion. Wird Sie im Kartei-Desk- 
top gedrückt, so wird nach der Angabe einer Kartennummer gefragt. 
Ab dieser Karte werden dann anschließend all die Zeilen der Karten 
angezeigt, die - wiederum - rechts in der Zeilentabelle gewählt wurde. 
Dadurch kann man sich also eine tabellarische Übersicht über alle 
gleichwertigen Karteneinträge verschaffen. 

Ist eine Karte angezeigt, hat man auf folgende Weise die Möglichkeit, 
zur Kartenänderung "in die Karte" zu gehen. 

<Shift> drücken. 

Der Cursor wird auf den Anfang der obersten Zeile gesetzt. 

Mausklick auf die gewünschte Zeile mit linker Taste: 

Cursor wird auf den Anfang der Zeile unter dem Mauszeiger gesetzt. 

Mausklick mit rechter Taste: 

Cursor wird auf den Anfang der Zeile unter dem Mauszeiger gesetzt 
und die Zeile gelöscht. 

<Space> wirkt wie Mausklick links. 

<Alternate> wirkt wie Mausklick rechts. 

Innerhalb der Karte kann der Cursor durch <Return> nach unten und 
durch <Control><Return> nach oben bewegt werden. Verlassen wird 
die Karte durch 

<Alternate> 

Es wird anschließend gefragt, ob die Änderungen bestehen bleiben 
sollen. Wenn nicht, wird der Karten-Inhalt auf den vor Öffnung gülti¬ 
gen Stand restauriert. 

<Shift><Return> 

Die Karte wird mit Änderungen in den Speicher übernommen. Das¬ 
selbe geschieht, wenn das erste oder letzte Zeichen einer Zeile entwe¬ 
der <Space> oder <Esc> ist und die Zeile dann mit <Return> verlassen 
wird.Es gibt zwar noch einige komfortable Kleinigkeiten im Pro¬ 
gramm, aber da Sie sich ja mit dem Listing auseinandersetzen werden, 
werden Ihnen diese sicher noch auffallen. Wie Sie sehen werden, habe 
ich mir wie auch im übrigen Buch - große Mühe mit der Programm¬ 
kommentierung gemacht, so daß ein echter Lerneffekt gegeben ist. 
Programme dieser Größe sind mit Ihrer Größe vor allem deshalb 
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lehrreich, da aus Ihnen die komplexen Zusammenhänge eines ausge¬ 
reiften Programms zu erfassen sind. Als Anfänger wird Sie diese 
Komplexität vielleicht zuerst abschrecken, aber ich bin der Meinung, 
daß man sich gutes Programmieren nur anhand guter Lehr-Beispiele 
aneignen kann. Unbescheidener Weise gehe ich hier davon aus, daß 
RAMKART bei Ihnen als "gutes Lehr-Beispiel" anerkannt wird. Auch 
hier bestätigen natürlich Ausnahmen die Regel. 

Am Programmende finden Sie als besondere Belohnung noch einige 
nützliche, allgemein gehaltene Prozeduren, von den ich hier Dcolor 
besonders hervorheben möchte. Diese Prozedur gibt Ihnen - ähnlich 
wie das bekannte Control-Accessory - die Möglichkeit, auf sehr 
komfortable Weise die Farbeinstellung vorzunehmen, und zwar in 
Midres und in Lowres. In Hires ist Dcolor zwar auch einsetzbar, ist 
aber dort relativ zwecklos, da Schwarz und Weiß trotz aller Editier- 
Versuche immer Schwarz und Weiß bleiben. 


******************************************************************* 


KEYPAD 0 ! =====> Diese Zeile gilt nur für die V3.0-Version <===== 

********************************************************************* 


aintro 

adatload 

amain 


I DEF-Datei wählen und Prog-lnits 
I DAT-Datei laden 


********************************************************************* 


PROCEDURE main 
DO 

aauswahl 
averteiler 
abiIdaufbau 
LOOP 
RETURN 


I -> progranm... >-. 

I Auf Auswahl-Kl ick warten j 
I Zur Verzweigungs-Prozedur ! 
! Hintergrund restaurieren j 
I-< ...Hauptschleife <---' 


********************************************************************** 


PROCEDURE auswahl 
regmem%=regX 
DO 

adesk_taste 
aausWertung 
REPEAT 

UNTIL HOUSEK=0 
EXIT IF wahlX=1 OR wahlX^Z 
LOOP 
RETURN 


I GroBe Auswahl 

I Letzten Registerindex merken 
!--> Tasten- u. Hausabfrage... >-- 
I Tastaturabfrage 
I Auswahl-Analyse 
I Uarteschleife... 

I ...bis Maustaste=0 
dkey*=ASC("q") I Raus, wenn gewählt 
1—< ...bei leerem Desktop <- 






PROCEDURE auswertung 
CLR wahlX 
xpX=MOUSEX 
ypX=MOUSEY 
mkkX=MOUSEK 
IF LEN(dkeyS)=2 
IF dkeyX=72 
CLR dkeyX 
xpX=550 

ypX=(385/tX-(czX»10/tX))+ 


I Auswertung der 
I Auswahl-Merker klar 
I Maus-X-Koordinate merken 
I Maus-Y-Koordinate merken 
I Maustasten-Status merken 
I Sondertaste gedrückt? 

! <Pfeil-hoch>-Taste? 

! Tastenmerker löschen 
I Hausposition simulieren 
(zyX*10/tX)-5/tX ! - - 
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ENOIF 

IF dkey%=80 I <Pfeil-runtcr>-Taste7 

CLR dkeyX I Tastermerker löschen 

xpX=S50 I Mausposition sinulieren 

ypX=(385/«-(czX*10/tX))+(zyX*10/tX)+15/tX I - •< . 

ENDIF 

ENDIF 

IF keyflgX ! <Shift><Registertaste> gedrückt? 

IF (dkeyX=>65 AND dkeyX<=90) I A bis Z? 

xpX=75+(dkeyX-65)*20 I Mausposition simulieren 

ypX=16/tX+(25-(dkeyX-65))*13/tX! - - 

ENDIF 

IF (dkeyX=>A8 AND dkeyX<=57) I 0 bis 9 (ohne <Shift>)? 

xpX=260+(dkeyX-48)*20 I Mausposition simulieren 

ypX=224/tX+{9-(dkeyX-48))»13/tX I - <• - . n . 

ENDIF 

CLR keyfIgX.dkeyX I Flag und Taste löschen 

ENDIF 

IF dkeyX=0 OR dkeyX=13 I Keine Teste oder <Return>? 

IF xpX>U AND xpX<164 AND ypX>61/tX AND ypX<250/tX 

' I Maus auf einem Menüpunkt? 

myX=INT((ypX-62/tX)/27*tX) I Menü-Y-Index 

ablinker(0,16,62+myX*27,161,83+myX*27) I Blinkbox 
menueX=myX+1 I Menüindex merken 

uahlX=2 ! Auswahl-Merker=2 


ENDIF 

IF xpX>540 AND xpX<628 AND ypX>385/tX-czX*10/tX AND ypX<385/tX 
' I Maus auf Eintragstitel? 

zyX=INT((ypX-385/tX+czX*10/tX)/10*tX) I Zeilen-Y-Index 
zsetX=1 I String-Offset zum Kartenanfang 

IF zyX>0 I Maus nicht auf 1. Zeile? 

FOR iX=1 TO zyX I String-Offset bis zur gewählten 

ADD zsetX,IngX(iX) I Zeile addieren 

NEXT iX 
ENDIF 


PUT 538,370/tX-czX*10/tX,zeilen$ I Zeilenanzeige restaurieren 
abl inkerd,541,385-czX*10+zyX*10-2*(tX-1),626,395-czX*10+zyX*10) 


IF mkkX=2 
dkey$=" " 
dkeyX=98 
ENDIF 
ENDIF 

xx1X=INT((xpX-65)/20) 
ryX=25-INT<(ypX-12/tX)/13*tX) 
IF xx1X=ryX AND xx1X>-1 AND 
DPOKE 9954,MAX(20,ypX) 


I Rechte Maustaste gedrückt? 
I Dann <Help>-Taste... 

I ...simulieren 


I Buchstabenregister-X-Index 
I Register-Y-Index 
xx1X<=25 I Maus auf Buchstaben-Register? 
I Maus ggfs, unter die... 


ab linker(0,67+ ryX*20,346-ryX*13,85+ryX*20,337-ryX*13) 

' I ...GEM-Menüzeile setzen, da 

■ ! Sonst Maus blockiert (V2.02) 

regX=ryX I Registerindex merken 

wahlX=1 ! Auswahl-Merker=1 


ENDIF 

xx2X=INT((xpX-250)/20) ! Zahlenregister-X-Index 

IF xx2X=ryX AND xx2X>-1 AND xx2X<=9 I Maus auf Zahlen-Register? 
ablinker(0,Z52+ryX*20,346-ryX*13,270+ryX*20,337-ryX*13) 
regX=ryX+26 I Registerindex merken 

wahlX=1 ! Auswahl-Merker=1 


ENDIF 

ENDIF 
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IF (dl(ey*=97 0« dkeyX=98) AND LEN{dkey*)=1 I <A> oder <B> gedrückt? 


uahlX=2 

menue%=3-(dkeyX-97) 

ENDIF 

IF dkeyX=98 AND LEN(dkey$)=2 
allste 

CLR wahlX.menueX 
ENDIF 

IF dkeyX=ASC(>'s") 
uahlX=2 

nienueX=suchenX 


I Auswahl-Merker=2 
! Nenü-Merker = 3 oder 2 

I <Help> gedrückt? 

I Darm zur Listing-Routfne 
I Klar und zurück 

I <S> gedrückt? 

I Auswahl-Herker = 2 
I Henü-Herker = 1 


ENDIF 

IF dkeyX=ASC(''i") OR (wahlX=2 
wahlX=2 

inenueX=blaetternX 

akarte_iniport(staX,kgesX) 

IF back3X=1 
CLR wahlX.menueX 
ENDIF 
ENDIF 

IF dkeyX=ASC("g") OR {wahlX=2 

I 

wahlX=2 

menueX=blaetternX 
akarte springen 
IF zieTx>0 
cardX=zielX-1 
sprungX=1 
ELSE 

CLR wahlX.menueX 
DEC cardX 


menueX=importX) I <I> gedrückt 
I Oder IMPORT gewählt? 

I Auswahl-Herker=2 
I Menü-Herker = 2 
I Daten importieren 
I Abbruch geklickt? 

I Dann klar und zurück 


menueX=springenX) I <G> gedrückt 
I Oder GOTO KARTE gewählt? 

I Auswahl-Merker ° 2 
I Menü-Merker = 2 
I Sprung zur gewünschten Karte 
I Sprungziel • Karte 0? 

I Kartenzähler setzen 
I Sprung-Flag setzen 
I Keine gültige Zielangabel 
I Darm klar und zurück 
I Kartenzähler rücksetzen 


ENDIF 

ENDIF 

IF dkeyX=ASC("u") OR (wahlX=2 AND menueX=updateX) I <U> gedrückt 
' I Oder UPDATING gewählt? 

aautomatic I Dann Update-Flag umschalten 

ENDIF 
RETURN 

****************************************************************** 


PROCEDURE Verteiler 
IF wahlX=1 
aaktion(2> 

ELSE 

IF dkeyXoASCC'q") 

regX=regmemX 
IF menueX=suchenX 
aaktion(O) 

ENDIF 

IF menueX=blaetternX 
aaktiond) 

ENDIF 

IF menueX=sortierenX 
asorter 


I Ein Registerreiter wurde gewählt 
I Dann Action (modusX 2) 

I Ein Menüpunkt wurde gewählt 
I <Q>(uit) nicht gedrückt? 

I Alten Registerindex merken 
! Menüpunkt "Suchen" gewählt? 

! Dann Action (modusX 0) 

I Menüpunkt "Blättern" gewählt? 

I Darm Action (modusX 1) 

! Menüpunkt "Sortieren" gewählt? 

! Darm Sortieren 


ENDIF 

ENDIF 

IF menueX=progexitX OR dkeyX=ASC("q") I Menüpunkt "Quit" gewählt 

! Oder <Q> gedrückt? 

! Darm Ende 


aabbruch 
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ENDIF 
ENDIF 
CLR dkeyX 
RETURN 


I Tastenmerker löschen 


I Suchen? 

I Abbruch-Flag klar 
I Dann suchen 

I Sucheingabe abgebrochen? 
I Dann zurück 


I Letzte Eintragszeile ''Suchbereich''? 


PROCEDURE aktion(modusX) 

IF tnodusX=0 
CLR such.exitX 
9karte_suchen 
IF such.exitX=1 
GOTO o.ut 
ENDIF 

PRINT AT(36,23};"BREAK = <Esc>" 

IF zyX=czX-1 

ablinkerlO,540,380-czX»10+2,626,386) 

ELSE I Suchbereich > Einzelzeile 

ablinker(0,541,385-czX*10+zyX*10-(tX-l),626,395-czX*10+zyX*10) 
ENDIF 
ENDIF 

IF sprungX=1 
CLR sprungX 
ELSE 

CLR cardX 
ENDIF 

DEFMOUSE 2 
DO 

nochmal: 

INC cardX 

byte1X=staX+(carclX-1 )*sgX 
VOID FRE(O) 

BMOVE byteix,VARPTR(satzS),sgX 
satz.posX=1 
FOR jX=1 TO czX 


I Sprung-Flag gesetzt? 

I Darm Sprung-Flag klar 
I Sonst 

I Kartenzähler klar 
I Biene einschalten 


Label f. Kartenschleife <-- 
INC Kartenzähler 
Startadresse der Karte 
Garbage Collection 
Karte in Puffer holen 
Eintragslängenzähler auf 1 
Alle Einträge durchgehen 


ztxtS(jX)=MID$(satz$,satz.posX,lngX(jX)) I Eintrag ausschneiden 


ADD satz.posX,lngX(jX) 

NEXT jX 
mkX=M0USEK 
ckX=ASC(INKEYS) 

IF modusX=2 
IF cardX>kartenX 
GOTO o.ut 
ELSE 

srtS=MID$(satzS,zsetX,1) 
IF 


I Eintragslängenzähler addieren 
I Nächster Eintrag 
I Maustaste abfragen 
I Tastatur abfragen 
I Registerreiter gewählt? 

I Hinter letzter Karte? 

I Dann Anzeige-Ende 
I Noch nicht letzte Karte I 
I SrtS = 1. Zeichen der Zeile 
regX<26 AND (srt$<>CHR$(regX+65) AND srt$<>CHR$(regX+97)) 

I Registerbuchstabe <> SrtS? 

I Linke oder keine Maustaste bzw. 

I <Esc>-Taste nicht gedrückt? 

I Dann nächste Karte >. 


IF mkX<2 AND ckX<>27 


GOTO nochmal 
' Anm.: 

' Wenn die rechte Maustaste oder die <Esc>-Taste während 
' des Suchens gedrückt wird, wird der Suchlauf unter- 
' brochen und die aktuelle Karte angezeigt. 

ENDIF 

ENDIF 

IF regX>25 AND (srtS<>CHRS(regX+22)) I Registerziffer 
' I ... ungleich SrtS? 

IF mkX'tZ AND ckX<>27 I Linke oder keine Maustaste bzw 
' I <Esc>-Taste nicht gedrückt? 

I Dann nächste Karte (s.o.). >-- 


GOTO nochmal 
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ENDIF 

ENOIF 

ENDIF 

IDIF 

I "Suchen" gewählt? 

I Hinter letzter Karte? 

I Darm Anzeige-Ende 
I Noch nicht letzte Kartei 
I AND/OR-Suchposition klar 
I Letzte Eintragszeile als 
I Suchbereich vorgegeben? 
s.posX=INSTR(satzS,srch$) I Dann 1. Begriff im gesamten 
■ I Kartentext suchen 

' Anm.: 

' Wird im Zeilenanzeigefenster die letzte Zeile gewählt, 

' wird die gesamte Kartei durchsucht. Bei Vorgabe einer 
' anderen Zeile wird nur in der angegebenen Zeile gesuchtl 
ELSE I Andere Zeile als Suchbereich I 

s.posX=INSTR(HIDS(satz$,zsetX,lngX(zyX't'1)),srch$) I Nur in 
' I ... gewünschter Zeile suchen 

ENDIF 


IF modusX=0 
IF cardX>kartenX 
GOTO o.ut 
ELSE 

CLR s.pos2X,s.pos3X 
IF zyX=czX-1 

I 


I 

! 


IF flg_andX I AND-Modus gewählt? 

IF zyX=czX-1 I Suchbereich = letzte Zeile? 

s.pos2X=INSTR(satz$,srch2$)l AND-Begriff suchen 
ELSE I Andere Zeile als Suchbereichl 

s.pos2X=INSTR(MID$(satz$,zsetX,lngX(zyX+1)),srch2$) 

ENDIF 
ENDIF 

IF flg_orX I OR-Hodus gewählt? 

IF zyX=czX-1 I Suchbereich = letzte Zeile? 

s.pos3X=INSTR(satz$,srch2S) I OR-Begriff suchen 
ELSE I Andere Zeile als Suchbereichl 

s.pos3X=INSTR(MIDS(satz$,zsetX,lngX(zyX4^1)),srch2$) 

ENDIF 
ENDIF 

IF s.posX>0 OR (s.pos3X>0 AND (flg_orX=1)) I Suchbegriff bzw. 

' II. ODER 2. Suchbegriff gefunden? 

sflgX=1 I Flag setzen 

ELSE 

IF ((s.posX>0 AND s.pos2X>0) AND flg_andX=1) 

' II. UND 2. Begriff gefunden? 

sflgX^I I Flag setzen 

ELSE 

IF MOUSEK=2 OR ckX=escX I Re. Maustaste o. Esc gedrückt? 

I Flag setzen 


sflgX=1 
ENDIF 
ENDIF 
ENDIF 
IF sflgX 

I 

CLR sflgX 
undo: 

akarte_zeigen 

ELSE 

IF mkX<2 AND ckX<>27 

I 

GOTO nochmal 
ENDIF 
ENDIF 


I Begriff(e) gefunden oder 
I Suche abgebrochen? 

I Flag löschen 
I Label für Rücksprung 
I Dann Karte anzeigen 
I WeiterI 

I Linke oder keine Maustaste bzw. 

I <Esc>-Taste nicht gedrückt? 

I Darm nächste Karte (s.o.). >- 
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ENDIF 


ELSE 

! Blättern oder Register gewählt? 

akarte zeigen 

! Aktuelle Karte zeigen 

ENDIF 


' Ab jetzt ist die Karte angezeigt 1 

HOUSE xpX,ypX,mkX 

1 Maus-Status holen 

IF niodusX=1 

1 Blättern gewählt? 

IF (mkX-1 AND (ypX<yoX OR ypX>yuX)) 1 Linke Haustaste außerhalb 

1 

! der Karte gedrückt? 

SUB cardX,2 

1 Dam Kartenzähler vermindern 

ENDIF 


IF ckX=10 OR (ckX=75 AND LEN(ckey$)=2) 1<Control><Return> 

1 

I Oder Pfeil-links gedrückt? 

SUB cardX,2 

1 Dam ebenfalls vermindern 

ENDIF 


IF ckX=115 AND LEN(ckeyS)=2 

1 <Control><Pfeil-links> gedrückt? 

SUB cardX,6 

1 Kartenzähler um 5 vermindern 

ENDIF 


IF ckX=116 AND LEN(ckey$)=2 

I <Control><Pfeil-rechts> gedrückt? 

ADD cardX,A 

! Kartenzähler im 5 erhöhen 

ENDIF 


ENDIF 


VOID FRE(O) 

1 Garbage Collection 

IF ckX=103 

! <G> gedrückt? 

akarte springen 

! Dam zur Zielkarteneingabe 

IF zielX>0 

! Gültige Kartennunner? 

cardX^zielX 

1 Kartenzähler setzen 

modusX=1 

1 Generell Blättern einschalten 

ELSE 


IF tnodusXol 

! Im Such- oder Registermodus? 

GOTO undo 

1 Dam gleiche Karte nochmal 

ENDIF 


ENDIF 


DEC cardX 

! Kartenzähler rücksetzen 

ENDIF 


IF ckX=117 

! <U> gedrückt? 

abiIdaufbau 

I Desktop neu zeichnen 

aautomatic 

I Dam Update-Flag umschalten 

GOTO undo 

1 Und gleiche Karte nochmal 

ENDIF 


IF (mkX AND (ypX>yoX AND ypX<yuX)) OR ... 

. . • . 

(shX>0 AND (shX AND 4>=0) OR ckX=32 

1 

! Klick innerhalb der Karte, eine der 

1 

! Switch-Tasten (auBer <Control>) 

1 

! Oder die <Space>-Taste gedrückt? 

akarte aendern 

• Dam zur Eingabe 

back3X=1 

! Abbruch simulieren 

GOTO jump1 

! Rücksprung 

ENDIF 


IF ckX=100 

! <0> gedrückt? 

akarte drucken 

! Dam zur Druckerausgabe 

back3X=1 

! Abbruch simulieren 

GOTO Jump1 

! Rücksprung 

ENDIF 


IF ckX=116 AND LEN(ckey$)=1 

! <T> gedrückt? 

akarte tauschen 

> Dam tauschen 

GOTO Jump1 

! Ggfs. Rücksprung 

ENDIF 
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IF ck%=105 

akarte_inport(byte1X,sg%) 
GOTO jimpl 
ENOIF 
IF ck*=82 
akarte_einfuegen 
GOTO jump1 
ENDIF 

IF ckX=127 
akarte_loeschen 
GOTO junpl 
ENOIF 

GOTO junip2 
jutnpl: 

IF back3%=1 
IF modusXol 
GOTO undo 
ENOIF 
ELSE 
modus%=1 
ENOIF 
OEC cardX 
jutiip2: 

EX IT IF MOUSEK=3 OR ckX=escX 


<I> gedrückt? 

Oarm Oaten importieren 
Ggfs. Rücksprung 

<Insert> gedrückt? 

Dann einfügen 
Ggfs. Rücksprung 

<Delete> gedrückt? 

Dann löschen 
Ggfs. Rücksprung 

Rücksprung-Abfrage übergehen 
Label für Rücksprungabfrage 
Operation abbrechen? 

Im Such- oder Registermodus? 
Dann gleiche Karte nochmal 

Operation ausführeni 
Generell Blättern einschalten 

...gleiche Karte nochmal zeigen 


Abbruch, wenn beide Maustasten 
oder <Esc>-Taste gedrückt wurde(n) 
EXIT IF modusXol AND (cardX=kartenX OR H0USEK=2)I Abbruch, wenn 

im Such- oder Registermo^s die 
letzte Karte erreicht ist oder die 
rechte Maustaste gedrückt wird 
IF cardX<0 ! Karte kleiner 0? 

cardX=kartenX-1 ! Dann Zähler auf letzte Karte 


ENDIF 

IF cardX=>kartenX 
CLR cardX 


Hinter letzter Karte? 
Kartenzähler wieder auf Null 


ENDIF 

CLR ckX.shX 
LOOP 

CLR ckX.shX 
Sprung) 
o.ut: 


Tastenmerker klar 
Tastenmerker klar (nach EXIT IF- 


DEFMOUSE 0 
RETURN 

4r‘fr** ***ir*4r'********4r*4r4r'ArAt*‘fcA**1^**4(*flr*flr*4rilt#***#*#*****4r ************ 


PROCEDURE desk_taste ! 

DO I 

dkey$=INKEYS I 

dkeyX=ASC(RIGHT$(dkey$)) I 

shX=BI0S(11,-1) I 

IF LEN(dkey$)=1 I 

IF dkeyX=>48 AND dkeyX<=57 I 

keyflgX=1 I 

ENDIF 

IF (shX AND 1) OR (shX AND 2) I 

IF dkeyX=>65 AND dkeyX<=90 I 

keyflgX=1 ! 

ENDIF 
ENDIF 
ENDIF 

EXIT IF keyflgX 


Tastaturabfrage ohne Kartenanzeige 

Abfrageschleife 

Tastatur abfragen 

ASCII der Taste ermitteln 

Switch-Tastenstatus holen 

Normal taste gedrückt? 

Taste von 0 bis 9 gedrückt? 

Flag für Registertaste setzen 

<Shift>-Taste gedrückt? 

Taste von A bis Z gedrückt? 

Flag für Registertaste setzen 


I <Shift><Registertaste> gedrückt? 
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EXIT IF dkey%=98 I <b> oder <Help> gedrückt? 

EXIT IF dkeyX=117 AND LEN(dkeyS>=1 I <u> gedrückt? 

EXIT IF dkeyX=97 AND LEN(dkeyi)=1 I <a> gedrückt? 

EXIT IF dkeyX=115 AND LEN(dkey$)=1 I <s> gedrückt? 

EXIT IF dkeyX=105 AND LEN(dkey*)=1 I <i> gedrückt? 

EXIT IF dkey*=103 AND LEH(dkey*)=1 I <g> gedrückt? 

EXIT IF dkey*=72 AND LEN(dkey$}=2 I Aufuärts-Pfeil gedrückt? 

EXIT IF dkeyX=ao AND LEN(dkey$)=2 I AbwArts-Pfeit gedrückt? 

EXIT IF dkeyX=13 OR dkeyX=ASC("q'') I <Return> oder «Eso gedrückt? 

IF dkeyX=99 I <e> gedrückt? 

adcolor I Darm zur Farbeinstellung 

ENDIF 

EXIT IF M0USEK=1 OR HOUSEK=2 I Li. oder re. Maustaste gedrückt? 
LOOP 

LPOKE XBIOS(14,1)+6,0 I Tastaturpuffer löschen 

RETURN 


PROCEDURE card_taste I 

I I 

DO I 

ckey$=INKEY$ I 

ckX=ASC(RIGHT$(ckey$)) I 

sh%=8IOS(11,-1) I 

EXIT IF ckX^escX I 

EXIT IF ckX=32 I 

EXIT IF ckX=103 AND LEN(ckey$)s1 
EXIT IF ckX=105 AND LEN(ckey$)=1 
EXIT IF ckX=117 AND LEN(ckey$)=1 
EXIT IF ckX=100 AND LEN(ckey$)=1 
EXIT IF ck*=127 AND LEN(ckey$)=1 
EXIT IF ckX=82 AND LEN(ckey$)=2 
EXIT IF ckX=75 AND LEN(ckey$)=2 
EXIT IF ckX=77 AND LEN(ckey$)=2 
EXIT IF ckX=115 AND LEN{ckey$)=2 
EXIT IF ckX=116 

EXIT IF shX>0 AND (shX AND 4)=0 
EXIT IF HOUSEK OR ckX=13 OR ckX=10 
• I 


Tastaturabfrage während 
der Kartenanzeige 

Schleife. 

Tastatur abfragen 
ASCII der Taste ermitteln 
Switch-Tastenstatus holen 
<Esc> gedrückt? 

<Space> gedrückt? 

<g> gedrückt? 

<i> gedrückt? 

<i> gedrückt? 

<d> gedrückt? 

<Oelete> gedrückt? 

<Insert> gedrückt? 

<- (Pfeil-links) gedrückt? 

-> (Pfeil-rechts) gedrückt? 
«Controlx- gedrückt? 
<Control>-> oder <T> gedrückt? 
Eine <Shift>-Taste gedrückt? 

I Maustaste, <Return> oder 
<Control><Return> gedrückt? 


IF ckX=72 AND LEN(ckeyS}=2 I Pfeil-hoch-Taste gedrückt? 
DPOKE 9954,MAX(yoX,MIN(yuX,(MOUSEY DIV (16/tX))»16/tX-8/tX)) 
' I Maus eine Zeile hoch 


OUT 4,8 I und neue Position aktivieren 

ENDIF 

IF ckX=80 AND LEN(ckey$)=2 I Pfeil-runter-Taste gedrückt? 

DPOKE 9954,MAX{yoX,MIN(yuX,(MOUSEY DIV (16/tX))»16/tX+24/tX)) 
■ I Maus eine Zeile runter 

OUT 4,8 I und neue Position aktivieren 

ENDIF 
LOOP 

LPOKE XBIOS(14,1)+6,0 ! Tastaturpuffer löschen 

RETURN 
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***************************************************************** 


PROCEDURE karte zeigen 
DEFFILL ,0,0 
DEFHOUSE 0 
shflg%=1 

PBOX 8,yo*,627,yuX+24/tX+(t*-1) 
BOX 13,yoX+5/tX,622,yuX-5/tX 
LINE 8,yuX,627,yuX 
OPEN ••",#1,"VID:« 


I Karteikartenanzeige 
I weis für Hintergrund 
I Pfeil einschalten 
I Desktop-Restore-Flag setzen 


I Karte zeichnen 


I VIDEO-Port auf 


rep$=CHR*(0)+CHRt(8)+CHR$(9)+CHR$(10)+CHR$(11)+CHR$(12)+CHR»(13) 

' I Steuerzeichenliste 

FOR jX=1 TO czX I Alle Eintragszeilen >. 

buf$=ztxtS(jX) I Eintragstext puffern 

Sxreplc I Steuerzeichen eliminieren 

ztxtSCjX)=bufS I Puffer zurück 

PRINT ..... I Cursor positionieren 


PRINT #1,ztxtS(jX); 

t 

NEXT jX 

DEFTEXT ,0,,6-2*(tX-1) 
IF modusX=1 
IF d.flgX=0 
d.flgX=1 


I Zeile in VID: ausgeben 
I ASCIIs < 32 werden sichtbar 
I Nächste Zeile .. 


I Blättern gewählt? 

I Allererste Kartenanzeige? 
I Merken 


mtx$="EINGABE = <Shift>/ EINFÜGEN=<Insert>/'' I--. 
mtx$=mtx$+" LÖSCHEN=<Oelete>/ IHPORT= <i>" I 

TEXT 70+120*(tX-1),yuX+10/tX,mtx$ I Tasten-Menü 

mtxS=“GOTO KARTE= <g>/ TAUSCHEN= <t> /■' I schreiben 

mtxt=mtx$+" DRUCKEN* <d>/ EXIT = <Esc>" ! 

TEXT 70+120»(tX-1),yuX+20/tX+(tX-1),mtxt I-• 

GET 8,yuX+2*{2-tX),627,yuX+22/tX,mlinet ! Als Bild siel 

ELSE ! Menü-Bild ist schon verfü 

PUT 8,yuX+2*(2-tX),mline$ ! Dann in Karte einsetzen 

ENDIF 

ELSE I Such- oder Registermodus? 


tX,mlineS I Als Bild sichern 
■ Menü-Bild ist schon verfügbar! 
I Darm in Karte einsetzen 
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ii)tx*="UElTER = <Return> / DRUCKEN= <d>" I-. 

TEXT 340+60*(tX-1),yiÄ+10/tX,mtx$ I Tasten-Menü 

rotx$="EINGABE= <Shift> / EXIT = <E8C>" I schreiben 

TEXT 340+60*(t*-1),yUX+20/tX+<tX-1),iiitx$ I-• 

IF modusX=0 AND (s.posX>0 OR s.pos3X>0) AND zyX<czX-1 
PRINT esc$;''p''; I TOS-Schrift invers 

IF s.posX 

PRINT AT<15+s.posX,zyX+2+yoX/16*tX); I Cursor positionieren 
PRINT tm.srchS; I 1. Suchbegriff in VID: ausgeben 

ENDIF 

IF s.pos2X 

PRINT AT(15+s.pos2X,zyX+2+yoX/16*tX); I Cursor positionieren 
PRINT #1,srch2S; I 2. ANO-Begriff in VID: ausgeben 

ENDIF 

IF s.posSX 

PRINT AT(15+s.pos3X,zyX+2+yoX/16*tX); I Cursor positionieren 
PRINT #1,srch2$; I 2. OR-Begriff in VID: ausgeben 

ENDIF 

PRINT esc$;"q''; I TOS-Schrift normal 

ENDIF 

CLR s.posX,s.pos2X,s.pos3X I Suchpositionen löschen 

ENDIF 

CLOSE #1 I VIDEO-Port schließen 

DEFTEXT ,0,,13/tX 

TEXT 20,yuX+16/tX+(tX-1),STR$(cardX) I Karten-Nummer anzeigen 
acard_taste I Tastaturabfrage 

DEFMOUSE 2 I Biene wieder einschalten 

RETURN 


PROCEDURE karte_aendern I Karteneinträge ändern 

HIDEM I Haus aus (die stört hier nur) 

PAUSE 10 I Kleine Pause 

DPOKE VDIBASE+34,0 I PBOX-Rahmen aus 

PBOX 60,yuX+2»(2-tX)+1,626,yuX+20/tX+<tX-1) I Weißen Untergrund 
DPOKE VDIBASE+34,1 I PBOX-Rahmen wieder an 

mtx$="UP = <Control><Return> / EXIT = <Shift><Return>'' 

TEXT 24A,yuX+16/tX+(tX-1),mtx$ I Hini-Tasten-Henü schreiben 

IF ckX=32 I <Space>-Taste gedrückt? 

mkX=1 I Dann Mausklick links simulieren 

ENDIF 

IF shX AND 8 I <Alternate> gedrückt? 

mkX=2 I Dann Mausklick rechts simulieren 

ENDIF 

OPEN "",#1,"VID:" I VIDEO-Port öffnen 

DO I Eintragsdurchlauf 

CLR p.osX I Adreß-Offset klar 

FOR cntX=1 TO czX I Alle Eintragszeilen... 

IF (mkX AND (MOUSEY>yoX AND HOUSEY<yuX}) 
cntX=HAX{1,MIN(INT((M0USEY-yoX-7)/16*tX)+1,czX)) I Zeilenzähler 
' I aus Mausposition errechnen 

Spcalcd) I Eintrags-Offset berechnen 

IF mkX=2 I Rechte Maustaste gedrückt? 

ztxtS(cntX)=STRING$(lngX(cntX),46) I Eintragszeile löschen 
ENDIF 

CLR mkX I Haustastenmerker klar 

ENDIF 


apath(1,ztxt${cntX),CHR$(46)+CHR$(0),*buf$,*duS,»du$) 

PRINT AT(16,cntX+1+yoX/16*tX);SPACE$(lngX{cntX));'' ••;CHRS(174) 
PRINT AT(16,cntX+1+yoX/16*tX);l Cursor positionieren 
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FORM INPUT IngX(cntX) AS buf$ 
shX=BI0S(11,-1) 

IF (shX AND 1) OR (shX AND 2) 

I 

o.ffX=1 

ENDIF 

IF (ShX AND 8) 

I 

al$=" CANCEL ??|Alte 
ALERT 2,al*,1,"OKAY|NEIN", 

IF back2X=1 
0.ffX=2 
ELSE 


Neuen 2eilentext eingeben 
Switch-Tastenstatus holen 
Gleichzeitig mit <Return> 
eine <Shift>-Taste gedrückt? 
Eingabe-Abbruch-Flag (normal) 

I Gleichzeitig mit <Return> die 
I <Alternate>-Taste gedrückt? 
Karte restaurieren?“ 
back2X 

I Letzte Änderungen ungültig? 

I Eingabe-Abbruch-Flag (restore) 


o.ffX=1 ! Eingabe-Abbruch-Flag (normal) 

ENDIF 
ENDIF 

IF LEFTt(buf$)=esc$ OR LEFT$(buf$)=" " I linkes Zeichen der 
■ I aktuellen Zeile > Esc oder Space? 

o.ffX=1 I Eingabe-Abbruch-Flag (normal) 

ztxt$(cntX)=RIGHT$(buf$,LEN(buf$)-1) I Linkes Zeichen abtrennen 
ztxt$(cntX)=ztxt*(cntX)+STRING$((lngX(cntX)-LEN(buf»))+1,46) 

' ! Zeilenrest mit Punkten füllen 


ELSE 

IF RIGHT$(buft)=esc$ OR RIGHT$(buft)-“ “ I Rechtes Zeichen der 
' I aktuellen Zeile = Esc oder Space? 

o.ffX=1 ! Eingabe-Abbruch-Flag (normal) 

ztxt$(cntX)=LEFT$(buf$,LEN(buf$)-1) I Rechtes Zeichen abtrennen 
ztxt$(cntX)=ztxt*(cntX)+STRING$((lngX(cntX)-LEN(buf*))+1,46) 

' ! Zeilenrest mit Punkten füllen 


ELSE 

ztxt$(cntX)=buf$+STRING$(lngX(cntX)-LEN(buf$),46) 

' I Zeile in Pufferfeld einbauen 

ENDIF 
ENDIF 

PRINT AT(16,cntX+1+yoX/16*tX);! Cursor positionieren 

PRINT #1,ztxt$(cntX);" ! Zeile formatiert auf VID: ausgeben 

VOID FRE(O) I Garbage Collection 

BMOVE VARPTR(ztxt$(cntX)),byte1X+p.osX,HAX(1,lngX(cntX)) 


ADD p.osX,IngX(cntX) 

IF shX=4 OR shX=20 

I 

SUB cntX,2 
IF cntX<0 
cntX=MAX(1,czX-1) 

ENDIF 
CLR p.osX 
3pcalc(0) 

ENDIF 

EXIT IF o.ffX>0 
LPOKE XBIOS(14,1)+6,0 
NEXT cntX 
EXIT IF o.ffX>0 
LOOP 
CLOSE #1 
VOID FRE(O) 

IF 0.ffX=2 
BMOVE VARPTR(satz$),byteix,sgX 
ELSE 


! In Kartenspeicher übertragen 
I AdreB-Offset d. nächsten Zeile 
! Gleichzeitig mit <Return> 

I die <Control>-Taste gedrückt? 

I Zeilenzähler minus 2 
! Kleiner Null? 

! Zähler auf letzte Zeile 

! Zeilen-Offset löschen 
! Neues Zeilen-Offset holen 

! Ausstieg, wenn Eingabeabbruch 
! Tastaturpuffer löschen 
! Nächste Zeile 

I Ausstieg, wem Eingabeabbruch 

! VIDEO-Port schließen 
! Garbage Collection 
! Restore-EXIT (<Return><Alternate>)? 
! Alten Satz in Kartenspeicher zurück 
! Normal-EXIT (<Shift><Return>) ! 
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buf$=SPACES(sgX) I Vergleichspuffer vorbereiten 

BHOVE byte1X,VARPTR(buf$),sgX I Meue Karte in Puffer schreiben 
IF buf$<>satz$ I Alte Karte ungleich neuer Karte? 

aupdate(byte1X-staX+1,byte1X,sgX) I Ggfs. Disk updaten 


ENDIF 

ENDIF 

VOID B10S(11,0) 
CLR o.ffX.shX 
PAUSE 10 

I 

SHOUM 

RETURN 


I Evtl. CapsLock ausschalten 
I Flag und Shift-Nerker löschen 
I Kleine Pause, damit die benutzte 
I <Suitch>*T. losgelassen werden kann 
I Maus wieder an 


PROCEOURE pcalc(diffX) 

IF (cntX-diffX)>0 
FOR jX=1 TO (cntX-diffX) 
ADD p.osX,IngX(jX) 

NEKT jX 
ENDIF 
RETURN 


I Zeilen-Offsets b. Eingabe berechnen 
I Unterhalb der ersten Zeile? 

I Bis zur aktuellen Zeile 
I AdreB-Offsets addieren 
I Nöchste Zeile 


PROCEDURE karte_suchen 
search; 
aibox 

PRINT AT(6,22);"1. Suchbegriff 
srchmein$=srch$ 

FORM INPUT 27 AS srchS 


I Suchbegriff(e) eingeben 
I Start-Label für 1. Begriff 
I Eingabebox zeichnen 

II. 

f 

I Letzten Such-String merken 
I Neuen Such-String holen 


srch$<EFTS(srch$,MIN(2S,LEN(srchS))} I Max. 25 Zeichen 
IF LEFT$(srch$,2)=esc$+esc$ OR RIGHT$(srch$)=esc* OR srch$='‘" 

■ II. und 2. od. letztes Zeichen > 

■ I Oder Such-String leer? 

srchS^srchmemS I Alten Such-String restaurieren 

such.exitX=1 I und Suchmodus abbrechen 


Esc 


ELSE 

IF LEFT$(srch$)=esc$ 
srch*="“ 

GOTO search 


I Nur erstes Zeichen > Esc? 
I Such-String löschen 
I Und zurück zur Neueingabe 


ENDIF 

PRINT AT(6,22);"1. Suchbegriff 
ENDIF 

IF such.exitX=0 
CLR flg_andX,flg_orX 
ALERT 2,"Zweiter Suchbegriff? 
IF back3X<>3 
IF back3X=1 
flg_andX=1 

PRINT AT{10,23);" U N D" 
ENDIF 

IF back3X=2 
flg orX=1 

PRINT AT(10,23);" ODER" 
ENDIF 


: ";8rch$" 

I Noch kein Such-Abbruch? 

I AND/OR-Flags löschen 
",3," AND j OR |NEIN",back3X 
I 2. Suchbegriff vorgeben? 

I AND-Modus? 

I AND-Flag setzen 
I Modus anzeigen 

I OR-Modus? 

I OR-Flag setzen 
I Modus anzeigen 


search2: I Start-Label für 2. Begriff 

PRINT AT(6,24);"2. Suchbegriff : 

srch2meiTlS=srch2S I Alten AND/OR-String merken 

FORM INPUT 27 AS srch2$ I Neuen AND/OR-String holen 

srch2S=LEFT$(srch2$,NIN(2S,LEN(srch2$)}) I Max. 25 Zeichen 
IF LEFT$(srch2S,2)=esc$+esc$ OR RIGHTS(srch2$)=esc$ OR srch2$="" 

' I 1. und 2. od. letzt. Zeichen = Esc? 
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srch2$=srch2niemt I Alten Such-String restaurieren 

PRINT AT(10,23);SPACE$(10) I Modusanzeige löschen 

PRINT AT(6,24);SPACE$(45) ! Ungültige Eingabe löschen 

CLR flg_an^,flg orX I AND/OR-Suche abbrechen 

ELSE 

IF LEFT$(srch2S)=esc$ ! Nur erstes Zeichen = Esc? 

srch2$="'' I AND/OR-String löschen 

PRINT AT{6,24);SPACES(45) 

GOTO search2 I Und zurück zur Neueingabe 

ENDIF 

PRINT AT(6,24);"2. Suchbegriff : '';srch2»" 

ENDIF 

ENDIF 

ENDIF 

shflgX=1 I Desktop-Restore-Flag setzen 

RETURN 


PROCEDURE karte springen 
REPEAT 
aibox 

PRINT AT(14,23);"GOTO Karte Nr 
FORM INPUT 5,Ziels 
zielX=VAL(zielS) 

UNTIL zielX<kartenX+1 
shflgX=1 
abi Idaufbau 
RETURN 


I Sprung zu beliebiger Karte 

I Schleife... >.. 

I Eingabebox zeichnen j 
: I 

I Zielposition holen j 
! String konvertieren j 
I ..bis gültige Nr. <-■ 

I Desktop-Restore-Flag setzen 
I Menü/Register etc. zeichnen 


PROCEDURE karte_tauschen 

IF hlpX=1 I 1. Karte schon bestimmt? 

alS="Karte Nr. •'+STR$(pkX)+"|mit Karte Nr. " 
al$=alS+STRS{cardX)+“(vertauschen?" 

ALERT 2,alS,1,"NEIN|OKAY",back3X 

IF back3X=2 I 1. mit 2. Karte tauschen? 

CLR hlpX I Flag für 1. Karte löschen 

buf$=SPACE$(sgX) I Tauschpuffer vorbereiten 

BHOVE staX+(pkX-1)*sgX,VARPTR(bufS),sgX I 1. Karte in Puffer 

BMOVE staX+(cardX-1)*sgX,staX+(pkX-1)*sgX,sgX I 2. in 1. Karte 

BHOVE VARPTR(buf$),staX+(cardX-1)*sgX,sgX I Puffer in 2. Karte 
pcrdX=(MIN(pkX,cardX)-1)*s.gesX I Kleineres K.-Offset 

pcrd2X=((HAX(pkX,cardX)-MIN(pkX,cardX))+1)»sgX! Offset-Differenz 
aupdate(pcrdX+1,staX+pcrdX,pcrd2X) I Ggfs. Disk updaten 

ENDIF 

ELSE ! Noch keine Tauschkarte bestimmt! 

alt="Karte Nr. "+STR$(cardX) 

alS=al$+" puffern?({nächste <T>-Taste = 2.Karte}" 

ALERT 2,al$,1,"NEIN(OKAY",back3X 

IF back3X=2 ! 1. Tauschkarte merken? 

pkX=cardX I Herker = Kartennuimer 

hlpX=1 ! Flag für 1. Karte setzen 

ENDIF 
ENDIF 

RETURN 

***************************************************************** 

PROCEDURE karte_einfuegen 

LOCAL vollX I 'VollX* löschen 

al$="Leerkarte an(Position "+STR$(cardX)+"(einfügen ??" 

ALERT 2,al$,1,"NEIN(OKAY",back3X 
IF back3X=2 


! Leerkarte einfügen? 
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Nächstes Byte <.. 

Hinterste Karte belegt? 


FOR iX^staX+kgesX DOUNTO stsX+KgesX-sgX-i-l I Alle Bytes der 
' I hintersten Karteikarte... 

IF PEEK(iX)>32 AND PEEK(iX)<>46 AND PEEK(iX)<>95 I ...evtl. 

' I Textzeichen enthalten? 

vollX=1 I Flag setzen (Karte belegt) 

ENDIF i 

NEXT iX I 

IF V0llX=1 I 

al$=''Letzte Karteikartejist nicht frei 1" 

ALERT 1, als, 1,“Return",back3X I Hinweis ausgeben 
ELSE I Hinterste Karte frei! 

BMOVE byteix,byte1X+sgX,HAX(1,sgX*(kartenX-cardX)) I Kartei-Rest 
' I ab aktueller Karte um eine Karte 

' I nach oben versetzen 

buf$=STRINGS(sgX,46) I Leerkarte vorbereiten (Punkte) 

BMOVE VARPTR(bufS),byte1X,sgX I Punktepuffer in Karte schreiben 
aupdate(byte1X-staX+1,byte1X,sgX*((kartenX-cardX)+1)) I Ggfs. 

ENDIF I Disk-Update 

ENDIF 
RETURN 

***************************************************************** 


PROCEDURE karte loeschen 

ALERT 2,"Karte”"+STR$(cardX)+" löschen ??",1,"HEIN|OKAY",back3X 

IF back3X=2 I Aktuelle Karte löschen? 

BMOVE byte1X+sgX,byte1X,MAX(1,sgX*(kartenX-cardX)) I Kartei-Rest 
' I ab nächster Karte un eine Karte 

' I nach unten versetzen 

bufS=STRING$(sgX,46) I Leerkarte vorbereiten (Punkte) 

BMOVE VARPTR(bufS),staX+kgesX-sgX,sgX I Punktepuffer in hinterste 
' I Karte schreiben 

aupdatc(byte1X-staX+1,byteix,sgX*((kartenX-cardX)+1)) I Ggfs. 

ENDIF I Disk-Update 

RETURN 


***************************************************************** 


PROCEDURE karte_drucken I 

IF OUT?(0)=TRUE I 

LPRINT I 

FOR kX=1 TO czX I 

LPRINT ... 

NEXT kX I 

ELSE I 


Druckerausgabe d. aktuellen Karte 
Drucker an, bzw. Online? 

Leerzeile 

.—> Alle Eintragszeilen >--. 
j ...schreiben... | 

'-< Nächste Zeile <.' 

Drucker antwortet nichtI 


ALERT 1,"Drucker nicht empfangsbereitl", 1,"Weiter",back2X 
ENDIF 
RETURN 


PROCEDURE karte_import(impadX,implnX) I Externe Daten importieren 
IF implnX=kgesX I Importlänge - Kartei länge? 

al$="Kartei ab Start mitjImport-Datei überschreiben?" 

ALERT 2,al$,1,"NEIN|OKAY",back3X 
ELSE I Importlänge kleiner Kartei I 

al$="Nur aktuelle Karte oderjab aktueller Karte mit|" 
al$=al$+"Import-Datei überschreiben?" 

ALERT 2,al$,1,"NEIN| Karte jab Karte",back3X 

IF back3X=3 ! Ab aktueller Karte bis Karteiende 

implnX=kgesX-(byte1X-staX) I Verbleibende Kartei länge 

ENDIF 
ENDIF 

IF back3X>1 I Daten tatsächlich importieren? 

aheadd,"Import-Datei wählen") 
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FILESELECT importS ! Dateiauswahl 

aheadCO,"") 

IF EXIST(Imports) I Gewählte Datei existiert? 

OPEN "l",#1,import$ I Darm öffnen 

BGET #1,impadX,NIN(implnX,L0F(#1)) I Datei ab gewählter Adresse 
' I Bis max. Karteiende laden 

CLOSE #1 I File schließen 

9update(impadX-staX+1,impadX,implnX) I Ggfs. Disk-Update 
ENDIF 
ENDIF 
RETURN 


PROCEDURE sorter I Kartei sortieren 

alS=" Kartei nachjEintragszeile ''+STRS(zy*+1)+"|» " 
alS=alS+prcS(zyX+1)+" «| sortieren?" 

ALERT 2,alS,1,"NEINjOKAY",back3X 

IF back3X=2 I Sortieren? 

DEFMOUSE 2 I Bienen-Maus an 

vh=22/kartenX I Verhältnis der Menüzeilenhöhe zur 

' ! Kartei länge (Busy-Effekt s.u.) 

bufS=SPACES(sgX) I Kartenpuffer vorbereiten 

FOR jX=0 TO kartenX-1 I Alle Karten 

sbuf1S=STRING$(lngX(zyX+1),0) I 1. String-Puffer nullen 

sbuf2S=sbuf1$ I 2. Puffer » 1.Puffer 

BMOVE staX+{jX*sgX)+{zsetX-1),VARPTR{sbuf1t),MAX<1,lngX(zyX+1)) 

' II. KarteCnzeile) in 1. Puffer 

LINE 100,(116+jX*vh)/tX,110,{116+jX*vh)/tX I Busy-Effekt 
FOR kX=jX+1 TO kartenX-1 I Alle (Vergleichs-)Karten 
BMOVE staX+{kX*sgX)+(zsetX-1),VARPTR{sbuf2$),MAX{1,lngX(zyX+1)) 

' I 2. Karte(nzeile) in 2. Puffer 

IF sbuf1$=STRING$(lngX(zyX+1),A6) I 1. Karte(nzeile) nur Punkte? 

sbuf1$=STRING$(lngX(zyX+1),255) I Dann ganz nach oben setzen 
ENDIF 

IF sbuf2S=STRINGS(lngX(zyX+1),46) I 2.Karte(nzeile) nur Punkte? 

sbuf2S=STRINGt(lngX(zyX'i'1),255) I Dann ganz nach oben setzen 
ENDIF 

IF sbuf1S<>sbuf2$ I 1. String ungleich 2. String? 

IF UPPERS(sbuf1$)>UPPERS(sbuf2$) I 1. String > 2. String? 

SUAP sbuf1$,sbuf2$ I Puffer austauschen 

BMOVE staX+(jX*sgX),VARPTR(buf$),sgX I.. Speicher- 

BMOVE staX+(kX*sgX),staX+(jX*sgX),sgX I.| Blöcke 

BMOVE VARPTR(buf$),staX+(kX»sgX),sgX I.• austauschen 

ENDIF 

ENDIF 

NEXT kX I Nächste Vergleichskartefnzeile) 

NEXT jX I Nächste Sortierkarte(nzeile) 

aupdated,staX,kgesX) I Ggfs. Disk-Update 

DEFMOUSE 0 ! Pfeil-Maus wieder an 

ENDIF 
RETURN 

***************************************************************** 

PROCEDURE liste 

buf$=SPACE$(MAX(1,lngX(zyX+1))) I Zeilenpuffer vorbereiten 

REPEAT ! Schleife... >.. 

aibox I Eingabebox zeichnen j 

PRINT esc$;"p"; ! Schrift invers | 

PRINT AT(6,23);"» ";pre${zyX+1);" «";esc$;"q";" Liste ab Karte Nr. 

> H • 

FORM INPUT 5 AS strtS I Startposition holen j 
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EXIT IF LEFT$(strtS)=esc$ 
strt%=VAL(strt$) 

IF strt$='"' 
strt%=1 
ENDIF 

UNTIL strtX<kartenX+1 AND strtX>0 
IF LEFT$(strt»)<>esc$ 

OPEN ■"■,#1,"VID:“ 

CLS 


I Abbruch wenn Esc 
I String konvertieren 
I Ohne Eingabe zurück 
I Dann ab Karte 1 

I 

I ..bis gültige Nr. <-' 

I 1. Zeich. d. Nunnerneingabe o'Esc' 
I VIDEO-Port auf 
I BiIdschirm klar 


PRINT esc$;''p''; I Schrift invers 

PRINT "Liste: '";prc$(zy*+1);"'";SPACE${18); 

PRINT "(<Taste> = nächste Zeile / <Esc> « Abbruch)"; 

PRINT STRING$(80,"=");esc$;"q"; I Unterstreichen und Schrift normal 
repS=CHR$(0)+CHRS(8)i^CHR$(9)+CHR$(10)4^CHR»(11)+CHRS(12)+CHR$(13) 

' I Steuerzeichenliste 

FOR j5t=strt*-1 TO kartenX-1 I Alle Karten ab Startnuimer >-. 


BHOVE stsX+(jX*sgX)+(zsetX-i: 

I 

Sxreplc 

PR I NT esc$;"p";jX+1;SPACE${6 
PRINT #1,buf$; 

PRINT 

IF INP{2)=27 
jX=kartenX-1 
ENDIF 

LPOKE XBIOS{U,1)+6,0 
NEXT jX 

PRINT esc$;"p"; 

PRINT SPACE$(NAX(1,lngX(zyX+1) 
PRINT esc*;"q"; 

REPEAT 

UNTIL INP(2)=13 
CLOSE #1 
ELSE 

strtS=RIGHT$(strtS,LEN(strt$)- 

CLS 


,VARPTR(bufS),HAX(1,lngX(z/X+1)) I 
I In Puffer übertragen j 

I Steuerzeichen eliminieren | 

LEN(STRS(jX+1)));"|";esc$;"q";" "; I 
I Zeile in VID: ausgeben 
I CR/LF 

I <Esc> gedrückt? 

I Dann Zähler auf Endwert 

I Tastaturpuffer löschen 

I Nächste Karte <. 

I Schrift invers 
i);"<Return>" 

I Schrift normal 
I auf... 

I ... <Return> warten 
I VIDEO-Port schließen 
I Nimmerneingabe m. Esc abgebrochen! 
1)1 Eingabe-String korrigieren ENDIF 
I Bildschirm klar 


shflgX=1 I Flag für Desktop-Hintergrund 

abildaufbau I Desktop restaurieren 

RETURN 


PROCEDURE automatic I Automatische Update-Kontrolle 

autoX=autoX XOR 1 I UPDATE-An/Aus-Flag imschalten 

IF autoX=1 I Flag auf "aus"? 

al$="Automatische Daten-Sicherung|wird ausgeschaltet I" 

ALERT 1, als, 1,"OKAY",back3X 
ELSE I Flag auf "an" 

alS="Änderungen werden|automatisch auf|Disk gesichert I" 

ALERT 1, als, 1,"OKAY",back3X 
ENDIF 

DEFFILL 1,0,0 

PBOX 16,U4/tX-1,161,16S/tX-1 I UPDATE-Henüpunkt löschen 

astext<20,159/tX,0,"UPDATING "+CHRS(32+10*(1-autoX))+" <u>",2,2) 
GET 10,56/tX,170,254/tX,m.bildS I Gesamtes Menübild erneuern 

CLR wahlX,menueX I Menüauswahl rücksetzen 

aservice I Ggfs. Disk-Update 

RETURN 


PROCEDURE Service 
IF changeX=1 AND autoX=0 


I Karte(n) geändert und UPDATE "an"? 
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al$="AUe bisherige(n) jXnderung(en) auf joiskette sichern?“ 

ALERT 2,al$,1,"OKAYlNEIN'',back2X 

IF back2X=1 I Bisherige Änderungen sichern? 

atiptext("Aktuelle Kartei wird gesichert I") I Kleiner Hinweis 
CLR changeX I Änderungen-Flag aus 

aupdate(1,staX,kgesX) I Änderungen auf Disk sichern 

shflgX=1 I Flag für Desktop-Hintergrund 

abildaufbau I Desktop zeichnen 

ENDIF 
ENDIF 
RETURN 


PROCEDURE update(fseekX,crdadX,blklnX) I Änderungen auf Disk sichern 
IF autoX=0 I UPDATIHG "an"? 

REPEAT I Schleife... >.. 

CLR back2X I Exit-Flag löschen j 

IF EXIST(datei$) I Disk nicht gewechselt? j 

IF fseekX=1 AND crdadX=staX AND blklnX=kgesX I 


BSAVE dateiS,staX,kgesX 
ELSE 

OPEN "U",#1,datei$ 

SEEK #1,fseekX-1 
BPUT #1,crdadX,blklnX 
CLOSE #1 
ENDIF 
ELSE 

alS^dateiS-r" {nicht gefunden 
ALERT 1,al$,1,"OKAY",back2X 
ENDIF 

UNTIL back2X=0 
ELSE 

changeX=1 

ENDIF 

RETURN 


Ganze Kartei konplett sichern? j 

Dann sichern 
Teilkartei sicherni 
Kartei-File öffnen 
File-Pointer auf Karten-Offset 
geänderte(n) Karte(n) sichern 
Datei schlieBen j 

Disk wurde gewechselt I j 

{Datendisk einlegen I" I 


...bis ohne Fehler fertig <-- 


PROCEDURE Ibox 

DEFFILL ,2,8 I. 

PBOX 32,332/tX,416,390/tX 
DEFFILL ,0,0 

PBOX 30,330/tX,4K,388/tX 

BOX 32,332/tX,412,386/tX !.• 

RETURN 

***************************************************************** 


I Eingabebox für 
I- GOTO, User-Code 
I und Sucheingabe 


PROCEDURE bildaufbau 
IF shflgX=1 
adesk 

CLR shflgX 
ENDIF 

PUT 10,11/tX,tt$ 

PUT 10,56/tX,m.bild$ 

PUT 538,370/tX-czX*10/tX,zeilen$ 

GRAPHHODE 3 
DEFFILL ,2,8 
PBOX 541,385/tX-czX*10/tX+zyX*10/tX-(tX-1),... 

...626,395/tX-czX*10/tX+zyX*10/tX 
' I Aktuelle Eintragszeile revers 

GRAPHHODE 1 ! REPLACE-Hodus 

aregister ! Register zeichnen 


Desktop komplett zeichnen 
Auch Hintergrund erneuern? 
Dann zeichnen 
Flag wieder löschen 

Kartei-Titel-Image zeichnen 
Menü-Image zeichnen 
Eintragszeilen-Image zeichnen 
XOR-Hodus 
DEFFILL schwarz 
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DEFFILL ,0,0 ! DEFFILL wieder ueiB 

RETURN 

***************************************************************** 

PROCEDURE desk ! DeskTop-Hintergrund zeichnen 

GRAPHHODE 1 
DEFFILL ,2,8 
PBOX 7,7/t%,636,396/t% 

DEFFILL ,2,4 

PBOX 3,3/t%,632,392/tX 

DEFFILL ,0,0 

RETURN 

***************************************************************** 

PROCEDURE register ! Register A - 2 und D - 9 zeichnen 

DEFTEXT ,17,,6-2*(tX-1) I TextgröBe an Auflösung anpassen 

FOR iX=25 DOUNTO 0 I 26 Buchstaben 

PUT 55+iX*20,335/tX-iX*13/tX,cd$ I Register-Image zeichnen 

TEXT 110+iX»20,345/tX-iX»13/tX,CHRt(65+iX) I Buchstaben schreiben 


NEXT i% I Nächster Buchstabe 

FOR iX=9 DOUNTO 0 I 10 Ziffern 

PUT 240+iX*20,335/tX-iX*13/tX,cd* I Image zeichnen 

TEXT 295+iX*20,345/tX-iX*13/tX,STR*(iX) I Ziffer schreiben 

NEXT iX ! Nächste Ziffer 

DEFTEXT ,0,,13/tX I Normal-Text 

RETURN 


PROCEDURE intro ! Programm vorbereiten 

t%=MIN(2,3-XBIOS(4)) ! Y-AuflösungsteiIcr 

r_xtX=2-SGN{XBIOS(4)) I X-Auflösungsteiler für Hilfs- 

r_ytX=MIN(2,3-XBIOS(4)) I Y-Auflösungsteiler für Hilfs- 

Orahmen I Pseudo-PBOX 

DEFTEXT ,,,12/tX ! TextgröBe anpassen 

astext(32,24/tX,576,"VARIO-RAM-KART",6,4/tX) I- Screen-Aufbau 
DEFTEXT ,1,,6-2*(tX-1) I Andere Textart und -gröBe 

astext(120,386/tX,400,"'Das groBe GFA BASIC Buch' (DATA BECKER)", 
DEFTEXT ,0,,13/tX ! Normal-Text 

al$="Datei bearbeiten!oder neu definieren?" 

ALERT 2,al$,1," OPEN lDEFlNE",backX 

IF backX=2 ! Neue Kartei einrichten? 

CLS ! Bildschirm klar 


ade fine 
ENDIF 
escX=27 

escS=CHR$(escX) 

suchenX=1 

blaetternX=2 

sortierenX=3 

updateX=4 

springenX=5 

importX=6 

progexit%=7 

zsetX=1 


! Neue Kartei einrichten? 
! Bildschirm klar 
! und Definiton aufrufen 


Escape-Code 


Menü-Opcodes 

definieren 


! Zeilen_String-Offset auf 1 


aheadd,"Kartei wählen ('.DEF'-Extension)") 


REPEAT 

REPEAT 

FILESELECT "\*.DEF","_ 

UNTIL EXIST(sel$) OR sel$="" 
IF RIGHT$(sel$,4)<>".DEF" 

IF sel$>"" 


! .DEF-Datei-Auswahl >-- 
! Fileselect-Schleife >- 
_.DEF",sel$ 

! Bis Auswahl gültig <-- 
! Falsche Extension? 

! OKAY angeklickt? 


ALERT 3,"Keine '.DEF'-Datei M", 1,"Nochmal",back2X 
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ELSE 

EDIT 

ENDIF 

ENDIF 

UNTIL back2%=0 

ahead(0,"") 

OPEN 


! ABBRUCH angeklickt! 
! Dann Ende 


bis -DEF-Datei gewählt wurde <-- 


I .DEF-Datei öffnen 


INPUT #1,datei$,titel$,kartenX,czX ! Defs einiesen 
DIM lng%(cz%),pre$(cz%),ztxt$(czX) ! Felder 


FOR i%=1 TO czX 

INPUT #1,lngX(iX),pre$<i%) 
ADD sg%,IngX(iX) 
ztxt$(i%)=SPACE*(lngX( iX)) 
NEXT iX 
CLOSE #1 

kgesX=sgX*kartenX 

satz$=SPACE$(sgX) 

IF FRE(0)-50000<kgesX 


! für alle Eintragszeilen >- 

! Länge und Titel lesen 
! Alle Zeichen einer Karte addieren 
! Zeilenpuffer 

I Nächste Zeile <... 

! .DEF-Datei schließen 
I Gesamte Kartei länge 
! Kartenpuffer 

! Kartei größer freier Speicher? 


ALERT 3,"Speicher nicht ausreichend I", 1."Abbruch",backX 


aabbruch 
ENDIF 

ON BREAK GOSUB abbruch 
RESERVE 30000 


staX=HIMEM+20000 

arahmen 


yoX=((INT(((24-czX)/2)-1)*16)+7)/tX ! Karten-Oberkante 
yuX=yoX+16/tX+czX*16/tX ! Karten-Unterkante 

RETURN 

***************************************************************** 


! Ende/Neustart/Definition 

! GFA-Abruchfunktion abfangen 
! 16 KB für Fileselect-Box, 

!+10 KB für Menü/Register/Titel 
! +2 KB für Suchpuffer 
! +2 KB Toleranz 

! +20000 für V2.02 zur Sicherheit 
! Pseudo-Pbox 

. Auflösungs¬ 
abhängig 


PROCEDURE datload 
lader: 

VOID FRE(O) 

IF EXIST(datei$) ! 

atiptextC'Datei wird geladen !") 
OPEN "I",#1,dateii 
BGET #1,staX,HIN(LOF(#1),sgX) 
CLOSE #1 

IF PEEK(staX+sgX-1)=ASC(">") 

I 

IF PEEK(staX+sgX-4)=ASC("<") 


! Kartei laden 
I Start-Label für Lader 
I Garbage Collection 
.DAT-Datei vorhanden? 

Kleiner Hinweis 
! Kartei-Daten-File öffnen 
! 1. Karte laden (max. File-Größe) 

I Daten-File wieder löschen 
! Letztes Zeichen der ersten 
! Karte ist >? 

I A. letztes Zeichen der ersten 
! Karte ist <? 

! GFA-Abbruchfunktion unterdrücken 
!—> UserCode-Eingabeschleife >— 
• Eingabebox zeichnen 


ON BREAK CONT 
REPEAT 
aibox 

PRINT AT(10,23);"Bitte User-Code eingeben : "; 

FORM INPUT 5,code$ ! Zielposition holen 

code=VAL(code$) ! String in value konvertieren 

IF LEFT$(code$)=esc$ ! Erstes String-Zeichen = Esc? 

RESERVE XBIOS(2)-HIMEH-16384+FRE(0) ! Speicher-Restore 
EDIT ! Programnende 

ENDIF 

UNTIL code=PEEK(staX+sgX-2)+PEEK(staX+sgX-3)*2‘8 ! Eingegebener 

I I-< cotie = Karteischlüssel? <--- 

ON BREAK GOSUB abbruch ! Dann Abbruchfunktion wieder an 

CLS ! Bildschirm klar 

arahmen ! Pseudo-PBOX 
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atiptextC'Datei wird geladen 

!") 

ENDIF 


ENDIF 


OPEN •'I",il(1,datei$ 

Kartei-Daten-File öffnen 

BGET #1,staX,HIN(L0F(#1),kgesX) 

Komplette Kartei laden 

■ 

(max. Kartei- bzu. File-Länge) 

CLOSE #1 


ELSE 

■DAT-Datei nicht gefunden! 

al.strS=“Date{ nicht gefunden ijNeu einrichten oder" 

al.str$=al.str$+“|auf anderer Disk suchen?" 

ALERT 1,al.str$,2,"NEUE DAT|NEUE 

DSK|ABBRUCH",dunnyX 

IF ckjTri/X=1 

Datei neu einrichten? 

9tiptextC"Moment bitte !") 

Kleiner Hinweis 

fuell$=STRING$(S00,46) 

Füllpuffer mit Punkten 

FOR iX=staX TO staX+kgesX STEP 500 1 Gesamten Dateipuffer 

BHOVE VARPTR(fueUS),iX,S00 

Mit Punkten füllen 

NEXT iX 


BSAVE datei$,staX,kgesX 

Präparierte Datei speichern 

ENDIF 


IF dummyX=2 

Diskette gewechselt? 

GOTO lader 

Dann nochmal versuchen 

ENDIF 


IF dumnyX=3 

Abbruch? 

RESERVE XBIOS(2)-HIHEM-16384+FRE(0) 1 Speicher restaurieren 

EDIT 

Und Ende 

ENDIF 


ENDIF 


adesk 

Desktop-Hintergrund zeichnen 

3bi Id 

Erster Bildaufbau 

abiIdaufbau 

Desktop komplett zeichnen 

DEFTEXT ,0,,13/tX 

Normal-Text 

RETURN 


PROCEDURE bi Id 

Einmaliger Bildaufbau 

SETCOLOR 1,0,7,0 

Farben für Midres setzen 

SETCOLOR 2,7,0,0 

.M. .11. .11. .M. 

DEFFILL 3,2,8 


PBOX 12,13/tX,406,50/tX 

1 Kartei- 

DEFFILL 1,2,2 

1--Desktop 

PBOX 10,11/tX,404,48/tX 

1 zeichnen 

DEFTEXT ,4,,26/tX 

1 

astext(16,40/tX,385,titel$,4,4) 

.' 

GET 10,11/tX,406,50/tX,tt$ 

Und als Bild puffern 

GRAPHMODE 1 

REPLACE-Modus 

DEFFILL 1,2,8 


PBOX 12,58/tX,170,254/tX 

1 

DEFFILL ,0,0 

1 

PBOX 10,56/tX,168,252/tX 

1 

BOX 12,56/tX+2,166,252/tX-2 

1 

FOR iX=63 TO 225 STEP 27 

1 

BOX 16,iX/tX-1,162,(iX+21)/tX 

1- Menü 

PBOX 16,iX/tX-1,161,(iX+21)/tX-1 

1 zeichnen 

NEXT iX 

i 

DEFTEXT 3,0,,13/tX 

Normal-Text ! 

RESTORE m.text 

DATA-Zeiger 1 

FOR iX=78 TO 240 STEP 27 

Menüzeilen 1 

READ m.txS 

lesen 1 

astext(20,iX/tX,0,m.tx$,2,2) 

schreiben 1 

NEXT iX 

.' 
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I Henü-Data-Label 
<b>,SORTIEREN <a> 
<g>,IMPORT <i> 


I Menü als Bild puffern 
I.. 


m.text: 

DATA SUCHEN <S>,BLAETTERN 

DATA UPDATING * <U>,GOTO KARTE 
DATA Q U I T <q> 

GET 10,56/t%,170,254/tX,m.bild$ 

GRAPHMODE 1 

DEFTEXT ,17,,6-2*{tX-1) 

DEFFILL ,2,8 
PBOX 558,13/t*,629,61/tX 
DEFFILL ,0,0 

PBOX 555,10/tX,626,58/tX 
BOX 567,21/tX,585,12/tX 
BOX 569,19/tX,583,U/tX 
PBOX 595,11/tX,621,45/tX 
GET 555,10/tX,629,61/tX,cd$ 

DEFFILL ,2,8 

PBOX 538,370/tX-czX*10/tX,630,390/tX I 

DEFFILL ,0,0 I 

PBOX 538,370/tX-czX*10/tX,628,388/tX I 

BOX 540,370/tX-czX*10/tX+2/tX,626,380/tX-czX*10/tX+2/tX 


- Registerkarte 
zeichnen 


.. 

I Und als Bild puffern 
I.. 


I Eintragszeilen- 
I- Anzeige zeichnen 


BOX 540,380/tX-czX*10/tX+4/tX,626,388/tX-2/tX 
DEFTEXT ,0,,6/tX+{tX-1) 

GRAPHHODE 2 I 

TEXT 544,386/tX-10/tX*czX-6/tX,"Try <HELP>" I 

FOR iX=czX DOUNTO 1 I 

TEXT 544,386/tX-10/tX*(czX-iX)-3/tX,pre$(iX) I 

NEXT iX I.■ 

GET 538,370/tX-czX*10/tX,630,390/tX,zeilen$ I Und als Bild puffern 
GRAPHHODE 1 
RETURN 

***************************************************************** 


PROCEDURE abbruch 
IF autoXoO 
CLR autoX 
aservice 
autoX=1 
ELSE 


I Progranmende 
I UPDATING "aus"? 

I Dann wieder "an" 

I Und ggfs. Disk-Update 
I UPDATING wieder "aus" 
I UPDATING ist "an"l 


aservice I Dann ggfs. Disk-Update 

ENDIF 

ALERT 2,"Neue Kartei laden?",3,"0KAY|NEIN|C0NT",dumiiy 
IF duniiiy<>3 I Kein CONT? 

RESERVE XBIOS(2)-HIHEM-16384+FRE(0) I Speicher restaurieren 
IF durTiny=1 I Neue Kartei? 

RUN I Dann Neustart 

ENDIF 


IF duniny=2 I Abbruch? 

ED IT ! Dann Ende 

ENDIF 
ENDIF 
RETURN 


PROCEDURE define I Kartei einrichten 

DIM bezS(20),lnS(20),lnX(20> ! Eingabe-Felder dimensionieren 

VOID BIOS(11,16) I CapsLock einschalten 

FOR czX=1 TO 20 ! Max. 20 Zeilen pro Karte 

PRINT "TITEL für Zeile ";czX'"(<Control><Return>=EINGABE-ENDE) : " 

VOID BI0S(11,16) I CapsLock ggfs, wieder einschalten 

FORM INPUT 10 AS bez$(czX) I Zeilentitel (max. 10 Zeichen) 

bez$(czX)=bez$(czX)+SPACE$(10-LEN(bez$(czX))) I mit Space auffüllen 
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EXIT IF BI0S(11,-1)=A OR BIOS(11, 


I I 

I I 

REPEAT I 

PRINT “Länge der Eintragszeile 
FORM INPUT 2,ln$(czX) I 

lnX(czX)=VAL(lnS(czX)) I 

UNTIL lnX(czX)>0 AND lnX(czX)<61 
NEXT czX I 

DEC czX I 

CLS I 


PRINT "Disk-FUe-Name der Da 
FORM INPUT 8,datei$ 

PRINT "Datei-Überschrift 

INPUT titelB 

REPEAT 

PRINT "Karteikarten-Anzahl 
INPUT kartenX 
UNTIL kartenX>0 
VOID BIOS(11,0) 

OPEN "0",#1,datei*+".DEF“ 
datei$=datei$+“.DAT“ 

URITE #1,datei$,titel$ 

URITE #1,kartenX,czX 
FOR iX=1 TO czX 
URITE #1,lnX(iX),bezS(iX) 
NEXT iX 
CLOSE #1 
CLS 

ERASE bezSO 
ERASE ln$() 

ERASE InXO 
RETURN 


-1)=20 I Abbruch wenn 
<Control><Return> oder 
<ControI><Return> und CapsLock 

Eingabeschleife für Länge >-. 

";czX"' (max. 60) : I 

Max. 2 Zeichen eingeben I 

String in value konvertieren | 

I Bis gültige Länge <.' 

Nächste Zeile 
Zeilenzähler -1 
Bildschirm löschen 

.. __X. 8 Zeichen) 

I Kartei-File-Namen eingeben 

I Kartei-Desktop-Titel eingeben 
I Eingabe-Schleife —. 
dieser Datei I 

I 

I Für Kartenanzahl 
I CapsLock wieder ausschalten 
I .DEF-Datei öffnen 
I File-Namen+.DAT 

I .. 

I Alle Defs 
I in .DEF-Datei 
I schreiben 
I .• 

I Datei schlieBen 
I Bildschirm löschen 
I ---. 

I Felder löschen 

I ...1 


PROCEDURE blinker(b.fIgX.bxIX,byoX,bxrX,byuX) 

' Invertiert BiIdschimbereich bzu. läBt ihn einmal blinken. 

' (auch für Blitter-TOSI) 

' B.flgX : Flag, ob invertiert (1) oder geblinkt (0) werden soll 
' BxlX, ByoX, BxrX und ByuX: 

' Koordinatenübergabe in Hi res. 

■ Midres/Lowres werden angepaBt. 

I 

DEFFILL 1,2,8 I DEFFILL schwarz 

GRAPHMOOE 3 I XOR-Hodus 

PBOX bxlX/r_xtX,byoX/r_ytX,bxrX/r xtX,byuX/r ytX I Pbox invers 
IF b.flgX=0 "l Blinker "an"? 

PAUSE 10 I Klitztekleine Pause 

PBOX bxlX/r_xtX,byoX/r_ytX,bxrX/r_xtX,byuX/r_ytX I Pbox nochmal.. 
ENDIF I ..invers 

GRAPHMWE 1 I GRAPHMOOE und DEFFILL ggfs. .. 

RETURN I ...hinterher restaurieren 

***************************************************************** 

PROCEDURE head(h.flgX,h.txtS) 

' Zeichnet in allen Auflösungen eine graue Box mit vorgegebenem 
' Text über einer Fileselect-Box. 

■ ***====> Die Prozedur Head finden Sie unter FILESELECT. 


RETURN 
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PROCEDURE tiptext(tipS) 

' Zentriert beliebigen Text in Bildschirninitte 
LOCAL tlnX 

GRAPHMOOE 1 I 

DEFFILL ,0,0 I 

OEFTEXT ,0,,13/tX I 

tln*=LEM(tip$)*4 I 


REPLACE-Modus 
DEFFILL weiB 
Normal-Text 
Halbe String-Pixel-Lünge 


PBOX 3Z0/r_xtX-tlnX-6,190/r ytX-5,320/r xtX+tlnX+6,220/r_ytX+5 I--. 
BOX 320/r xtX-tlnX-3,190/r ytX-2,320/r xtX+tlnX+3,220/r ytX+2 I 
BOX 320/rIxtX-tlnX-3,190/rIytX-2,320/r~xtX+tlnX+4,220/r_ytX+3 I--' 

TEXT 320/r_xtX-tlnX,212/r ytX,tip$ IText zentriert ausgeben 
GRAPHMOOE 1 ~ I GRAPHMOOE, DEFFILL urtd DEFTEXT.. 

RETURN I ...ggfs, hinterher restaurieren 


Box 


PROCEDURE rahmen 

' Zeichnet eine mit einem Zufallsmuster gefüllte Box in 
' EinheitsgröBe (nur Midres/Hires - auch für Blitter-TOSI) 

I 

LOCAL Z$,jX,iX 

FOR jX=1 TO 16/tX I 8 (Midres) oder 16 (Hires) 

must$:CHR$(RAND0M(128))+CHRS(RAND0M(128)) I Zufall-Uords 
z$°z$+MKLS(0)+STRING$(36+40*(r_ytX-1),mustS}+MKL$(0} I plus je ein 
NEXT JX I Null-Longuord vorn und hinten 

FOR iX=32/r_ytX TO 360/r_ytX STEP 16/r_ytX/r_ytX I je«eils 4 (Midres) 

' I bzw. 16 ^Hires) Bildschirmzeilen 

BMOVE VARPTR(zS),XBIOS(2)+iX*80*r_ytX,1280/r_ytX I mit Muster füllen 
NEXT iX I Nächster Zeilenblock 

BOX 7/r_ytX,7/r_ytX,638-7/r_ytX,393/r_ytX I.. 

BOX 31/r_ytX,31/r_ytX,638-3T/r_ytX,369/r_ytX I Und Rahmen 

BOX 7/r ytX,7/r_ytX,639-7/r ytX,394/r ytX I drimherun 

BOX 31/r_ytX,31/r ytX,639-3T/r ytX,37Ö/r_ytX I.• 

RETURN 


PROCEDURE stext(s.xtX,s.ytX,s.xlX,s.txt$,s.xoX,s.yoX) 
' Gibt Schattentext mit aktuellen Textatrributen an 
' beliebiger Bildschirmposition aus. 

• S.xtX, S.ytX, S.xlX und S.txtS: 

• Siche DEFTEXT-Parameter 1-4 

• S.xoX' und S.yoX: 

' Schatten- X/Y-Offsets in Pixel 


GRAPHMOOE 2 

TEXT s.xtX-1,s.ytX,s.xlX,s.txt$ 
TEXT s.xtX+1,s.ytX,s.xlX,s.txt$ 
TEXT s.xtX,s.ytX-1,s.xlX,s.txt$ 
TEXT s.xtX,s.ytX')'1,s.xlX,s.txtS 
TEXT s.xtX+s.xoX,s.ytX+s.yoX,s.) 
GRAPHMOOE 3 

TEXT s.xtX,s.ytX,s.xlX,s.txtS 
GRAPHMOOE 1 
RETURN 


I TRANSPARENT-Modus 
I.. 

I- Textumrandung zeichnen 
I 

!.• 

p,s.txt$ I Textschatten zeichnen 
I XOR-Modus 

I Text in Umrandung einsetzen 
I GRAPHMOOE... 

I ...ggfs, hinterher restaurieren 


PROCEDURE path(p.flgX,p.str$,p.sgn$,p.adrX,d.adrX,f.adrX) 

' Untersucht einen String ab String-Ende rückwärts auf 
' das erste Vorkommen eines in einer Liste vorgegebenen 
' Zeichens (P.flgX = 0) bzw. auf das erste Vorkomnen eines 
' Zeichens, das nicht in der Liste enthalten ist (P.flgX >0). 

' Wird es gefurvlen, wird der String bei diesem Zeichen geteilt urd 
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die zwei Teile sowie das entsprechende (Trenn-)Zeichen zurückgegeben. 

P.flgX = Flag, das angibt, ob auf gleich (0) oder 
ungleich (>0) geprüft werden soll. 

P.strS = Zu untersuchender String 

P.sgnS = String, der das/die (Trenn-)Zeichen enthält 

P.adrX = Pointer auf eine Rückgabe-String-Variable, 

an die der vordere String-Teil übergeben wird. 

D.adrX = Pointer auf eine Rückgabe-String-Variable, 

an die der hintere String-Teil übergeben wird. 

F.adrX = Pointer auf eine Rückgabe-String-Variable, an 

die das gefundene (Trenn-)Zeichen übergebm wird 


LOCAL p.cntX 

IF LEN(p.str$) I Ziel-String übergeben? 

FOR p.cntX=LEN(p.str$) OOUNTO 1 I Alle Ziel-String-Zeichen >.. 

EXIT IF (INSTR(p.sgnS,MID$(p.strS,p.cntX,1))«0) AND p.flgX I 

' I EXIT, wenn Flag > 0 und String-Z. | 

' I iiR Such-Zeichen-String nicht enth.| 

EXIT IF INSTR(p.sgnS,HID$(p.str$,p.cntX,1)) AND (p.ftgX>0) I 

' I EXIT, wenn Flag « 0 und String-Z. j 

' I im Such-Zeichen-String enthalten { 

NEXT p.cntX I Nächstes Zeichen <.' 

IF p.cntX<1 OR LEN(p.str$)°1 I Ziel-String nur ein Zeichen 
' I oder alle Zeichen durchsucht? 

IF (p.cntX=1 AND p.flgX=0) OR (p.cntX<1 AND p.flgX>0) 

' Flag = 0 und Ziel-String ist nur ein Zeichen lang 


■ ODER 

' Flag > 0 und 

*p.adrX="" 

•d.adrX="“ 

•f.adrX=p.strS 
ELSE 


Ziel-String wurde ohne Erfolg durchsucht? 

I Linker String-Anteil ist leer 
I Rechter String-Anteil ist leer 
I Gefundenes Zeichen « Ziel-String 
I 


' Flag > 0 und Ziel-String ist nur ein Zeichen lang 
■ ODER 


’ Flag = 0 und 
*p.adrX=p.str$ 
*d.8drX="" 
•f.adrX="" 
ENDIF 
ELSE 

IF p.flgX 
ADD p.cntX,1 
ENDIF 


Ziel-String wurde ohne Erfolg durchsucht I 

I Linker String-Teil « Ziel-String 
I Rechter String-Anteil ist leer 
I Kein gefundenes Trennzeichen 

I Gleich/Ungleich-Zeichen gefundeni 
I Flag >0 

I Trennposition +1 


*p.adrX=LEFT$(p.str$,p.cntX-1)l Linken Teil isolieren 
*d.adrX=RIGHT$(p.str$,LEN(p.str$}-LEN(LEFT$(p.strS,p.cntX))) 
' I Rechten Teil isolieren 

*f.adrX=RIGHTS(LEFT$(p.str$,p.cntX)) I Zeichen isolieren 
ENDIF 
ENDIF 
RETURN 


PROCEDURE xreplc I Steuerzeichenliste ersetzen 

IF rep$>"" AND bufS>'"' I Zeichenliste urxJ Ziel-String okay? 

FOR x.iX=1 TO LEN(rep$) I Steuerzeichenliste durchgehen >--. 

arplc(1,0,bufS,MIDS(rep$,x.iX,1),CHR$(Z55),*buf$) I Ersetzen | 

NEXT x.iX I Nächstes Zeichen <.' 

ENDIF 

RETURN 
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PROCEDURE rplcCr.flgX,posX,m.strS,s.strS,r.strS,r.aclrX) 

■ Setzt an Stelle des gefundenen Such-Strings den angegebenen 
' Ersatz-String. 

i =:=====> Die Prozedur Replc finden Sie unter DATA. 

RETURN 


PROCEDURE dcolor 

' Bietet eine komfortable Möglichkeit zur Farbeinstellung 
' für alle Bildschirmauflösungen. 



' Bedienung: 

' 1. Gewünschtes Farbfeld anklicken. 

' RGB-Anteile der Farbe werden angezeigt (0 - 7). 

' 2. Farbanteile bestinmen 

' Dazu wird mit der linken Maustaste im jeweiligen 

' Anteilsfeld (+-) der jeweilige Farbanteil um 

' 1 erhöht und mit der rechten Maustaste der Anteil 

' um 1 vermindert. Änderung wird angezeigt. 

' 3. Ausgang: 

' Cancel bzw. <Esc> restauriert die vor der Änderung 

' gültigen Farben. 

' Return bzw. <Return> installiert die neue 

' Farbpalette im System 

• Wird ein Farbfeld mit der rechten Maustaste angeklickt, wartet die 
' Routine auf einen weiteren Klick auf ein zweites Farbfeld 
' (blinkender Rahmen um Feld 1). 

' Wird das zweite Farbfeld mit der linken Maustaste bestinmt, 

' werden die beiden Farbregister miteinander vertauscht. 

■ Wird es dagegen mit der rechten Maustaste bestimmt, wird 
‘ der Wert des ersten Registers in das zweite Register kopiert. 

' Die Routine paBt sich selbständig an die aktuelle Auflösung an. 

' ln Hires können nur die Farbregister vertauscht, jedoch nicht 
' editiert werden. 

' Von der Routine werden die DEFFILL-, DEFTEXT- und GRAPHMODE- 
' Attribute verändert. Um die Routine für alle TOS-Versionen 
' verwendbar zu machen, werden diese Einstellungen nicht 
' restauriert. Dies muß nach Rückkehr vom Programnierer selbst 
' erledigt werden. 

' Bei dieser Prozedur ist programmtechnische Kritik möglich 
' (z.B. mehrere IF-Abfragen zur Vermeidung von Unterroutinen). 

' Bedenken Sie bitte dabei, daB es in jeder Hinsicht darum ging, 

' die Routine absolut unabhängig - und damit selbständig - zu machen. 

LOCAL ciX,cxtX,planeX,breitX,cxlX,cyoX,cxrX,cyuX,bbr,ctX,bx2S,buttonX 
LOCAL coli,ctx$,bx$,rgbX,keyS,i.memX,cindexX,... 

...ci1X,cbx1X,cby1X,cbx2X,cby2X 
LOCAL rotX,gruenX,blauX,ccolorX,cbkX,... 

.. .ci2X,cc1X,cc2X,cbr,dbr,dumniy$,exf IgX 

DIM old_palX(16),cvX(2,16) 
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FOR ciX=0 TO 15 I 

oldjMlX{ciX)=XBI0S(7,ciX,-1) AND 


NEXT ciX 
cxtX=2-SGN(XBIOS(4)) 
cytX=HIN(2,3-XBI0S(4)) 

GET 0,0,1,1,diJtmy* 
planeX=2'DPEEK(VARPTR(dtJiniy$)+4} 
RESTORE convert.table 
convert.table: 


DATA 0,2,3,6,4,7,5,8,9,10,11,14,12, 


FOR ciX=0 TO 15 
READ ccolorX 
cvX(1,ciX)=ccolorX 
cvX(2,ccolorX}=ciX 
NEXT ciX 
IF cxtX=1 
IF cytX=2 
cvX(1,3)=1 
cvX(2,1)=3 
ELSE 

cvX(1,1)=1 

cvX{2,1)=1 

ENDIF 

ENDIF 

breitX=400/cxtX 

cx l X=320/cxtX-breitX/2 

cyoX=160/cytX 

cxrX=320/cxtX+breitX/2 

cyuX=240/cytX 

GET cxlX,cyoX,cxrX,cyuX,col$ 
bbr=(breitX-20)/pt aneX 
cbr=(breitX-20)/5 
dbr=(breitX-20)/15 
DEFFILL ,0,0 


Alle 16 Farbregister 
&HFFF I auslesen | 

Nächstes Register <-' 

X-Auflösungsteiler 
Y-Auflösungsteiler 
Duiniy'GET 

GFA-Schlüssel für die Farbebenen 
DATA-Zeiger auf... 

...TOS/GFA-Konvertierungsuerte 
(siehe unter SETCOLOR) 

15,13,1 

GFA-SETCOLOR-Loures-Index >-. 

Entsprechenden TOS-Index lesen j 
GFA-Tabelle belegen 
TOS-Tabelle belegen j 

Nächstes Register <—. 

Hidres oder Hi res? 

Hidres? 

GFA-Index anpassen--. Max. vier 
TOS-Index anp. --' Register (0 - 3) 
Hi res? 

GFA-Index anpassen--. Max. zwei 
TOS-Index anp. --' Register (0-1) 


I Formularbreite berechnen 
I Linke X-Koordinate 
I Obere Y-Koordinate 
I Rechte X-Koordinate 
I Untere Y-Koordinate 
I Hintergrund puffern 
I Farb-Button-Breite 
I Uurzel-Button-Breite 
I Klick-Button-Breite 
I DEFFILL ueiB 


PBOX cxlX,cyoX,cxrX,cyuX 
BOX cxlX,cyoX,cxrX,cyuX 
BOX cxlX+2,cyoX+2,cxrX-2,cyuX-2 
FOR ciX=0 TO planeX-1 
DEFFILL ciX,2,8 


PBOX cxlX+11+ciX*bbr,cyoX+12/cytX,cxlX+8+ciX*bbr+bbr,cyoX+40/cytX 
BOX cxlX+11+ciX*bbr,cyoX+12/cytX,cxlX+8+ciX*bbr+bbr,cyoX+40/cytX 
NEXT CiX I 

FOR ciX=0 TO 4 I 

BOX CX lX+10+ciX*cbr,cyoX+48/cytX,cxIX+10+ciX*cbr+cbr,cyoX+68/cytX 
NEXT CiX I 

BOX cxlX+10+4*cbr-1,cyoX+48/cytX-1,cxlX+11+4*cbr+cbr,cyoX+68/cytX+1 
DEFTEXT 1,,,5/cxtX+cxtX I 

DEFFILL ,2,8 I 

RESTORE ctext I Fornular 

FOR ciX=0 TO 8 I- zeichnen 

GRAPHHODE 2 I 

READ ctxS I 

BOX CX lX+9+ciX*dbr,cyoX+48/cytX,cxlX+9+ciX*dbr+dbr,cyoX+68/cytX 
TEXT cxlX+12+ciX*dbr+(2-cxtX)*3,(cyoX+66/cytX)-cxtX-4*(2-cytX),ctx$ 
IF ciX=0 OR ciX=3 OR ciX=6 ! 

GRAPHHOOE 3 I 

PBOX cxlX+9+c i X*dbr,cyoX+48/cytX,cxlX+9+c i X*dbr+dbr,cyoX+68/cytX 
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ENDIF I 

NEXT ci% I 

ctext: I 

DATA R,i, ,G,±, ,B,±, 

' Möglicherueise ist das in dieser DATA-Zeile I 

■ verwendete Sonderzeichen im Buchabdruck I 

' nicht zu erkennen. I 

' Es handelt sich um drei Data-Sequenzen I 

' zu je drei Zeichen: I 

' R + Chr$(241) + ein Space I 

' G + ChrS(241) + ein Space I 

' B + Chr$(241) + ein Space I 

TEXT 362/cxt*+(2-cxtX)*3,(cyoX+66/cytX)-cxtX-A*... 

... (2- cytX), 64/cxtX, "Cance l '• 

TEXT 434/cxtX+(2-cxtX)*3,(cyoX+66/cytX)-cxtX-4* 

... (2-cytX),64/cxtX,"Return'' 

GET cxlX+9,cyoX+12/cytX-2,cxlX+10+bbr,cyoX+40/cytX+2,bx$ 

■ Box CxlX+9,CyoX+12/CytX-2,CxlX+10+Bbr,CyoX+40/CytX+2 

GRAPHHOOE 1 I 

rotX=(XBIOS(7,0,-1) AND &HF00)/256 I Rot isolieren 

gruenX=(XBIOS(7,0,-1) AND &HF0)/16 I Grün isolieren 

blauX=(XBIOS(7,0,-1) AND &HF} I Blau isolieren 

TEXT cxlX+13+2*dbr+(2-cxtX)*3,(cyoX+66/cytX)-cxtX-4*{2-cytX),HEX»{rotX) 
TEXT cxlX+13+5*dbr+(2-cxtX)*3,(cyoX+66/cytX)-cxtX-4* 

...(2-cytX),HEX$(gruenX) 

TEXT cxlX+13+8*dbr+(2-cxtX)*3,(cyoX+66/cytX)-cxtX-4* 
...(2-cytX),HEX$(blauX) 

I _I 


REPEAT I Hauptschleife >. 

DO I Auswahl-Warteschleife >-. 

IF HOUSEK AND HOUSEX>CXlX+9 AND MCIUSEX<CXlX+9+11*dbr I 

' I Hausklick innerhalb der Box7| 

IF H0USEY>cyoX+48/cytX AND H0USEY<cyoX+68/cytX ! 


rgbX=INT((H0USEX-cxlX-9)/dbr) 
IF rgbX=1 OR rgbX=4 OR rgbX=7 
IF rgbX=1 
IF HOUSEK=1 
rotX=(rotX+1) MOO 8 
ELSE 

DEC rotX 
IF rotX<0 
rotX=7 
ENDIF 
ENDIF 


Haus auf RGB-Balken? 

Index der gewählten Box 
Auf einer Plus/Hinus-Box? 
Auf R-Box? 

Linke Haustaste gedrückt? 
Rot-Anteil erhöhen 
Rechte Haustaste gedrückt? 
Rot-Anteil vermindern 
Rot kleiner Null? 

Dann Rot = 7 


ctx$=HEX$(rotX) 

TEXT cxlX+13+2*dbr+(2-cxtX)*3,... 

.. .(cyoX+66/cytX)-cxtX-4*(2-cytX),ctx$ 


ENDIF 
IF rgbX=4 
IF H0USEK=1 
gruenX=(gruenX'*'1) HOO 
ELSE 

DEC gruenX 
IF gruenX<0 
gruenX=7 
ENDIF 
ENDIF 


I Auf G-Box? 

I Linke Haustaste gedrückt? 

8 ! Grün-Anteil erhöhen 

I rechte Haustaste gedrückt? 
! Grün-Anteil vermindern 
I Grün kleiner Null? 

I dann Grün = 7 


ctx$=HEX$(gruenX) 


I 

I 

! 

! 
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TEXT cxl%+13+5*dbr+(2-cxtX)*3,... f 

...(cyo*+66/cytX)-cxtX-4*(2-cytX),ctx$ I 

I 


ENDIF 

IF rgbX=7 I 

IF H0USEK=1 I 

blsuX=(blauX+1) HOO 8 I 
ELSE I 

DEC blauX I 

IF blauX<0 I 

blauX=7 I 


Auf B-Box? 

Linke Maustaste gedrückt? 
Blau-Anteil erhöhen 
Rechte Maustaste gedrückt? 
Blau-Anteil vermindern 
Blau kleiner Null? 

Dann Blau > 7 


ENDIF I 

ENDIF I 

ctxS=HEXS(blauX) I 

TEXT cxlX+13+8*dbr+(2-cxtX)*3,... I 

...(cyoX+66/cytX)-cxtX-4*(2-cytX),ctx$ I 
ENDIF I 

VOID XBIOS(7,cvX{2,cirxlexX),rotX*256+BruenX*16+blauX) I 

■ I Neuen Farbwert initial. j 

PAUSE 5 I Kleine Klickpause | 

ENDIF I 

ENDIF I 

ENDIF I 

key$=INKEY$ I Tastatur abfragen j 

buttonX=MOUSEK I Maustasten abfragen | 

IF MOUSEK AND MOUSEX>cxlX+10+3*cbr AND MOUSEY>cyoX+«8/cytX I 

IF MOUSEX<cxlX+10+3*cbr+cbr AND M0USEY<cyoX+68/cytX I 

' I Cancel-Button angeklickt? j 

key$=CHR$(27) I <Esc> simulieren | 

ENDIF I 

ENDIF I 

IF MOUSEK AND M0USEX>cxlX+10+4»cbr AND M0USEY>cyoX+48/cytX I 

IF M0USEX<cxlX+10+4*cbr+cbr AND M0USEY<cyoX+68/cytX I 

' I Return-Button angeklickt? j 

key$=CHRS(13) I <Return> simulieren | 

ENDIF I 

ENDIF I 

EXIT IF key*=CHR$(13) OR key$=CHRS{27) I EXIT, wenn <Return> | 

■ I oder <Esc> gedrückt wurde I 

exflgX=0 I Exit-Flag löschen j 

IF buttonX AND MOUSEX>cxlX+11 AND MOUSEX<cxrX-11 I 

IF MOUSEY>cyoX+12/cytX AND MCXJSEY<cyoX+«0/cytX I 

exflgX=1 I Exit-Flag setzen, ... j 

' I ...wenn Auswahlbox angeklickt 

' Diese Abbruch-Abfrage ist deshalb so umstöndlich, um sie 

' im Buch auf Seitenbreite zu bringen. | 


ENDIF I 
ENDIF I 
EXIT IF exflgX I Abbruch, wenn Exit-Flag gesetzt j 
' I EXIT, wenn Auswahlbox gewählt j 


LOOP I <. 

IF buttonX AND (MOUSEX>cxlX+11} AND (MOUSEX<cxrX-11) 

IF {MOUSEY>cyoX+12/cytX) AND (MOUSEY<cyoX+40/cytX) 

' ! Eine Auswahlbox angeklickt? 

IF buttonX=1 I Mit linker Maustaste? 

REPEAT ! 1. Warteschleife >. 


i.memX=cindexX I alten Farbindex merken 

REPEAT I 2. Uarteschleife >. 

IF MOUSEX>CXlX+11 AND MOUSEX<CXrX-11 

IF MOUSEY>cyoX+12/cytX AND MOUSEY<cyoX+40/cytX 


I 

I 

! 

I 


I 
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' I Maus innerhalb des Formulars? j j ! 

cindexX=MAX(0,HIN(planeX-1,lNT((MOUSEX-cxlX-9)/bbr)))l 
' I Index der gewählten Farbbox j 

ENDIF I 

ENDIF ! j 

UNTIL MOUSEK=0 OR cindexXoi .mena I EXIT, w. Maustaste | 

• I gelöst oder Farbbox-Uechsel <-' 

PUT cxlX+9+i .inemX*bbr,cyoX+12/cytX-2,bx$ I Farbbox-Restore 

cbx1X=cxlX+9+cindexX*bbr I.. 

cby1X=cyoX+12/cytX-2 I 

cbx2X=cxlX+10+cindexX*bbr+bbr I Box-Koordinaten 
cby2X=cyoX+40/cytX+2 I.' 

GET cbx1X,cby1X,cbx2X,cby2X,bx$ I Neue Farbbox puffern 
BOX cbx1X,cby1X,cbx2X,cby2X I "Geuählt"-Effekt 
rotX=(XBIOS(7,cvX{2,cindexX),-1) AND »HF00)/256 IRotanteil 
gruenX=(XBI0S(7,cvX(2,cindexX),-1) AND »HF0)/16 IGrünanteil 
blauX=(XBI0S(7,cvX(2,cindexX),-1) AND &HF) IBlauanteil 
ctx$=HEX${rotX) I 

TEXT cxlX+13+2»dbr+(2-cxtX)»3,... I 

...(cyoX+66/cytX)-cxtX-4*(2-cytX),ctx$ I 
ctx$=HEX$(gruenX} I 

TEXT cxlX+13+5*dbr+(2-cxtX)*3,... I 

...(cyoX+66/cytX)-cxtX-4*(2-cytX),ctx$ I 
ctx$=HEXt(blauX) I 

TEXT cxlX+13+8*dbr+(2-cxtX)*3,... I 

...{cyoX+66/cytX)-cxtX-4*(2-cytX),ctx$ I 
■ Die einzelnen Farbanteile als Hexadezimaluerte ausgeben | 
UNTIL MOUSEK=0 I Bis die Maustaste gelöst wird <-' 

ELSE I Rechte Maustaste gedrücktI 

' I {= Register-Swap oder -Copy) 

ci1X=INT((M0USEX-cxlX-9}/bbr) I Index der gewählten Farbbox j 
GET cxlX+10,cyoX+12/cytX-1,cxrX-9,cyoX+44/cytX+1,bx2$ ! 

' I Hintergrund sichern ! 

cbx1X=cxlX+10+ci1X*bbr I —. 

cby1X=cyoX+12/cytX-1 I 

cbx2X=cxlX+9+ci1X*bbr+bbr I Box-Koordinaten 

cby2X=cyoX+40/cytX+1 I ---' 

BOX cbx1X,cby1X,cbx2X,cby2X I Rahmen drun 

REPEAT I Uarte... 

UNTIL MOUSEK=0 I ... bis Maustaste gelöst 

00 ! Blinkschleife >. 

IF TIMER-ctX>50 I 1/4 Sekunde vergangen? 

ctX=TIMER I Systemzeit merken 

PUT cxlX+10,cyoX+12/cytX-1,bx2$ I Hintergrund-Restore 
GET cxlX+10,cyoX+12/cytX-1,cxrX-9,cyoX+40/cytX+1,bx2$ 

' I Neuen Hintergrund sichern 

PAUSE 2 ! Kleine Pause 

BOX cbx1X,cby1X,cbx2X,cby2X ! Wieder Rahmen drum 
ENDIF 

exflgX=0 ! Exit-Flag löschen 

IF MOUSEK AND M0USEX>cxlX+11 AND M0USEX<cxrX-11 
IF MOUSEY>cyoX+12/cytX AND MOUSEY<cyoX+40/cytX 
exflgX=1 ! Exit-Flag setzen,... 

' ! ...wenn Klick innerhalb der Box 

■ Auch diese Abbruch-Abfrage ist deshalb so 
' unständlich, um sie auf Seitenbreite zu bringen. 

ENDIF 
ENDIF 
LOOP 


I 
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■ I Bis zum nächsten MauskUck j 

' I innerhalb einer Farbbox <-' 

ci2X=lNT((H0USEX-cxlX-9)/bbr) i Neuer Farbbox-Index 
cbx1X=cxlX+10+ci2X*bbr I 

cbx2X=cxlX+9+ci2X*bbr+bbr I Neue Box-X-Koordinaten 
BOX cbx1X,cby1X,cbx2X,cby2X I Noch einmal Rahmen drun 
cc1X=XBI0S(7,cvX(2,ciiX),-1)l Farbwert 1.Suap/Copy-Register 
cc2X=XBIOS(7,cvX(2,ci2X),-1)l Farbwert 2.Swap/Copy-Register 
IF N0USEIC=1 I 2. Reg. m. li. Maustaste gewählt? 

VOID XBIOS(7,cvX(2,ci1X),cc2X) I Dann 2. Register in das 
ENDIF I 1. Register kopieren 

VOID XBI0S(7,cvX(2,ci2X),cc1X) I 1. Register in 2. kopieren 
rotX=(XB10S(7,cvX(2,cindexX),-1) AND &HF00)/256 I Aktuelle.. 
gruenX=(XB10S(7,cvX(2,cindexX),-1) AND &HF0)/16 I RGB-Uerte. 
blauX=(XBIOS(7,cvX(2,cindexX),-1) AND &HF) I merken. 
ctx$=HEX$(rotX) 

TEXT cxlX+13+2»dbr+(2-cxtX)*3,... 

...(cyoX+66/cytX)-cxtX-4*(2-cytX),ctx* 

ctx$=HEX$(gruenX) 

TEXT cxlX+13+5»dbr+(2-cxtX)*3,... 

...(cyoX+66/cytX)-cxtX-4*(2-cytX),ctxt 

ctx$=HEXS(blauX) 

TEXT cxlX+13+8*dbr+{2-cxtX)*3,... 

...(cyoX+66/cytX)-cxtX-A*(2-cytX),ctx$ 

' Die einzelnen Farbanteile als Hexadezimalwerte ausgeben 
PAUSE 10 I Kleine Pause 

PUT cxlX+10,cyoX+12/cytX-1,bx2t I Hintergrund-Restore 
ENDIF 
ENDIF 
ENDIF 

UNTIL key$=CHR*(13) OR key»=CHR${27) I Bis <Esc> oder <Return> <. 

IF key$=CHR$(27) I <Esc> gedrückt? 

FOR ciX=0 TO 15 I Darm alle 16 Register wieder... 

VOID XBI0S(7,ciX,old_palX(ciX)} I ... auf alten Uert setzen 
NEXT ciX 
ENDIF 


PUT cxlX,cyoX,col$ 
ERASE old_palX() 
ERASE CVXO 
RETURN 


I Formular-Hintergrund restaurieren 
I Felder... 

I ...löschen... 

I ...und zurück zun Progranm 
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24. Anhang 


24.1 Der V2.xx-Compiler 

Sie kennen C-, Modula- oder Pascal-Compiler? Wenn Sie mit diesem 
BASIC-Compiler arbeiten, können Sie alles, was Sie über die her¬ 
kömmliche Arbeisweise eines Compilers wissen (Linking, Bibliotheken, 
etc.) getrost vergessen. Als Autor fällt es mir schwer, über eine Sache 
zu schreiben, die in sich so komplex ist und sich trotzdem dermaßen 
einfach bedienen läßt. Es ist meist leichter, eine Sache zu behandeln, 
die umfangreiche Probleme auf wirft. Wie Sie sehen werden, ist die 
Compilerbedienung mit etwas Übung recht einfach zu bewerkstelligen. 

Die Komplexität dieses Programms läßt sich zum Beispiel an seinem 
Umfang erkennen. Der Compiler und das dazugehörige RSC-File 
nehmen zusammen ganze (ca.) 55 KByte in Anspruch. Gute Compiler 
anderer Sprachen kommen (inkl. Linker) ungefähr auf den gleichen 
Umfang. Allerdings muß man dort immer noch ca. 40 - 80 KByte für 
die bereitzustellenden Libraries (Bibliotheken) mitbedenken. Ich 
nehme an, daß sich in Zukunft viele Interessenten mit dieser neuen 
Technik des Compilerbaus auseinanderzusetzen haben werden. 

Was ebenfalls fast unglaublich klingt, ist die Tatsache, daß ein .BAS- 
Programm von ca. 100 KByte in noch nicht einmal drei Minuten kom¬ 
plett geladen, compiliert und als fertiges Maschinenprogramm auf Dis¬ 
kette zurückgeschrieben wird. Von kleinen BASIC-Programmen (bis 
ca. 10 KByte) braucht man gar nicht zu reden. Diese werden in einer 
Geschwindigkeit "abgefertigt", daß man noch nicht einmal Zeit hat, an 
die berühmte Tasse Kaffee zu denken, die man sich bei vielen ande¬ 
ren Compilern in der Zwischenzeit holen und trinken kann. Der 
Grund für diese "Raserei" ist zum großen Teil eben darin zu suchen, 
daß dieses Programm eine überaus komplexe Struktur mit kurzen We¬ 
gen aufweist und zu einem anderen großen Teil darin, daß es sich hier 
um einen 100%igen RAM-Compiler handelt. Während des Compiler- 
Laufs wird also nicht auf den Massenspeicher zugegriffen um evtl, ir¬ 
gendwelche Arbeits-Files unterzubringen. Das zu compilierende Pro¬ 
gramm kann sich also auch auf einer schreibgeschützten Diskette be¬ 
finden, ohne daß dieses die Compiler-Arbeit behindern würde. 

Wem zudem noch der Komfort einer RAM- oder Hard-Disk zur 
Verfügung steht, muß aufpassen, daß er nicht dem Compiler-Rausch 
verfällt. Hier kann man davon ausgehen, daß sich die Zeiten (haupt- 
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sächlich Lade- u. Speicherzeiten) ca. um 80 Prozent verkürzen. Wer 
sich schon einmal an anderen Compilern versucht hat, wird sicher 
haarsträubende Geschichten über die Fehlerbeseitigung an fertigen 
Programmen berichten können. Programm editieren - compilieren - 
linken - testen - Programm läuft nicht richtig. Also noch einmal: Pro¬ 
gramm in Editor laden - editieren - compilieren - .... usw. 

Wir besitzen ja nun einen BASIC-Compiler, der vollkompatibel zum 
Interpreter ist. Also haben wir diese Probleme nicht, da wir uns zur 
Edition und zum Debugging bequem hinter den Interpreter klemmen 
und all seine Vorteile nutzen können. Ist das Programm fertig, wird es 
durch den Super-Compiler gejagt und siehe da - plötzlich befindet 
sich ein lauffähiges PRG-Programm auf der Diskette. Man startet es 
durch Anklicken vom Desktop aus und siehe wieder da - es läuft! Es 
gibt nur wenige Ausnahmen, in welchen das fertige Maschinenpro¬ 
gramm nicht so arbeitet, wie man es erwartet hat. 

Eine Möglichkeit, daß das Maschinenprogramm nicht ordnungsgemäß 
arbeitet, ist dadurch gegeben, daß man die wenigen Compiler-Optio¬ 
nen (siehe unten und unter OPTION) nicht richtig eingesetzt hat. In 
diesen Fällen wäre unter Umständen ein erneutes Editieren des BAS- 
Programms notwendig. Das dürfte sich allerdings mit wachsender Er¬ 
fahrung mehr und mehr erübrigen. Weitere Fehler sind darin zu su¬ 
chen, daß der Compiler eine völlige andere Arbeitsweise besitzt, als 
der Interpreter. Daraus ergeben sich auch Unterschiede in der Ver¬ 
wendung einiger Befehle. Diese halten sich allerdings in solch engen 
Grenzen, daß die Unterschiede im Umgang mit Ihnen nach einiger 
Zeit in Fleisch und Blut übergegangen sein werden. Weiter unten wird 
auf diese Problematik noch einmal gesondert eingegangen. 

Man kann ohne Übertreibung sagen, daß dieser Compiler Maßstäbe 
setzt und alle Compiler, die in Zukunft entwickelt werden, werden 
sich an diesen Maßstäben messen lassen müssen. 


24.1.1 Compiler/Interpreter 

Was ist eigentlich der Unterschied zwischen einem Compiler und ei¬ 
nem Interpreter? Ein Interpreter ist eigentlich ein Dolmetscher, der 
einerseits den eingegeben Programm-Code Befehl für Befehl in Ma- 
schinen-Code übersetzt und andererseits diese der Reihe nach sofort 
ausführt. Der Programmlauf wird durch den Interpreter kontrolliert. 
Ist das Programm unterbrochen oder beendet, kehrt das Programm zur 
Eingabe-Ebene zurück und bietet die Möglichkeit, es sofort wieder 
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neu zu editieren. Treten also im Programmlauf evtl, logische oder 
syntaktische Fehler auf, ist es somit leicht möglich, diese zu verfolgen 
und zu verbessern. 

Bei einem Compiler hat man diese Möglichkeiten nicht, da aus dem 
Programmtext der jeweiligen Sprache ein komplettes Maschinenpro¬ 
gramm erzeugt wird, das dann vom Desktop aus durch einfachen 
Doppelklick gestartet werden kann. Dieses Programm ist dann absolut 
unabhängig von einem Übersetzer, da das System bzw. der Prozessor 
den Maschinen-Code direkt verstehen und verarbeiten kann. Durch 
Wegfall einer zwischengeschalteten Instanz ergibt sich so eine wesent¬ 
lich gesteigerte Arbeitsgeschwindigkeit. Bei dem GFA-Compiler be¬ 
deutet dies, daß im Vergleich zum Interpreter eine Geschwindigkeits¬ 
steigerung von bis zu 2000 Prozent erreicht werden kann. Die Pro¬ 
gramme laufen also je nach Art und Effektivität des Source-Codes 
(BASIC-Quellprogrammtext) bis zu 20 mal schneller. 

Stellen Sie sich ein normales Fahrrad und einen "normalen" Porsche in 
Höchstgeschwindigkeit vor. Das wäre das Geschwindigkeitsverhältnis 
zwischen dem Interpreter- und dem Compiler-Programm. Hier muß 
allerdings einschränkend gesagt werden, daß diese Steigerung nur un¬ 
ter Optimalbedingungen erreicht wird. Z.B. bei rein arithmetischen 
Programmen, die nur Integerzahlen verarbeiten und auf Bildschirm¬ 
ausgaben jeglicher Art weitgehend, sowie auf Compiler-Optionen völ¬ 
lig verzichten. Im Normalfall wird sich mit dem Compilat eine drei- 
bis sechsfache Steigerung erzielen lassen. Um beim obigen Beispiel zu 
bleiben, wäre dies ein Verhältnis wie zwischen einem guten Moped 
und einem Porsche. Hier zeigt sich eindringlich der Vorteil, in Pro¬ 
grammen soweit es irgend möglich ist, Integervariablen zu verwenden. 


24.1.2 Compiler-Bedienung 

Falls es noch nicht deutlich geworden ist, soll hier noch einmal die 
Verfahrensweise im Umgang mit dem Compiler erläutert werden. 
Nachdem Sie ein Programm auf dem Interpreter erarbeitet, getestet 
und evtl. Fehler beseitigt haben, speichern Sie es mit der Editor- 
Funktion Save oder mit dem Befehl SAVE Programmname im Direkt¬ 
modus auf Diskette oder RAM- bzw. Hard-Disk ab. Verwenden Sie 
hier bitte weder Save,A im Editor- Menü, noch die Befehle LIST bzw. 
PSAVE, da der Compiler alle Source-Codes dieser Art ablehnt. 

Das Programm befindet sich nun auf dem Massenspeicher. Wenn Sie 
den Compiler nicht durch EXEC vom Interpreter aus starten, müssen 
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Sie nun den Interpreter in Richtung Desktop verlassen und dort durch 
Doppelklick den Compiler starten. 

Nachdem Sie das getan haben, erscheint eine Dialogbox. Durch diese 
Box werden Sie aufgefordert, die eventuell notwendigen Compiler- 
Optionen zu initialisieren. Falls Sie dieses bereits durch den OPTION- 
Befehl im Programm-Code getan haben, können Sie diese Eingaben 
beim Compileraufruf getrost vernachlässigen. Der OPTION-Befehl, 
sowie die Bedeutung der Dialogbox-Buttons werden weiter unten er¬ 
klärt. 

Anschließend daran klicken Sie das Box-Feld "Compilieren" an oder 
drücken die <Return>-Taste und wählen in der nun erscheinenden 
Fileselect-Box das zu compilierende BASIC-Programm aus. Beim er¬ 
sten Durchlauf wird das BAS-File komplett in den Speicher geladen 
und auf die Richtigkeit seiner Struktur geprüft. Sollte damit etwas 
nicht in Ordnung sein, werden Sie aufgefordert, die Mißstände mit 
dem Interpreter zu korrigieren. Im zweiten Durchlauf wird das Pro¬ 
gramm nun vollständig compiliert. Und zwar wird das Programm nun 
abschnittweise noch einmal in den Speicher geladen und schrittweise 
in ein Maschinenprogramm umgewandelt. Damit dieser Vorgang nicht 
langweilig wird, wird während des Compilierens der Bildschirm im 
Wechsel mit schwarzen und weißen Linien gefüllt. 

Ist das Compilat fertiggestellt, erscheint erneut eine Fileselect-Box mit 
der Überschrift "Schreibe PRG". Der Name Ihres BASIC-Programms 
ist bereits rechts in der Box unter Auswahl mit der Extension .PRG 
eingetragen. Wollen Sie den Namen beibehalten, klicken Sie einfach 
OK an. Wenn nicht, können Sie mit den üblichen Editier-Funktionen 
<Backspace>, <Delete>, <Escape> und den Cursor-Tasten oder durch 
Anklicken eines Namens im Fenster den Namen ändern. Hier ist zu 
beachten, daß der Compiler kein Backup-File anlegt, wenn man einen 
Programmnamen angibt, der bereits auf der Diskette existiert. Das 
schon bestehende Programm wird gnadenlos überschrieben. Achten Sie 
außerdem darauf, daß genügend Platz auf der Diskette ist, auf welche 
Sie das fertige Programm schreiben wollen. Der Compiler verfügt lei¬ 
der nicht über die Fähigkeit, dies zuvor festzustellen und evtl, eine 
Warnung auszugeben. Ist nicht genügend Platz, erscheint eine Mel¬ 
dung, daß ein Schreibfehler auf getreten ist und der Compiler kehrt 
zur Eingabebox zurück. Das heißt, daß das Programm vollständig neu 
compiliert werden muß. Wechseln Sie also gegebenfalls vorher die Dis¬ 
kette. 
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Nachdem Sie nun OK gewählt haben, wird das PRG-Maschinenpro- 
gramm auf dem Massenspeicher (Diskette, RAM- oder Hard-Disk) 
abgelegt. Ist das geschehen, meldet sich die Compiler-Dialogbox wie¬ 
der und Sie können weitere Programme compilieren oder durch "Ab¬ 
bruch" den Compiler verlassen. Auf der Diskette finden Sie nun ein 
typisches PRG-Programmsymbol mit dem Namen Ihres Programms 
darunter. Dieses Symbol können Sie nun mit E>oppelklick anwählen 
und so Ihr Maschinenprogramm starten. Mehr wäre zur Compilerbe¬ 
dienung eigentlich nicht zu sagen, wenn da nicht die Optionen wären. 


24.1.3 Compiler-Optionen 

Bei der Befehlsbeschreibung zu OPTION wurden die Erläuterungen 
relativ kurz gehalten. E>a eine nähere Beschreibung hier den entspre¬ 
chenden Rahmen erhält, wurde sie hierher verlegt. 

Mit dem Befehl OPTION können dem Compiler Anweisungen über¬ 
mittelt werden, wie er bestimmte Zustände verarbeiten soll, bzw. wie 
Ihr compiliertes Programm später auf diese Zustände reagieren soll. 


OPTION "Ux" 

Der erste Zustand, der zu behandeln ist, tritt dann ein, wenn während 
des Laufs des compilierten Programms die (im Interpreter übliche) 
Abbruchfunktion <Control><Shift><Alternate> benutzt wird. Das U 
steht oben also für "Unterbrechung". Durch Angabe einer Zahl von 0 
bis 3 für X (z.B. U2) kann auf vier verschiedene Arten auf den Un¬ 
terbrechungsversuch reagiert werden. 


OPTION "UO” 

Die Abbruchfunktion wird nicht eingebaut. D.h., daß im compilierten 
Programm keine Unterbrechung durch Betätigung der genannten 
Breaktasten möglich ist. Eine Programmverzweigung durch ON 
BREAK GOSUB, die Sie evtl, im Programm vorgesehen haben, ist da¬ 
durch allerdings auch nicht mehr möglich. Grundätzlich hat dieser 
Befehl dieselbe Wirkung im Compilat, wie der Befehl ON BREAK 
CONT im Interpreter. Der Unterschied ist hier der, daß die notweni¬ 
gen Routinen zur Behandlung der Abbruchfunktion nicht in das Com¬ 
pilat eingebunden werden und das fertige Programm dadurch etwas 
kürzer wird. Haben Sie diesen Befehl im Programm nicht verwandt, 
können Sie das nachholen, indem Sie in der Compilerbox den Button 
"Stoppen Nie" anklicken. 
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OPTION "Ul" 

Es wird genau an der Programmstelle, an welcher dieser OPTION- 
Befehl auftaucht, einmal überprüft, ob die Break-Tastenkombination 
gedrückt wird. Sie können diese Abbruchbedingung also gezielt an den 
von Ihnen für wichtig gehaltenen Stellen einsetzen. In diesem Fall ist 
auch eine Programmverzweigung durch ON BREAK GOSUB möglich. 
Da diese Anweisung beim Compiler-Aufruf nicht eingesetzt werden 
kann, ist hierfür auch kein entsprechender Button in der Box vorgese¬ 
hen. 


OPTION "U2" 

Mit dieser Option wird der Compiler angewiesen, vor jedem Schlei- 
fen-Wendepunkt (also LOOP, UNTIL, WEND und NEXT), sowie vor 
jedem GOTO-Befehl eine Abfrage einzubauen. Da wohl der größte 
Teil vieler Programme sich in irgendeiner Schleife die Zeit vertreibt, 
dürfte diese Option wohl in den meisten Fällen ausreichen. Auch hier 
kann durch ON BREAK GOSUB eine Unterbrechungsprozedur be¬ 
stimmt werden. Statt der Verwendung des Befehls im Programm kön¬ 
nen Sie hierfür auch den Button "Stoppen Schleife" in der Compiler- 
Box verwenden. 


OPTION "Ui” 

Wer ganz sicher gehen will, daß sein Programm zu jedem beliebigen 
Zeitpunkt durch die Break-Tastenkombination unterbrochen werden 
kann, muß diese Option verwenden, da in diesem Fall nach Ausfüh¬ 
rung Jedes BASIC-Befehls einmal die Abbruchfunktion überprüft 
wird. Einleuchtenderweise wird dadurch das Programm natürlich er¬ 
heblich langsamer, weil es mehr arbeiten muß. Wie bei "UO" und "U2" 
können Sie auch hier die Einstellung in der Dialogbox vornehmen, in¬ 
dem Sie den Button "Stoppen Immer" anklicken. Die Unterbrechungs¬ 
optionen haben noch eine eine weitere Funktion zur Feststellung der 
Sprungmarken bei RESUME (siehe unter 24.1.4 "Allgemeines"). 


OPTION "T-" / OPTION "T-h“ 

Ein Unterschied in der Arbeitsweise zwischen Interpreter und Compi¬ 
ler besteht darin, daß der Interpreter Integerwerte ausschließlich im 
festgelegten Integerbereich (-2147483648 bis 2147483647) verarbeiten 
kann. Werden diese Bereiche über- bzw. unterschritten, wird eine 
entsprechende Fehlermeldung ausgegeben. Der Interpreter kontrolliert 
also die Einhaltung dieser Grenzen. Nicht so der Compiler. 
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Im compilierten Programm werden bestimmte Befehle der Integera¬ 
rithmetik (INC, DEC) direkt als einzelne Maschinenbefehle ausgefQhrt. 
D.h. also, daß die Einhaltung des Integerbereichs nicht kontrolliert 
wird. Beinhaltet eine Integervariable den Wert 2147483647 (2^31-1) 
und wird anschließend z.B. durch INC um 1 erhöht, fällt der Vari¬ 
ablenwert in den Minusbereich (-2147483648) und würde durch weiter 
INC-Befehle wieder gegen Null streben. Das würde natürlich gegebe¬ 
nenfalls die Berechnungsergebnisse verfälschen. Um nun in den selte¬ 
nen Fällen, in welchen mit derart hohen Werten hantiert wird, kon¬ 
trollieren zu können, ob sich der Wert unter oder über die Integer¬ 
grenzen hinausbewegt, gibt es diese Option. 


OPTION "T-" 

Der eben beschriebene Sonderfall wird nicht kontrolliert und es wird 
keine entsprechende Routine eingebaut. Bei Überlauf bewegen sich die 
Werte also in den Minusbereich und umgekehrt. Klicken Sie in der 
Compiler-Box "Trapv -" an, erreichen Sie damit denselben Effekt wie 
mit der Programm-OPTION "T-". 


OPTION 

Es wird eine Kontrollroutine eingefügt, die in den entsprechenden 
Grenzfällen überprüft, ob die Integergrenzen eingehalten werden. Tritt 
ein Überlauf ein, wird je nachdem, ob die B+-Option eingeschaltet ist 
oder nicht, entweder die Fehlermeldung "# 107" ausgegeben oder das 
Programm verabschiedet sich mit den (in GFA-BASIC schon fast ver¬ 
gessenen) 7 Bomben (TRAPV-Interrupt). Wird der Minusbereich dage¬ 
gen unterschritten, wird das Programm abgebrochen. Da sich die zu 
errechnenden Integerwerte jedoch meist in wesentlich engeren Gren¬ 
zen halten werden, ist diese Option nur in seltenen Fällen angebracht. 
Haben Sie diese Option nicht im Programm verfügt, können Sie sie 
durch Anklicken des Buttons "Trapv +" in der Compiler-Box dem 
Compilat einfügen lassen. 


OPTION ”£+” / OPTION "E-" 

Sie kennen die komfortablen Fehlermeldungen des Interpreters. Jede 
dieser Fehlermeldungen legt einen Code in der reservierten Variablen 
ERR ab. 

Dieser Code kann durch z.B. PRINT ERR ermittelt werden. Sie er¬ 
halten dann eine Fehlernummer. In compilierten Programmen werden 
ebenfalls Fehlermeldungen ausgegeben, sobald ein Fehler auftritt. 
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OPTION 

Es wird eine Fehlermeldung ausgegeben, welche die Fehlernummer 
(siehe ERR) sowie den Hinweis "PC>$00XXXXXX" enthält. Um fest¬ 
stellen zu können, um welchen Fehler es sich handelt, müssen Sie also 
in der Liste der Fehlermeldungen nachschauen. Statt der Verfügung 
im Programmtext können Sie auch den Button "Errors in der Com¬ 
piler-Box wählen. 


OPTION "E+" 

Wollen Sie nicht jedesmal in der Fehlerliste nachschauen müssen, kön¬ 
nen Sie diese Option verwenden oder in der Compilerbox den Button 
"Errors +" anklicken. Es werden nun auch im compilierten Programm 
ähnlich ausführliche Fehlermeldungen als Text ausgegeben, wie wir sie 
vom Interpreter her gewohnt sind. Gerade bei der Programmentwick¬ 
lung ist diese Möglichkeit sehr von Nutzen, da es die Fehlersuche 
wesentlich erleichtert. Zusätzlich erscheint wieder der Hinweis 
"PC>$00XXXXXX". Dieser Hinweis zeigt Ihnen den Stand des Sy¬ 
stem-Programmzählers (PC = Program-Counter) zu dem Zeitpunkt, an 
welchem der Fehler aufgetreten ist. Der Programm-Counter zeigt in 
der Regel auf die Speicheradresse, die den Maschinenbefehl beher¬ 
bergt, der den Fehler auslöste. 


OPTION "B-" / OPTION "B-" 

Wer schon längere Zeit mit GFA-BASIC arbeitet, wird sie schon fast 
vergessen haben: die Bomben. Ein Bomben-Error tritt immer dann 
auf, wenn versucht wird, etwas auszuführen, was im Sytem nicht de¬ 
finiert ist (z.B. Division durch Null, unvorbereiteter Zugriff auf reser¬ 
vierte Supervisor-Bereiche, ungültige Opcodes, Word- und Longword- 
Zugriffe auf ungerade Adressen etc.). Es gibt also vom System her 
keine Routinen, die darauf spezialisiert sind, diese Errors sinnvoll 
abzufangen. Darin liegt auch das Geheimnis der Error-Meldungen des 
Interpreters selbst bei Bomben-Errors. Man nehme den entsprechenden 
Exception-Vektor und biege ihn auf eine selbstdefinierte Routine. 

Schon gibt es keine Bomben mehr, da die Fehler von einer Interpre¬ 
ter-Routine so abgefangen werden, daß statt der Bomben eine harm¬ 
lose Fehlermeldung auf dem Bildschirm erscheint. Ganz so einfach ist 
das nun zwar doch nicht, weil die wichtigen Registerinhalte gerettet 
und restauriert werden müssen, aber im Prinzip ist dies die Technik 
der Exception-Verarbeitung (siehe auch MONITOR). 
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Sie haben nun mit dieser Option die Wahl, in das Compilat die ent¬ 
sprechenden Abfangroutinen einbauen zu lassen oder nicht. 


OPTION "B-" 

Beim Auftreten von Bombenfehlern (Fehlernummern 102 - 109) wer¬ 
den die entsprechenden Bomben auf dem Bildschirm angezeigt. Dabei 
bedeutet 2 Bomben = Fehlernummer 102, 3 Bomben = Fehlernummer 
103 usw. Dieser klassische "Absturz” hat zur Folge, daß sicherheitshal¬ 
ber das gesamte System neu initialisiert werden muß (Reset), um eine 
ordnungsgemäße Arbeit des Systems iu gewährleisten. Unter Umstän¬ 
den können die Register bei 2 oder 3 Bomben noch intakt sein, eine 
Garantie gibt es dafür allerdings nicht. Haben Sie im Programm durch 
ON ERROR GOSUB eine Routine zur Fehlerbehandlung vorgesehen, 
wird diese nicht angesprungen. Wahlweise können Sie statt der Pro¬ 
grammverfügung auch hier den Button "Bomben -" in der Compiler- 
Box wählen. 


OPTION "8+" 

Wollen Sie, daß auch Bomben-Errors abgefangen werden und eine 
entsprechende Fehlermeldung erscheint bzw. zu einer von Ihnen defi¬ 
nierten Fehler-Routine verzweigt wird (ON ERROR GOSUB), müssen 
Sie diese Option im Programmtext übergeben. Wahlweise kann auch 
der Compiler-Box-Button "Bomben +" gewählt werden. Es wird eine 
Bombenabfang-Routine in das Compilat eingebaut und ab jetzt arbei¬ 
tet Ihr fertiges Programm bezüglich der Bombenfehler genauso, wie 
Sie es vom Interpreter kennen. 


24.1.4 Allgemeines 


Prioritätenfolge 

Bei allen Optionen gilt, daß immer die Option als gültig angenommen 
wird, auf welche der Compiler zuletzt trifft. Dabei gilt die Dialogbox¬ 
einstellung als die Irste Instanz. Folgen also im Programm Einstellun¬ 
gen, die sich mit der Einstellung in der Box widersprechen, hat die im 
Programm übergebene OPTION den Vorrang. Das gleiche gilt für 
verschiedene Optionen der gleichen Art (U, T, E oder B), die im Pro¬ 
grammtext integriert sind. Trifft also der Compiler auf eine U3-Op- 
tion und Sie haben dementsprechend eine ON BREAK GOSUB-Pro- 
zedur definiert, nützt dies wenig, wenn Sie später als letzte Option im 
Programm die UO-Option angeben. Dadurch wird dem Compiler ab- 
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schließend gesagt, daß die Abbruchtasten-Funktion nicht eingebaut 
werden soll. In diesem Fall ist überall dort im Programm mit Fehlver¬ 
halten zu rechnen, wo trotzdem diese Funktion abgefragt werden soll, 
also Ul, U2 oder U3 eingesetzt wurde. 


Erweiterungen 

Das 30. Byte jedes compilierten Programms entscheidet darüber, ob 
bei Programmstart der Bildschirm gelöscht wird. Wird dieses 30. Byte 
auf Null gesetzt, kann dadurch das Löschen der Screen unterdrückt 
werden. 

Open ''U'',#1,"Progra(niname.PRG" 

Seek #1,30 
Out #1,0 
Close 


Haben Sie es sich anders überlegt und möchten, daß der Bildschirm 
doch wieder gelöscht wird, ersetzen Sie in dem kleinen Listing oben 
die Zeile OUT #1,0 durch OUT #1,27. Vorausgesetzt ist dabei, daß 
das 31ste Byte des Programms nicht verändert wurde, bzw. - falls 
doch - wieder auf den Wert 69 gesetzt wird. 

Die Bytes 30 - 38 eines GFA-Compilats sind für einen String reser¬ 
viert, der zum Programmstart ausgeführt wird. Und zwar handelt es 
sich dabei um TOS-Escape-Sequenzen (siehe PRINT). Sie können 
diese 9 Byte also verwenden, um eigene Sequenzen zu bestimmen, die 
zu Beginn des Programms ausgeführt werden sollen. Ein solcher String 
beinhaltet dann aufeinanderfolgend im Wechsel den Escape-Wert 27 
und den ASCII-Wert des Zeichens, das die entsprechende Sequenz re¬ 
präsentiert und/oder die ASCII-Werte der gewünschten Steuerzeichen. 

Ein solcher String könnte folgendermaßen aussehen; 

A*=Chr$(27)+"f"+Chr$(27)+"E"+Chr$(27)+"p''+Chr$(7)+Chr*(0)+Chr${0) 

Open "U",#1 ,"Progranmnanie.PRG" 

Seek #1,30 
Print #i;At; 

Close 

Unter der Befehlsbeschreibung zu PRINT finden Sie die Escape-Se- 
quenzen und die oben verwendeten Buchstaben wieder. Wichtig ist bei 
Übergabe eines derartigen Strings, daß das letzte Zeichen ein Null¬ 
zeichen ist. Sie finden außer den Escape-Definitionen oben auch das 
Steuerzeichen Chr$(7) (BEL). Wird dieses Steuerzeichen ausgeführt, 
erklingt die Glocke. 
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Mauszeiger eiii-/ausschalten 

Bei den ersten Versuchen, mit dem Compiler lauffähige Programme zu 
erzeugen, wird Ihnen in manchen Programmen auffallen, daß der 
Mauzeiger nirgends zu finden ist. E>er Grund dafür ist, daß der Com¬ 
piler den Mauszeiger nicht generell nach jedem Befehl wieder ein¬ 
schaltet. E>er Interpreter sorgt permanent dafür, daß der Zeiger ständig 
sichtbar bleibt (sofern HIDEM nicht aktiv ist). Man braucht sich um 
ihn also keine Gedanken zu machen. 

Das hat allerdings auch den Nachteil, daß er innerhalb von Schleifen 
häufig unruhig flackert. Wer sich in anderen BASIC-Dialekten schon 
einmal mit der Erzeugung von Grafikausgaben (PBOX, CIRCLE etc.) 
durch GEM-Routinen beschäftigt hat, wird wissen, daß dazu Jedesmal 
der Mauszeiger vorher ausgeschaltet werden muß, damit an der Stelle, 
wo der Zeiger steht, kein "Loch" im Hintergrund entsteht. Dieses Ab¬ 
schalten erfolgt beim Interpreter, ebenso wie bei compilierten Pro¬ 
grammen automatisch. Der Unterschied besteht darin, daß das compi- 
lierte Programm ihn erst wieder einschaltet, wenn entweder der Befehl 
SHOWM auftaucht, eine Mausabfrage erfolgt, die AES aufgerufen 
werden (GEMSYS...) oder eine Ux-Option verfügt wird. 

Würde der Befehl zum Einschalten des Mauszeigers wie im Interpreter 
nach jeder Mausbewegung oder nach jedem Befehl ausgeführt werden, 
wären die compilierten Programme dadurch erheblich länger und 
langsamer. 


Nicht verwendbare Befehle 

Folgende BASIC-Befehle können vom Compiler nicht verarbeitet 
werde, da sie sich ausschließlich auf die Arbeit mit dem Interpreter 
auswirken: 

LIST LLIST TRON TROFF DEFLIST 

SAVE PSAVE LOAD STOP CONT 


Trifft der Compiler während seiner Arbeit trotzdem auf einen dieser 
Befehle, wird der Alert-Box-Text "Fehler beim Compilieren" und der 
Name des nicht auführbaren Befehls ausgegeben und man kann sich 
dann durch "Weiter" oder "Abbruch" entscheiden, ob der Compiler 
seine Arbeit abbrechen soll oder ob der Befehl beim Compilieren 
ignoriert werden soll. 
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RESUME-Ausführung 

Der Interpreter verfügt während eines Programmlaufs ständig über die 
genauen Adressen jedes einzelnen Befehls. Es ist also recht unproble¬ 
matisch mit dem RESUME-Befehl nach Ausführung einer Fehlerbe¬ 
handlungsroutine zu der Stelle zurückzukehren, an welcher der Fehler 
aufgetreten ist. Dieser Vorgang gestaltet sich bei compilierten Pro¬ 
grammen wesentlich anders. Um feststellen zu können, wo der Fehler 
aufgetreten ist, muß die Adresse des Befehls, der den Fehler ausgelöst 
hat, feststehen. Bei Verwendung von RESUME Label ist dies gegeben, 
da das Label intern für eine bestimmte Adresse steht. Will man aller¬ 
dings RESUME Next (nächsten Befehl ausführen) oder RESUME al¬ 
lein (fehlerhaften Befehl nochmal ausführen) verwenden, muß man bei 
compilierten Programmen den OPTION Ux-Befehl verwenden. Dieser 
Befehl hat außer der Bereitstellung von Unterbrechungsmöglichkeiten 
auch noch die Funktion, als Sprungadresse für RESUME und RE¬ 
SUME Next zu dienen. Bei Ausführung eines OPTION Ux-Befehls 
wird nämlich gleichzeitig der aktuelle Programmzähler abgelegt, so 
daß bei Auftreten eines Fehlers das Programm weiß, an welcher Stelle 
es durch den Fehler unterbrochen wurde. 

Das stimmt bei Verwendung von Ul und U2 natürlich meist nicht 
exakt, da durch RESUME dann zu der Stelle zurückgekehrt wird, wo 
der letzte OPTION Ux-Befehl verwendet wurde und nicht exakt 
dorthin, wo der Fehler aufgetreten ist. Da man glücklicherweise in 
den meisten Fällen relativ genau weiß, an welcher Programmstelle 
evtl, ein Fehler eintreten könnte, braucht man also nur direkt vor 
dieser Stelle OPTION Ul verfügen, zu welcher dann durch RESUME 
bzw. RESUME Next zurückgekehrt werden kann. Das hat natürlich 
dann auch zur Folge, daß das Programm auch durch die Break-Ta¬ 
stenfunktion unterbrochen werden kann. Wollen Sie eine Unterbre¬ 
chung hierdurch vermeiden, setzen Sie am Programmanfang den Be¬ 
fehl ON BREAK CONT. 

Anderenfalls können Sie eine Break-Behandlungsroutine bereitstellen, 
die dann durch ON BREAK GOSUB angesprungen und in welcher 
auf die Unterbrechung gezielt reagiert werden kann. Dieses etwas 
umständlich erscheinende Verfahren ist notwendig, da der Einbau ei¬ 
ner ständigen Speicherung des Programmzählers in das Compilat mit 
erheblichem Geschwindigkeitsverlust und einem größeren Pro¬ 
grammumfang bezahlt werden müßte. 
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Beispiel: 

Option "UO" 

Option "T+" 

On break gosub Abbruch 
On error gosub Fehler 
A*=2‘31-100 
Do 

Option "Ul" 

Print AX 
Inc AX 

Exit if FlagX^I 
Loop 

Print “Schleife verlasseni AX: ";AX;" (Taste drücken)" 
Void Inp(2) 

Quit 

Procedure Abbruch 

Alert 2,"Progranmende?",1,"OKAY|NE IN", BackX 
If BackX=1 
Quit 
Endif 
Return 

Procedure Fehler 

Alert 1,"Integerbereichj tnax. 21A7483647",1,"OKAY",BackX 
FlagX=1 
Resume Next 
Return 


CHAIN-Ausführung 

Der CHAIN-Befehl wird vom Compiler anders ausgeführt als vom 
Interpreter. Im Interpreter bezieht sich dieser Befehl auf ein nachzula¬ 
dendes und vom Interpreter auszuführendes BAS-Programm. Da dies 
natürlich bei einem compilierten Programm nicht möglich ist, wird 
hier durch CHAIN ein beliebiges, direkt ausführbares .PRG-, .TOS- 
oder .TTP-Programm angesprochen. Vor dessen Ausführung wird der 
angegebene Programmname an die AES-Funktion SHEL_WRITE() 
(siehe dort) übergeben und das aufrufende Programm beendet. Es ist 
danach also nicht mehr aufrufbar und der belegte Speicherplatz wird 
wieder freigegeben. Die zweite Hälfte der Basepage (Bytes 129 - 256) 
wird durch die AES-Funktion SHEL_WRITE() als Kommandozeile an 
das auf gerufene Programm übergeben. So ist es möglich, diese 128 
Bytes dazu zu verwenden, Informationen, Variableninhalte etc. an das 
auf gerufene Programm zu übergeben. 

Beispiel: 

•* Progranm 1 ** 

A$="Strings werden durch sh_write in GroBschrift übergeben!" 

Poke Basepage+128,Len(A$) 

Bmove Varptr(A$),Basepage+129,Len(A$) 
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Print "PROGRAMM 1" 

Chain "Prog2.prg" 

** Progranm 2 ** 

L.enX=:Peek(Basepage+128) 

A$=Space$(L.enX) 

Bmove Basepage+129,Varptr(A$),L.enX 
Print "PROGRAMM 2" 

Print "String-Variableninhalt aus Progranm 1:" 

Print ChrSdO);' 'A$";Chr$(13);Chr$(10);Chr$(10);"(Taste drücken)" 

Void Inp(2) 

Speichern Sie die beiden Beispielprogramme als BAS-Files ab. Das 
zweite Programm muß dabei den Namen PRC)G2.BAS tragen. Compi- 
lieren Sie anschließend beide Programme und starten Sie dann Pro¬ 
gramm 1. Nach kurzer Zeit wird Programm 1 abgebrochen und Pro¬ 
gramm 2 gestartet. Anhand des übergebenen Strings kann man sehen, 
daß es problemlos möglich ist, Informationen zwischen den Program¬ 
men auszutauschen. So können z.B. Dateinamen übergeben werden, die 
dann vom aufgerufenen Programm geladen oder bearbeitet werden. 
Der Unterschied zu dem Befehl EXEC besteht hauptsächlich darin, 
daß hier eben die Basepage durch die genannte AES-Funktion überge¬ 
ben und das aufrufende Programm aus dem Speicher gelöscht wird. 
Wird dagegen ein Programm durch EXEC aufgerufen, wird die Base¬ 
page nicht übergeben und nach Abschluß des aufgerufenen Programms 
kehrt das System nicht grundsätzlich zum Desktop, sondern zum auf¬ 
rufenden Programm zurück. 


Fileselect-Box-Speicher 

Der Aufruf einer FILESELECT-Box gestaltet sich im Interpreter er¬ 
freulich problemlos. Von vielen wird vielleicht garnicht bedacht, daß 
bei jedem Aufruf der Hintergrund (also das aktuelle Bild) zwischen¬ 
gespeichert werden muß, um damit hinterher die Box wieder zu über¬ 
lagern. Der V2.xx-Interpreter verfügt über zwei Bildspeicher, wovon 
der Editorbildschirm dazu verwendet wird, bei FILESELECT-Aufru¬ 
fen den Hintergrund zu retten. Da es bei compilierten Programmen 
keinen Editor gibt, gibt es natürlich auch keinen Editorbildschirm. 
Aus diesem Grund muß sichergestellt werden, daß das Programm zum 
Zeitpunkt des Aufrufs einer FILESELECT-Box über ca. 32500 Byte 
freien Speicher verfügt. 

Dies kann am besten erreicht werden, wenn man den Programmspei¬ 
cher vor Aufruf der Box durch RESERVE auf diese ca. 32500 Byte 
plus einer überschlägig angenommenen Größe des benötigten Vari¬ 
ablenspeichers festlegt. Die Box verwendet dann den restlichen Vari¬ 
ablenbereich zum Speichern der aktuellen Screen und restauriert den 
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Bildschirm anschließend wieder damit. Wenn Sie keine weiteren Pro¬ 
gramme in den Speicher laden wollen (siehe EXEC) können Sie auch 
ganz sicher gehen, indem Sie am Programmanfang einfach RESERVE 
FRE(O) einsetzen und damit den gesamtem freien Speicher für das 
aktuelle Programm reservieren. 


Sonstiges 

Haben Sie alle Optionen bereits im Programm verfügt oder wollen Sie 
die Optionen UO, T-, E- und B- einsetzen, müssen Sie in der Compi¬ 
ler-Box keinen der Buttons bedienen, da diese bereits voreingestellt 
sind. Sie erscheinen bei Compiler-Aufruf schwarz unterlegt. 

Wenn Sie bei Eingabe der Programm-OPTIONen zwischen dem Befehl 
und der verfügten Option ein Leerzeichen lassen, können Sie die An¬ 
führungszeichen vernachlässigen, sie werden vom Interpreter automa¬ 
tisch gesetzt (z.B. Opt ul). Der Optionsbuchstabe kann wahlweise auch 
kleingeschrieben sein. Jede Option, die den Komfort des Programms 
steigert (Ul - U3, T+, E+, B+) vermehrt den Programmumfang und 
vermindert die Laufgeschwindigkeit des Programms. 

Bei Programmen, die den Bildschirmbereich des Editors zur Speiche¬ 
rung eigener Daten verwenden, können Fehlfunktionen im compilier- 
ten Programm auftreten. Eine Null-durch-Null-Division (0/0) ergibt 
nicht, wie beim Interpreter, die Fehlermeldung "Division durch Null", 
sondern der Compiler erkennt, daß diese Teilung den Wert 1 ergibt 
und liefert diesen Wert als Ergebnis der Teilung an das Programm 
(PRINT 0/0 => ergibt 1). Es ist kaum vorstellbar, daß dieser Fall ein- 
tritt, aber sicher ist sicher. 

Anders als im Interpreter wird in GFA-Compilaten die 
REPEAT..UNTIL-Schleife mit einem Integerzähler schneller ausge¬ 
führt, als eine entsprechende Integer-FOR..NEXT-Schleife. 

Beispiel: 


Repeat j ist j> For CoijntX=1 To 1000 

Inc CountX schneller > Hext CountX 

Until CountX=1000 { als | 
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24.2 Variablenorganisation/Typen 

Variablennamen ohne Kennung bzw. mit der Kennung # (bei V3.0- 
DEFLIST 2/3) werden als FlieBkomma-Variablen (auch Real-Vari¬ 
ablen genannt) interpretiert. Dieser Variablenyp benötigt zu seiner 
Speicherung 6 Byte (V2.xx), bzw. 8 Byte (V3.0) Speicherplatz. Im De¬ 
zimalbereich kann so eine Genauigkeit von bis zu maximal 11 Stellen 
(V2.XX) bzw. 13 Stellen (V3.0) eingehalten werden. Nimmt der ganz¬ 
zahlige Anteil mehr als 11 (bzw. 13) Stellen ein, wird der Variablen¬ 
wert in das Exponentialformat konvertiert. In diesem Format können 
dann Werte mit einem ganzzahligen Anteil von bis zu 1S4 Stellen 
(V2.XX) bzw. 308 Stellen (V3.0) erfaßt werden. Größter darstellbarer 
Wert = l.OE+154 (V2xx) bzw. 3.595386269725E+308 (V3.0). 

Variablennamen mit der Kennung (Postfix) % (z.B. Var%) gelten als 
4-Byte-Integer-Variablen. Jeder diesem Variablentyp zugeordnete 
Wert wird auf seinen ganzzahligen Anteil reduziert. D.h., evtl, auftre¬ 
tenden Nachkommastellen werden "integriert". Zu seiner Speicherung 
benötigt dieser Typ 4 Byte Speicherplatz (+ Zeichenanzahl des Na¬ 
mens). Es können Werte im Bereich von -2147483648 (» -2''31) bis 
+2147483647 (= 2^31-1) verarbeitet werden. Werte außerhalb dieses 
Bereichs werden als Überlauf angesehen. 

Variablennamen mit der Kennung | (z.B. Var)) gelten als vorzeichen¬ 
lose 1-Byte-Integer-Variablen (-> nur V3.0). Diesem Typ zugeordnete 
Werte werden auf ihren ganzzahligen Anteil reduziert. Evtl, auftreten¬ 
den Nachkommastellen werden also auch hier "integriert". Zu seiner 
Speicherung wird 1 Byte Speicherplatz benötigt (+ Zeichenanzahl des 
Namens). Es können Werte im Bereich von 0 bis 255 hiermit verar¬ 
beitet werden. Werte außerhalb dieses Bereichs werden als Überlauf 
angesehen. 

Variablennamen mit der Kennung & (z.B. Var&) gelten als 2-Byte- 
Integer-Variablen (-> nur V3.0). Auch diesem Typ zugeordnete Werte 
werden auf ihren ganzzahligen Anteil reduziert (integriert). Zu seiner 
Speicherung benötigt dieser Typ 2 Byte Speicherplatz (+ Zeichenanzahl 
des Namens). Es können Werte im Bereich von -32768 (» -2*15) bis 
+32767 (= 2*15-1) verarbeitet werden. Werte außerhalb dieses Bereichs 
werden als Überlauf angesehen. 

Variablennamen mit der Kennung ! (z.B. Var!) sind Boole-Variablen. 
Dieser Variablentyp kann ausschließlich die Werte 0 (» False) und -1 
(<> 0 = True) annehmen. Es werden zu seiner Speicherung 2 Byte 
benötigt (+ Zeichenanzahl des Namens). Im Gegensatz zu anderen Ty- 
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pen hat diese Variable innerhalb von Feldern jedoch einen anderen 
Speicherbedarf als den einer Einzelvariablen. In Feldern benötigt sie 
nur 1 Bit (!) je Element. 

Variablennamen mit der Kennung $ (z.B. Var$) werden als Text-Va¬ 
riablen (String-Variablen) interpretiert. Für diesen Variablentyp wird 
jeweils ein Descriptor von 6 Byte eingerichtet. In diesem Descriptor 
befindet sich in den ersten vier Byte als Longword die Adresse des 
ersten Zeichens und in den nächsten zwei Byte die Länge des Strings. 

Der String-Descriptor ist über den Befehl ARRPTR(Var$) zu ermit¬ 
teln. Jedem String, der in einer Variablen gespeichert wird, wird ein 4 
Byte langer Backtrailer (Anhänger) zugeordnet. Dieser beinhaltet die 
Anfangsadresse (Longword) des jeweils zugehörigen Descriptors. Hat 
der String eine ungerade Länge, wird zwischen String-Ende und 
Backtrailer ein Füll-Byte gesetzt, damit das Backtrailer-Longword auf 
jeden Fall eine gerade Adresse erhält. 

Benötigter Speicherplatz eines Strings: 

6 Byte für Descriptor 
+ 4 Byte für Backtrailer 
evtl. + 1 Füll-Byte 

+ n Bytes (n = String-Länge) 

+ n Bytes (n = Zeichenanzahl des Namens) 

Der String-Descriptor und der Backtrailer weisen quasi durch ihren 
Inhalt aufeinander. Dies gewährleistet, daß der ständige Aufräumungs¬ 
prozess der Garbage-Collection nicht mal "ausnahmsweise" ein Zeichen 
"verliert". Mancher würde vielleicht sagen: "Das kann ja mal passieren. 
Ist nicht so schlimm!". Hier darf es nicht passieren. Jedes Byte, daß 
verloren ginge, hätte unter Umständen katastrophale Folgen. 

Der Aufbau des Descriptors und des Strings mit seinem Backtrailer 
sieht schematisch so aus: Der String soll einfach "BASIC" heißen: 






A$: 


ByteljByte2 Byte3 ByteAjByteS 

=====!===== =ssss ===s=!==ssz 


sssss > ==sssIs===sIsrsas•saass 

<- S T R I N G-I N H A L T -> 


Byte7jByteSjByte9jByte10 

XZKKK j SXXXX j SXBXS j EZSSX j 

Hl-Uord LO-Uord 

SSSSS■ESSSX * SEXSS■XXEEE j 

<- Backtraiter -> 
beinhaltet die Adresse 
des Descriptors°ARRPTRj 


! Diese Fragezeichen sollen andeuten, daB inner dam, wem 
der String eine ungerade Länge hat, ein Füll-Byte (ohne 
Bedeutung) eingesetzt wird, damit sichergestellt ist, daB 
der Backtrailer, der ja ein Longword (A Byte) beinhaltet, 
immer an einer geraden Byte-Grenze begimt. Uords (2 Byte) 
und Longwords (4 Byte) können generell nur ab einer geraden 
I Adresse gelesen werden (s. auch PEEK,DPEEK,LPEEK). 

1 ........................................................... I 


Die Inhalte werden nun ermittelt, indem mit LPEEK und DPEEK 
(bzw. CARD{} und LONG{)) die entsprechenden Words und Long¬ 
words gelesen werden. 

Mit jedem der oben angeführten Variablentypen lassen sich auch ein- 
oder mehrdimensionale Felder (Arrays) bilden. Zur Bestimmung der 
Adressen der einzelnen Feldelemente und ihrer Größen (bei String- 
Feldern), sowie zur Ermittlung der Dimensionsanzahl und deren ein¬ 
zelnen Elementmengen kann ebenfalls der Befehl ARRPTR (siehe 
dort) verwendet werden, der einen Variablen-Descriptor liefert. 
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Die Möglichkeit, eine Garbage-Collection durchzuführen bzw. zu 
veranlassen, verlangt bei Feld- und String-Variablen (deren Länge 
variabel sein kann) eine Information darüber, wo die entsprechenden 
Einträge zu finden sind. Deshalb ist es nötig, eine solche Informati¬ 
onseinheit irgendwo im Speicher zu installieren. Dieses ist der De- 
scriptor. Er gibt jederzeit Auskunft darüber, wo der Inhalt einer sol¬ 
chen Variablen zu finden ist, bzw. welchen Speicherplatz sie ein¬ 
nimmt. Strings und Felder werden hierbei noch unterschiedlich behan¬ 
delt. 

Der erste Feld-Descriptor enthält in seinen ersten vier Byte die 
Feldadresse. In den nächsten zwei Byte ist die Anzahl der Dimensio¬ 
nen enthalten. Unter Feldadresse ist hier nicht die Adresse des ersten 
Byte des ersten Elementes der ersten Dimension zu verstehen, sondern 
ein weiterer Descriptor, der Informationen über die einzelnen Dimen¬ 
sionen liefert. Die Größe dieses Descriptors ist abhängig von den Di¬ 
mensionen, die mit DIM vorgesehen wurden. 

Am Anfang dieses zweiten Descriptors stehen in Jeweils 4 Byte die 
Dimensionstiefen, rückwärts. Wenn also 3 Dimensionen angegeben 
wurden, ist der erste Sektor dieses zweiten Descriptors 12 Byte lang. 
Wurden 4 Dimensionen eingerichtet, ist er 16 Byte lang usw. 

Nach der Formel: 

Adresse des zweiten Descriptors 
+ (Anzahl der Dimensionen • 4) 

- (Dimensionsindex • 4) 

können die einzelnen Elementemengen der mit DIM bestimmten Di¬ 
mensionen ermittelt werden. 

Ab hier unterscheiden sich die Descriptoren für String-Felder von 
denen für numerische Felder. Für String-Felder schließt sich an diesen 
ersten Sektor, der in seiner Länge von der Anzahl der Dimensionen 
abhängig ist, - vorwärts - zusätzlich eine Liste von Descriptoren an, 
die denselben Aufbau haben, wie der Descriptor für Einzel-Strings. In 
diesem Falle existieren für jedes Element der ersten Dimension eines 
String-Arrays ein separater Descriptor. Dessen Lage läßt sich nach der 
Formel: 


Adresse des zweiten Descriptors 
+ (Anzahl der Dimensionen • 4) 

+ (Elementindex der ersten Dimension • 6) 
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ermitteln. Zu dieser Problematik finden Sie anschließend ein kleines 
Programm, das Ihnen dabei helfen soll, diese Vorgänge etwas leichter 
zu verstehen Manchen mag es scheinen, daß bei diesem Programm et¬ 
was übertrieben wurde. Dazu gibt es ein Sprichwort: 

"Übertreibungen machen deutlich!". 


So läßt sich evtl, die Grundstruktur dieses Befehls in seinen Gesetz¬ 
mäßigkeiten eher verstehen. 

aSysfontd) I siehe unter ASC 

Dirn A$(4,3,7) 

A$(0,0,0)="A" 

A*(1,0,0)»"BC" 

A$(2,0,0)="DEF" 

A$(3,0,0)="GHIJ" 

A$(4,0,0)»"KLMNO" 

D_escr{pedrX^Arrptr(A$()) 

A_rray8drX=Lpeek{D_escripadrX) 

Print String$(39,"-") 

Print " Feld-Descriptor : ";D escripadrX 

Print Strin9$(39,"-") 

Print " Feldadresse : ";Lpeek(D escripadrX) 

Print String$(39,"-") 

Print " Am. d. Dimensionen : ";Dpeek(D_escripadrX+4) 

Print String$(39,"-") 

Print " Anz.d.Elem.in 1.Dimension : ";Lpeek(A_rroyadrX+8) 

Print " Anz.d.Elem.in 2.Dimension : ";Lpeek(A_rrayodrX+4) 

Print " Anz.d.Elem.in 3.Dimension : ";Lpeek{A_rrayadrX) 

Print String$(39,"-") 

Print " 0/0/0 - Descriptor-Adresse : ";A_rrayadrX+12 

Print " 1/0/0 - Descriptor-Adresse : ";A_rrayodrX+18 

Print " 2/0/0 - Descriptor-Adresse : ";A_rrayadrX+24 

Print " 3/0/0 - Descriptor-Adresse : ";A_rrayadrX+30 

Print *' 4/0/0 - Descriptor-Adresse : ";A_rray8drX+36 

Print String$(39,"-") 

Print " 0/0/0 - Adresse mit Varptr : '';Varptr(A$(0,0,0)) 

Print " 1/0/0 - Adresse mit Varptr : ";Varptr{A${1,0,0)) 

Print " 2/0/0 - Adresse mit Varptr : ";Varptr(A${2,0,0)) 

Print " 3/0/0 - Adresse mit Varptr ; ";Varptr{A$(3,0,0)) 

Print " 4/0/0 - Adresse mit Varptr : ";Varptr(A$(4,0,0)) 

Print String$(39,"-") 

Print " 0/0/0 Adr.im 0/0/0-Descriptor : ";Lpeek(A_rrayadrX+12) 

Print •• 1/0/0 Adr. im 1/0/0-Descriptor : ";Lpeek(A_rrayadrX+18) 

Print " 2/0/0 Adr.im 2/0/0-Descriptor : “;Lpeek(A_rrayadrX+24) 

Print " 3/0/0 Adr.im 3/0/0-Descriptor : ";Lpeek(A_rrayadrX+30) 

Print " 4/0/0 Adr.im 4/0/0-Descriptor : '';Lpeek(A rrayadrX+36) 

Print String*(39,"-“) 

Print " String-Länge 0/0/0 ; ";Dpeek(A_rrayadrX+16) 

Print " String-Länge 1/0/0 : ";Dpeek(A_rrayadrX+22) 

Print " String-Länge 2/0/0 : ";Dpeek(A_rrayadrX+28) 

Print " String-Länge 3/0/0 : ";Dpeek(A_rrayadrX+34) 

Print " String-Länge 4/0/0 : ■';Dpeek(A rrayadrX+40) 

Print StringS(39,"-") 

S_tr i ng.0$=Chr${Peek(Lpeek(A_rrayadrX+12))) 

Print " String 0/0/0 : ";S_tring.0$ 
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For IX=0 To 1 

S_tring.1$=S_tring.1$+Chr$(Peek(Lpeek(A_rray8drX+18)*IX)) 

Next IX 

Print " String 1/0/0 : ";S_tring.1$ 

For IX=0 To 2 

S_t ring.2$=S_t ring.2S+Chr$(Pcek(Lpeek(A_r rayadrX+2A)+1X)) 

Next IX 

Print •' String 2/0/0 : ";S_tring.2$ 

For IX=0 To 3 

S_tring.3S=S_tring.3t+ChrS(Peek(Lpeck(A_rrayadrX+30)+IX)) 

Next IX 

Print " String 3/0/0 : ";S tring.3$ 

For IX=0 To 4 

S_tring.4$=S tring.4$+Chr$(Peek(Lpeek(A rrayadrX+36)+IX)) 

Next IX ” 

Print " String 4/0/0 : ";S_tring.4S 

Print String$(39,"-") 

Print » 0/0/0 - Backtrailer zeigt auf : ■•;Lpeek(Lpeek(A_rrayadrX+12)+2> 

Print " 1/0/0 - Backtrailer zeigt auf : '';Lpeek(Lpeek(A~rrayadrX'*'18)+2) 

Print " 2/0/0 - Backtrailer zeigt auf : ";Lpeek(Lpeek(A_rrayadrX+24)+4) 

Print " 3/0/0 - Backtrailer zeigt auf : '';Lpeek(Lpeek(A rrayadrX+30)+4) 

Print " 4/0/0 - Backtrailer zeigt auf : ";Lpeek(Lpeek(AlrrayadrX+36)+6) 

Print String$(39,"-") 

L_aenge.3_OX=Len(A$<3,0,0)) 

If L_aenge.3_0X Mod 2<>0 
Inc L_aenge.3_0X 
Endif 

Bt.3 0X=Varptr(A$(3,0,0))+L aenge.3_0X 

Print " 3/0/0- Backtrailer zeigt auf : ";Lpeek{Bt.3_0X) 

Print “ (mit Len und Varptr ermittelt)" 

Print String$(39,"-");Chr$(27);"H" 

U=Inp(2) 

aSysfont(2) I Siehe unter ASC 

Edit 

Sie finden in diesem kleinen Listing zwei Sysfont-Aufrufe. Sie bewir¬ 
ken, daß der System-Font zuerst auf die Color-Textgröße 8*8 und 
zum Ende wieder auf die normale Hires-Größe 8*16 umgestellt wird. 
Dieses hat, wie sie beim Testen dieses Programms sehen werden, den 
Vorteil, daß die gesamte Bildschirmausgabe auf eine Screen paßt. 
Sollten Sie dieses Listing isoliert verwenden, vergessen Sie bitte nicht, 
diese Prozedur Sysfont mit einzubinden (siehe unter ASC). Es ist übri¬ 
gens dieselbe Umschaltfunktion, die im Editor-Menü bei Text 16/Text 
8 verwendet wird. 

Zum zweiten wird in der viertletzten Zeile ein TOS-Befehl verwendet 
(Chr$(27);"H"), der den Text-Cursor nach Abschluß der letzten 
PRINT-Zeile auf Home (obere linke Bildschirmecke) setzt, da sonst 
durch das Zeilen-Scrolling die oberste Textzeile aus dem Bildschirm 
gedrängt würde. Dieses Unterdrücken des Scrollings ist auch mit ei¬ 
nem an den PRINT-Befehl angehängten Semikolon möglich (dazu 
mehr unter PRINT). 
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Die enstprechenden Informationen über numerische Variablenfelder 
sind einschließlich der Dimensionstiefe nach dem gleichen Muster zu 
ermitteln, wie bei String-Feldern. Nach dem Sektor, der Auskunft 
über die Tiefen gibt, folgen jedoch bei numerischen Feldern entspre¬ 
chenden Elemente, bzw. deren Inhalte. 


Um nun zu wissen, in welchen Byte-Abständen diese Werte zu finden 
sind, seien hier noch einmal in Kürze die Variablentypen erwähnt: 


Realzahl-Variablen 

4-Byte-Integer-Variablen 
Boolesche Variablen 
String-Variablen 


Keine Kennung •> 6 Byte Speicherplatz 
bzu. in V3.0: # » 8 Byte Speicherplatz 
Kennung % » 4 Byte Speicherplatz 
Kennung I » 2 Byte Speicherplatz 
Kennung $ «> 1 Speicher-Byte je Zeichen 


In V3.0 gibt es zusätzlich noch: 

1- Byte-Integer-Variablen Kennung | => 1 Byte Speicherplatz 

2- Byte-Integer-Variablen Kennung t => 2 Byte Speicherplatz 


24.3 Der Run-Only-Interpreter 

Was sicherlich nicht nur die Profis unter den Lesern interessieren 
wird, ist ein Programm, das Run-Only-Interpreter (engl.: Nur-Lauf- 
Interpreter) genannt wird. Dies ist ein Interpreter, mit dem man Pro¬ 
gramme nur laden und starten kann. Die Edition des geladenen Pro¬ 
gramms ist hiermit nicht möglich. Dieser Run-only-Interpreter ist frei 
kopierbar und kann also mit den GFA-BASIC-Programmen verbreitet 
werden. So ist es möglich, diese Programme lauffähig zu machen, ohne 
den eigentlichen Interpreter besitzen zu müssen. 

Auch hier wurde wieder an die Kleinigkeiten gedacht. Es ist nämlich 
möglich, die mit dem Run-only-Interpreter zusammen auf der Dis¬ 
kette befindlichen BAS-Dateien durch einfaches Anklicken zu starten. 
Auf diese Weise unterscheiden sich GFA-BASIC-Programme in der 
Bedienung für den Anwender überhaupt nicht mehr von compilierten 
oder assemblierten Programmen. Man klickt sie an und sie starten 
selbsttätig. Was man bei anderen BASIC-Dialekten meist schmerzlich 
vermissen muß, ist hier ein Kinderspiel: der Auto-Start (er funktio¬ 
niert übrigens auch beim Editor-Interpreter). 
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24.4 Der Direktmodus 

Hiermit steht Ihnen Eingabemöglichkeit zur Verfügung, die nicht auf 
den Befehl RUN wartet, sondern alle Eingaben sofort (direkt) nach 
deren Formulierung und anschließendem Betätigen der <Return>-Taste 
ausführt. Es ist hier nicht möglich, Befehlsketten zu bilden, die dann 
der Reihe nach abgearbeitet werden. Es sei denn, man hat vorher im 
Programmeditor eine PROCEDURE definiert, die dann vom Direkt¬ 
modus aus mit GOSUB angesprungen werden kann. 

FOR..NEXT-Schleifen z.B. sind also im Direktmodus nicht machbar, 
da sie mindestens zwei getrennte Befehle benötigen. Welche Befehle 
und Anweisungen hier nicht möglich sind, wird Ihnen der Interpreter 
anchließend an die Fehleingabe in einer Alert-Box melden. 

Das mag alles auf den ersten Blick etwas umständlich wirken, hat je¬ 
doch den unübersehbaren Vorteil, daß es dadurch möglich ist, sich 
eine eigene Bibliothek an Funktionen und Hilfsprogrammen zusam¬ 
menzustellen, die dann einfach über einen GOSUB-Sprungbefehl an¬ 
gesprochen werden können. 

Ein Mangel ist, daß unter ungünstigsten Umständen ein Systemfehler, 
der zwar gemeldet wurde, aber nicht komplett abgefangen werden 
konnte, dazu führen kann, daß der nicht mehr zu verhindernde Ab¬ 
sturz erst bei der Umschaltung zum Direktmodus stattfindet. 

Zur allgemeinen Beruhigung: dieser Umstand tritt äußerst selten auf, 
da dieser Interpreter über ein "fast" perfektes Error-Handling verfügt. 

Des weiteren ist im Farbmodus zu beachten, daß die Schriftfarben für 
den Editor und den Direktmodus aus verschiedenen Farbregistern be¬ 
zogen werden. Wenn also über das Register 1 die Ausgabetextfarbe so 
eingestellt wurde, daß sie mit dem Hintergrund (Register 0) identisch 
ist, kann es sein, daß Sie den Editortext (Register 3) noch lesen kön¬ 
nen und im Direktmodus keine Schrift mehr zu erkennen ist. Dieser 
Schaden kann realtiv leicht behoben werden, indem man nun "blind" 
SETCOLOR 1, Farbe mit einer Farbe eingibt, die sich vom Hinter¬ 
grund abhebt. Derselbe Schritt ist in V2.xx vorzunehmen, wenn sich 
im Editor kein Text mehr erkennen läßt. In V3.0 ist dies unnötig, da 
der Interpreter bei Rückkehr zum Editor wieder die Ausgangsfarben 
restauriert. 

Wollen Sie aus dem Direktmodus wieder zum Editor wechseln, geben 
Sie einfach Ed-i-<Return> ein oder drücken <Esc> und anschließend 
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<Return>. Außerdem erreichen Sie den Editor auch durch die Break- 
Funktion <Control><Shift><Alternate>. 

Wie Sie im Laufe ihrer wachsenden Routine an diesem Interpreter er¬ 
kennen werden, kann man angesichts der erheblichen Vorteile dieses 
Modus die Nachteile fast vergessen. 

Die jeweils letzte Eingabezeile im Direktmodus kann durch <Undo> 
wieder aufgerufen werden. 

In Version V3.0 ist ein sogenannter History-Modus eingebaut, der es 
erlaubt, sich durch Betätigung der <Pfeil-hoch>- bzw. <Pfeil-runter>- 
Cursor-Taste die letzten acht Direkt-Befehle anzeigen zu lassen. Die 
angezeigte Zeile kann neu editiert werden und/oder durch <Return> 
erneut gestartet werden. Außerdem kann nun durch <Insert> zwischen 
Einfüge- und Überschreibmodus gewählt werden. 

Wie auch bei KEYDEF habe ich mir hier erlaubt, drei kleine Editor- 
Erweiterungen für die V3.0-Version zu produzieren. Beachten Sie 
dazu auch die Anmerkungen unter KEYDEF. 

PROCEDURE dsaveCdatnaneS) 

' Speichert den konpletten Zeilen-Puffer (8 Zeilen) des 
' History-Nodus auf der Diskette ab. 

' DatnameS > Naaw der History-Datei. 

' Der Naoie (Pfad) darf keine Extension tragen, 

■ da diese automatisch auf .HIS gesetzt wird. 

I 

IF RIGHT$(datnamet,A)<>>*.NIS" 

IF LEN(datnaffle$)<9 AND INSTR(datnameS,'<.‘')*0 
BSAVE datnameS+>‘ .HIS«, BASEPAGE* 124474,256*8 
ENDIF 
ENDIF 
RETURN 

PROCEDURE dload(datname$) 

■ Lädt einen kompletten, mit Dsave gespeicherten History-Block 
' von der Diskette. Die geladenen Zeilen können anschlieBend 

■ durch die beiden Vertikal-<Pfeiltasten> gewählt werden. 

' DatnameS < Name der zu ladenden History-Datei. 

■ Der Name (Pfad) darf keine Extension tragen, 

' da diese automatisch auf .HIS gesetzt wird. 

I 

IF EXISTfdatnameS+x.HIS") 

BLOAD datnameS*".HIS‘>,BASEPAGE+124474 
ENDIF 
RETURN 

PROCEDURE dline(idxX) 

■ Kleines Bonbon! Diese Routine belegt die History-Zeile 

■ mit dem Index idxX (1 - 8) mit dem zuletzt durch 

' <Control><P> (siehe 24.5 “Der Editor") gelöschten 
' String(-Teil). 

' FkeyX « Index der gewünschten History-Zeile (1 - 8) 
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LOCAL bf$,bpX 
IF idxX=>0 AND 1dxX<=8 
bpX=BASEPAGE 

bf$=SPACE$(LEN(CHAR{{bpX+24}})) 

BMOVE {bpX+24},bpX+124474+(HAX(1,jdxX)-1)*2S6,LEN(bfS) 
POKE bpX+124474+(MAX(1,idxX)-1)*256+LEN(bf$),0 
ENDIF 
RETURN 


24.5 Der Editor 

Neben einer gelungenen und programmierfreundlichen Syntax spielt 
der Programm-Editor die zweitgrößte Rolle bei einer Computerspra¬ 
che. Was soll ich mit einer noch so genialen Syntax, wenn die Funkti¬ 
onsweise des Editors mir KabinettstQckchen abverlangt, um meine 
Programmvorstellungen Realität werden zu lassen. In diesem Punkt 
gibt es wenig am GFA-BASIC auszusetzen. 

Die V3.0-Version des GFA-BASIC weist ein Fülle an Veränderungen 
auf. So auch der Editor. Um innerhalb der Beschreibung seiner Funk¬ 
tionen nicht das völlige Chaos zu veranstalten, hielt ich es für ange¬ 
bracht, dieses Kapitel zu unterteilen. Sie finden im ersten Teil alle 
Funktionen, die sowohl für die V2.xx-Versionen, als auch für die 
V3.0-Version unverändert - bis auf kleine Änderungen an der Re- 
place- und der Cursor-TAB-Funktion - gültig sind. 

Im zweiten Teil sind dann alle Änderungen und zusätzlichen Funktio¬ 
nen der V3.0-Version aufgeführt. 
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24.5.1 Editor-Optionen in V2.xx und V3.0 


San CXbiof . ... 
ytr.=fiinT2. 3 XbIoj(C4) J 
Defjex« , j^l2/CVtK+lJ 

I#!ctli/kT>:?14/VtK.35e/XtK.'*' ROUND ‘ - »I 
Philips« 32b/XtX, 2oe/vt>c, iso/xtx. 9e/Vt>: 

Grtiphnod« 1 
iRound C12/X 
Pr^c edure 

^or. - ob»r» V-Kpordin«tp d*s Ausschnitts 

$ rK = rechts X-Koordin*te des Ausschnitts 
uK c untere V-Koordinete des Ausschnitts 

$ p?c r Hi ttelpunlct-X-fCoord inate der Ellips< 
p>^ 7 H i tte lpun^t-V-[(e 9 rd inet^ der Ellips< 
hörizp 


iptisthe Uorforwong** 


2fce/-XtX. loe/vtx. 130, 410, 21 
’rtiK, Swx, rwK, Imdxj 


Irdx- hörizpntaler Eliipsenradius 
'rdx- vertlKfler Eliipsenradlus 

= StartwinKel in Grad (0 - rechtes Ende 
’mY, ~ Endwinhel in Grad c3Gg = rechtes Ende 
indX= Husfuhrungsnodus IrRtPLACE / 2=TRANSP 


_ HUs7uh*'yngsnodu 

K, M, StP, Stpl 

gwX = Sw>:«359 

C. l=90-iw25 ^To^|0-fev>? »♦P 




- EwK- CStpS^tpl) 
Stp2,StP 


or I=9e-Sw 
Sub 

^ndlf^ 

. pntX^^oint CÄiK+H,’^ÖXt CVuK-VoX 
€R.pntX>0 And Gf«dX=2} Or Gnd 
Coloj^ R.^ntx ^ 1 S 2 

'^^lot^XpXtiinlTTti^S^f/lSOloCXrdxt JK) , VpXt^Cos ( C1 «Kl »Fi/leAX* CVrdXt JKI 

a ext K 
i f 

Hext Jx 
Add H,Stpl 
Hext 1 
Return 


Cursor rechts 
==> <Rechtspfeil> 


Cursor links 
==> <Linkspfeil> 


Cursor an Zeilenanfgang 
==> <Control> + <Linkspfeil> 


Cursor an Zeilenende 

==> <Control> + <Rechtspfeil> 

Ist die Programmzeile länger als 79 Zeichen, wird die Zeile während 
der Edition jeweils um ein Zeichen nach links versetzt. Nach Ab¬ 
schluß der Zeile erscheint am rechten Bildrand in dieser Zeile ein 
Pfeil, der so andeutet, daß die Zeilenlänge mehr als 79 Zeichen be¬ 
trägt. 
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Cursor-rechts-Tabulator 
==> <Tab> 


In V3.0 ist es nun möglich, hiermit den Cursor hinter dem Zeilenende 
zu positionieren. 


Cursor-l inks - Tabul ator 
==> <Control> + <Tab> 


Cursor eine Zeile aufwärts 
+ Syntax-Check 
==> <Pfeil-hoch> 


Cursor eine Zeile abwärts 
+ Syntax-Check 

==> <Pfeil-runter> oder <Return> 


Cursor beliebig positionieren 
+ Syntax-Check bei Zeilenwechsel 
==> Mausklick auf gewünschte Position 

Wenn der Cursor nicht an den Zeilenanfang bewegt werden soll, son¬ 
dern direkt an die Mauszeigerposition, ist es ratsam, die Maustaste 
kurze Zeit gedrückt zu halten, da die Sprungorientierung sich zuerst 
auf den Zeilenanfang bezieht und erst in zweiter Instanz auf die 
Mauszeigerposition innerhalb der Zeile. 


Cursor an Seitenanfang 
■h Syntax- und Struktur-Check 
==> <ClrHome> 
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Cursor eine Seite rückwärts 
+ Syntax- und Struktur-Check 

==> <Control> + <Pfeil-hoch> oder <Shift> + <F7> 
oder "Pg up" im Editor-Menü anklicken. 


Cursor eine Seite vorwärts 
+ Syntax- und Struktur-Check 
“> <Control> + <Pfeil-runter> oder <F7> 

oder "Pg down" im Editor-Menü anklicken. 


Cursor an Programmanfang 
+ Syntax- und Struktur-Check 
==> <Control> + <ClrHome> 


Cursor an Programmende 
+ Syntax- und Struktur-Check 
==> <Control> + <Z> 


Programm speichern 

==> <Shift> + <F1> oder "Save" im Editor-Menü anklicken. 

V2.xx: Programm-Code wird mit Extension .BAS gespeichert. 

V3.00; Programm-Code wird mit Extension .GFA gespeichert. 

Das Programm wird als einheitlicher Speicherblock auf die Diskette 
geschrieben, ohne die Interpreter-Kontrolle zu durchlaufen. Dadurch 
ergibt sich eine erheblich kürzere Speicherzeit als bei Save.A. 


Programm laden 

==> <F1> oder "Load" im Editor-Menü anklicken. 

V2.xx: Programm-Code mit Extension .BAS laden. 

V3.00: Programm-Code mit Extension .GFA laden. 

Hier wird ebenfalls die Interpreter-Kontrolle übersprungen. Ein hier¬ 
mit geladenes Programm überschreibt das aktuelle Programm. Ggfs 
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sollte vorher das aktuelle Programm gesichert werden (vgl. LOAD). 
Der Lade-Vorgang läßt sich, nachdem er in Gang gebracht ist, nur 
noch durch einen Reset stoppen. 


Textdatei speichern 

==> <Shift> + <F2> oder Save,A im Editor-Menü anklicken. 
Programm in ASCII mit Extension .LST speichern. 


Textdatei laden 

==> <F2> oder Merge im Editor-Menü anklicken. 

Programm in ASCII mit Extension .LST laden. 

Ein hiermit geladenes Programm wird in das aktuelle Programm ab 
Cursor-Position eingefügt. Gemergte Zeilen, die nicht korrekt inter¬ 
pretiert werden können, werden mit dem Symbol ’==>’ markiert. Zei¬ 
len mit darin enthaltenen Null-Bytes oder zu großer Länge (>255) 
werden abgewiesen und der Merge-Vorgang abgebrochen. 


Interpreter-Arbeit beenden 

==> <Shift> + <F3> oder "Quit" im Editor-Menü anklicken. 


Programm-Listing ausdrucken 

==> <F3> oder "Llist" im Editor-Menü anklicken. 

Vorsicht: Ist der Drucker nicht angeschlossen oder nicht On Line, so 
kehrt das System erst nach ca. einer halben Minute zum Interpreter 
zurück. Also, nicht gleich den RESET-Knopf drücken! Antwort NEIN 
kehrt zum Interpreter zurück. 


Programm löschen 

==> <Shift> + <F4> oder "New" im Editor-Menü anklicken. 


Blockoperationen (Blockmenü öffnen) 

==> <F4> oder "Block" im Editor-Menü anklicken. 

Wurde mit Blk Sta und Blk End ein Textblock definiert, so erscheint 
das Block-Menü. Fehlt eine der beiden Definitionen, so erscheint 
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"Block ???". Wird bei offenem Blockmenü eine ungültige <Taste> ge¬ 
drückt oder außerhalb des Menüs in das Editor-Fenster geklickt, so 
verschwindet es wieder. 


Block an Cursor-Position kopieren 

««> <C> oder "Copy" im Block-Menü anklicken. 


Block an Cursor-Position bewegen 

=»> <M> oder "Move" im Block-Menü anklicken. 


Block als ASClI-Text speichern 
—> <W> oder "Write" im Block-Menü anklicken. 


Bloek ausdrucken 

==> <L> oder "Llist" im Block-Menü anklicken. 


Block-Anfang finden 

=«> <S> oder "Start" im Block-Menü anklicken. 


Block-Ende finden 

=«> <E> oder "End" im Block-Menü anklicken. 


Block löschen 

==> <Control> + <D> oder "Delete" im Block-Menü anklicken. 


Block-Anfang definieren 

==> <Shift> + <F5> oder "Blk Sta" im Editor-Menü anklicken. 


Block-Ende definieren 

==> <F5> oder "Blk End" Im Editor-Menü anklicken. 

Sollte sich bei Aufruf der beiden vorangegangenen Blockoperationen 
der Cursor innerhalb des Blocks befinden, wird die Fehlermeldung 
"Cursor in Block" ausgegeben. Wird das Block-Ende über oder in der 
Block-Anfangszeile definiert, wird die bisherige Block-Definitionen 
rückgängig gemacht. 
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In V3.0 wird der Block im Farbmodus nicht mehr gerastert, sondern 
farbig dargestellt. 


Ausdruck ab Cursor-Position finden und ersetzen 

==> <Shift> + <F6> oder "Replace" im Editor-Menü anklicken. 

Im Anschluß an die String-Eingabe kann dann durch <Control> + <F> 
die Suche ausgelöst werden. In V2.xx: <Control> + <R> ersetzt ggfs, 
den gefundenen Ausdruck durch den Ersatzausdruck. 

In V3.0: Bei Eingabe des Such- und des Ersatz-Strings erscheint der 
letzte String als Vorgabe erneut in der Eingabezeile. Die Eingabezeile 
kann durch <Esc> gelöscht werden. <Control> + <E> ersetzt ggfs, den 
gefundenen Ausdruck durch den Ersatzausdruck. Strings innerhalb 
"versteckter" Prozeduren werden nicht gefunden oder ersetzt. Wird der 
Ausdruck gefunden, wird die entsprechende Programmzeile angezeigt 
und der Cursor befindet sich auf dem ersten Zeichen des Ausdrucks. 
Ist der Ausdruck im weiteren Listing nicht mehr enthalten, bleibt der 
Cursor an der Suchstart-Position stehen. 

Der Find- oder Replace-String kann eine Länge von 60 Zeichen nicht 
überschreiten. Die Edition des Find- oder Replace-Strings erfolgt wie 
üblich durch die Tasten <Delete>, <Backspace> und die beiden Hori- 
zontal-Pfeiltasten. Zudem kann der Cursor mit den Vertikal-Pfeilta- 
sten jeweils an den Anfang oder das Ende des Strings bewegt werden. 
Soll die String-Eingabe abgebrochen werden, löschen Sie evtl, schon 
eingegebene Zeichen (<Delete> oder <Backspace>) und quittieren Sie 
mit <Return> oder drücken Sie die <Esc>-Taste und anschließend 
<Return>. Um das gesamte Programm zu durchsuchen, muß ggfs, der 
Cursor durch gleichzeitiges Drücken von <Control> und <ClrHome> 
am Programmanfang positioniert werden. 


Ausdruck ab Cursor-Position finden 

==> <F6> oder "Find" im Editor-Menü anklicken. 

<Control> + <F> sucht jeweils nächsten Ausdruck. 

Zu den folgenden drei V3.0-Prozeduren beachten Sie die Anmerkun¬ 
gen und Prozedur-Beschreibungen unter KEYDEF bzw. in der Be¬ 
schreibung des V3.0-Direktmodus. 

PROCEDURE fsave(datnanie$> 

■ Speichert den aktuellen Find- und Replace-String 
' in einer beliebigen Disk-Datei ab. 
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■ OatnameS = Beliebiger Dateiname ohne Extension. 

' Oie Extension .FND wird automatisch gesetzt. 

IF RIGHTS(datname$,4)<>x.FND" 

IF LEN(datnamet)<9 AND INSTR(datnamet,".")=0 
BSAVE datnameS+".FNO",BASEPAGE+93364,128 
ENDIF 
ENDIF 
RETURN 

PROCEDURE fload(datname$) 

■ Lädt den durch Fsave gespeicherten Find- 
' und Replace-String von der Diskette und 

■ trägt die beiden Strings in dem internen 
' String-Puffer ein. 

' DatnameS = Beliebiger Dateiname ohne Extension. 

' Extension .FND wird automatisch gesetzt. 

I 

IF EXIST(datnaffle$+".FND»} 

BLOAO datname$+''.FND",BASEPAGE+9336A 
ENDIF 
RETURN 

PROCEDURE fline(idxX) 

' Diese Routine belegt entweder den internen 
' Find-String-Puffer (idxX « 0) oder den internen 
' Replace-String-Puffer (idxX = 1) mit max. 61 
' Zeichen des zuletzt durch <Control><P> 

' (siehe 2A.5 "Oer Editor") gelöschten String(-TeiIs). 

■ IdxX: 

' 0 = Ziel ist Find-String 

• 1 = Ziel ist Replace-String 

I 

LOCAL bfS.bpX 
IF idxX=>0 AND idxX<=1 
bpX=BASEPAGE 

bf$=SPACES(LEN(CHAR{{bpX+24}})) 

BHOVE {bpX+24},bpX+93364+idxX*64,MAX(61,LEN(bfS)) 

POKE bpX+93364+idxX*64+MAX(61,LEN(bf$))'*^1,0 
ENDIF 
RETURN 


Editor-Zeilenhöhe ändern (nur in Hires) 

=»> <Shift> + <F8> oder "Text 16" bzw. 

"Text 8" im Editor-Menü anklicken (in V3.0 : "Txt 16"). 


Text-Eingabemodus ändern 
==> <F8> oder "Insert" bzw. 

"Overwrt" im Editor-Menü anklicken. 

Die eingegebenen Zeichen können verschiedene Auswirkungen auf den 
schon bestehenden Programmtext haben. Im Insert-Modus (insert; 
engl.: einfügen) wird das einzugebende Zeichen an der Cursor-Position 
in den Text eingefügt. Der rechts davon liegende Zeilenrest wird um 
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eine Stelle nach rechts verschoben. Im Overwrite-Modus (overwrite; 
engl.: überschreiben) wird das Zeichen unter dem Cursor durch das 
neue Zeichen überschrieben. 


Direktmodus einschalten 
==> <Shift> + <F9> oder <Esc> 

oder "Direct" im Editor-Menü anklicken. 


Ausgabe-Fenster zeigen 

==> <F9> oder "Flip" im Editor-Menü anklicken. 

Das zweite Interpreter-Fenster, das zur Ausgabe von Grafik- oder 
Textoperationen dient, wird gezeigt. Dieser Vorgang bleibt ohne wei¬ 
tere Auswirkung auf die Editor-Arbeit. Nach Drücken einer beliebi¬ 
gen Taste oder einem MausKlick unterhalb des Editor-Menüs kehrt 
der Interpreter zum Editor zurück. 


Programm starten 

==> <Shift> + <F10> oder "Run" im Editor-Menü anklicken. 
Aktuelles Programm nach Syntax-Check starten. 


Schleifenstruktur testen 

==> <F10> oder "Test" im Editor-Menü anklicken. 
Syntax- und Struktur-Check ohne Start. 


Letzte Änderung löschen + Struktur ordnen 
+ Syntax- und Struktur-Check 
==> <Undo> 

Wurde eine Programmzeile nach Änderung noch nicht mit <Return> 
oder einer Vertikal-Pfeiltaste verlassen, kann diese Änderung wieder 
ungültig gemacht werden. Gleichzeitig wird das Programm komplett 
strukturiert. Wurden Programmteile verändert, ersetzt oder gelöscht, 
kann es sein, daß die sichtbare Programmstruktur nicht mehr korrekt 
geordnet ist. Mit dieser Funktion wird das Programm wieder in Ord¬ 
nung gebracht. 
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Leer Zeile ein fügen 
==> <Insert> 

Hierdurch entsteht unter dem Cursor eine Leerzeile. Diese Zeile wird 
dann wie jede andere neue Zeile behandelt. Nach Texteingabe und 
<Return> als Zeilenabschluß wird solange eine neue Leerzeile einge¬ 
fügt bis diese dann leer mit <Return>, einer der Vertikal-Pfeiltasten 
oder <Undo> geschlossen wird. 


Aktuelle Cursor-Zeile (V2.xx: unwiderruflich) löschen 
==> <Control> + <Delete> 


Zeichen links vom Cursor löschen 
*=> <Backspace> 


Zeichen unter dem Cursor löschen 
==> <Delete> 


24.5.2 


Editor-Erweiterungen in V3.0 
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Die Menüleiste 

Die Editor-Menüleiste der V3.0-Version weist vier wesentliche Verän¬ 
derungen auf. 

Menüpunkt ganz links oben; Hier befindet sich das Atari-Symbol. 
Wird es durch Mausklick angewählt, gelangt man in ein Pull-Down- 
Menü mit zwei Menü-Titeln. 


Titel 1 (ebenfalls Atari-Symbol) 

Menüpunkt I: "GFA-BASIC 3.00 D" 

Es erscheint eine Alert-Box mit der Auswahl "Editor" und "Menü". 
Durch "Editor" gelangt man in den Programmeditor zurück, durch 
"Menü" wieder ins Pull-Down-Menü. Menüpunkte 2 bis 7 (falls vor¬ 
handen): Evtl, geladene Accessories. 


Titel 2 (GFA-BASIC) 

Menüpunkt I: "Save" 

Es wird in den Editor gesprungen und eine Fileselect-Box zum Ab¬ 
speichern des aktuellen Programms aufgerufen. 


Menüpunkt 2: "Load" 

Es wird in den Editor gesprungen und eine Fileselect-Box zum Laden 
eines GFA-BASIC-Programms aufgerufen. 


Menüpunkt 3: "Deflist" 

Es erscheint eine Alert-Box, durch welche die gewünschte DEFLIST- 
Einstellung initialisiert werden kann (vgl. DEFLIST). 


Menüpunkt 4: "Neue Namen" 

Es erscheint eine Alert-Box, durch welche bestimmt werden kann, ob 
bei Einführung neuer Variablen-, Label-, Prozedur- oder Funktions¬ 
namen eine Meldung ausgegeben werden soll. Anhand dieser Meldung 
kann dann entschieden werden, ob der neue Name als Bestandteil in 
das Programm übernommen wird oder nicht. Falls nicht, wird die 
Eingabe als Syntax-Error abgewiesen. Bei Editor-Start ist diese Funk¬ 
tion ausgeschaltet. 
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Menüpunkt 5: "Editor" 

Wird dieser Punkt gewählt, springt der Interpreter in den Editor. 


Menüpunkt ganz links darunter 

Dieser zwei Zeichen breite Menüpunkt ist bei GFA-Start üblicher¬ 
weise leer. In der linken Position erscheint bei eingeschaltetem Caps- 
Lock ein Aufwärtspfeil und in der rechten bei eingeschaltetem Num- 
Lock ein ’Hoch’-Zeichen Diese beiden Pfeile (Modi) können 
durch Anklicken an- und ausgeschaltet werden. 


Menüpunkt ganz rechts oben 

In diesem acht Zeichen langen Feld erscheint die aktuelle Uhrzeit. Sie 
kann verändert werden, indem man das Feld anklickt. Der Cursor 
steht dann auf dem ersten Feld der Stunden-Angabe und es wird die 
Uhrzeit-Eingabe erwartet. Nach <Return> wird die eingegeben Uhr¬ 
zeit übernommen. Wird statt dessen die Eingabe durch <Esc> abge¬ 
brochen, wird die alte Zeitangabe wieder restauriert. 


Menüpunkt ganz rechts darunter 

In diesem Feld erscheint die Nummer der Programmzeile, auf welcher 
sich der Cursor momentan befindet. Es ist möglich, eine beliebige 
Nummer einzugeben, indem man das Feld anklickt oder <Control> 
und <G> drückt. Es wird dann die Eingabe einer Zeilennummer er¬ 
wartet. Nach <Return> wird die Zeile - sofern vorhanden - ange¬ 
sprungen. 


V3.0-Programm speichern/laden 

Die Codierung der SAVE-Programme in Version V3.0 wurde geändert. 
V2.xx-Programme mit der Extension .BAS lassen sich durch den V3.0- 
Editor nicht mehr laden. Auch wenn es bei größeren Programmen sehr 
umständlich ist, es bleibt nichts anderes übrig, als die .BAS-Pro- 
gramme von der V2.xx-Version mit Save,A als ASCII-Datei abspei¬ 
chern zu lassen und diese anschließend mit Merge in den V3.0-Editor 
zu laden. Mit Save (oder dem SAVE-Befehl) abgespeicherte V3.0-Pro- 
gramme erhalten - sofern keine andere vorgegeben wurde - die Ex¬ 
tension .GFA. 
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Druckersteuerung 

Die Editor-Funktion Llist (<F3>) wurde erweitert. Es ist möglich, in¬ 
nerhalb des Listings verschiedene Formatvorgaben zur Druckerausgabe 
des Programmlistings zu machen. Es handelt sich um sogenannte 
Punkt-Befehle, die wie normale Programmzeilen in das Listing einge¬ 
fügt werden können. Wird am Zeilenanfang ein Punkt ohne sinnvolle 
Druckersteuerung verwendet (z.B.: ...ABC), wird die Zeile vom Inter¬ 
preter ignoriert, x steht im folgenden als Platzhalter für eine Ziffer; 


.11 XX - Maximale Zeilenlänge = xx Zeichen 

.pl XX - Maximale Seitenlange = xx Zeilen 

.ff XXX - Ersatz-ASCII für FF (FormFeed) 


Erwartet der Drucker einen anderen Steuer-Code für Form Feed als 
12, kann der benötigte Wert übergeben werden (Default = .ff 012). 

•he textS - Kopf-(head-)zeilentext in textS 
•fo textS - FuB-(foot-)zeilentext in text* 

In Kopf- und Fußzeilentext können Platzhalter eingefügt werden: 

\xxx - Textzeichen mit dem ASCII xxx 

\d - Aktuelles Datum 

\t - Aktuelle Uhrzeit 

# - Aktuelle Seitennummer 

Sollen die hier verwendeten Sonderzeichen \ und # ebenfalls ausgege¬ 
ben werden, ist ihnen ein Backslash \ voranzustellen (\\ bzw. \#). Der 
vorangestellte Backslash wird dann nicht gedruckt. 

•Ir XX Links freien Rand lassen = xx Zeichen 

.1- Folgende Zeilen nicht mit ausdrucken 

.1+ .1- wieder aufheben. Ab hier wieder drucken 

.nx Zeilenrnjimerierung einschalten 


X Steht hier für einen Wert von 1 bis 9, der die maximale Stellenanzahl 
der Zeilennummern angibt 

.nO .nx wieder aufheben. Zeilennummerierung abschalten 

Tastatur-Kommandos 

Procedure "Verstecken" (Folding) 

==> Cursor auf Prozedurkopfzeile, dann <Help> drücken. 

KopfZeile wird durch > gekennzeichnet. Diese Kennzeichnung bleibt 
auch beim Speichern durch Save oder Save.A im Programm-File er- 
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halten und wird beim Laden durch Load oder Merge erkannt, so daß 
danach wieder nur die Kopfzeile erscheint. Wird zusätzlich zur 
<Help>-Taste die <Control>-Taste gedrückt, so werden alle Prozedu¬ 
ren ab der aktuellen Zeile "zusammengefaltet”. 


Procedure "Listen" (Unfolding) 

“> Cursor auf Prozedurkopfzeile, <Help> drücken oder 

> am Zeilenanfang löschen oder ganze Kopfzeile löschen. 

Wird zusätzlich zur <Help>-Taste die <Control>-Taste gedrückt, so 
werden alle Prozeduren ab der aktuellen Zeile "auseinandergefaltet". 


NumLock-Modus an/aus 

-«> <Contrl> + <->, dann <Contrl> + <(> 

Ist der NumLock-Modus aktiv (erkennbar am ''-Zeichen in der Edi¬ 
tor-Menüleiste), können die folgenden NumLock-Kommandos ohne 
zusätzlichen Druck auf die <Contrl>-Taste ausgelöst werden. 


NumLock-Kommandos 

(Mit den angegebenen Ziffern ist die jeweilige Taste auf dem Zif¬ 
ferntastenblock gemeint!) 


Cursor nach links 
==> <Control> + <4> 


Cursor nach rechts 
■=*> <Control> + <6> 


Cursor eine Zeile aufwärts 
»«> <Control> + <8> 


Cursor eine Zeile abwärts 
»«> <Control> + <2> 


Cursor an Programmanfang 
=«> <Control> + <7> 
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Cursor an Programmende 
==> <Control> + <1> 


Cursor eine Seite rückwärts 
==> <Control> + <9> 


Cursor eine Seite vorwärts 
==> <Control> + <3> 


Leerzeichen ein fügen 
(entspricht <Insert>) 

==> <Control> + <0> 


Cursor-Zeichen löschen (entspricht <Delete>) 
==> <Control> + <•> 


Neue Control-Sequenzen 

Aktuelle Cursor-Zeile löschen (entspricht <Control>+<Delete>) 
==> <Control> + <Y> 


Zeile restaurieren 
==> <ControI> + <U> 

Die zuletzt mit <Control> + <Delete> oder <Control> + <Y> gelöschte 
Zeile wird an der aktuellen Cursor-Position wieder ausgegeben. Diese 
Operation ist auch mehrfach mit derselben Zeile möglich. 


Zeilenrest löschen 
==> <Control> + <P> 


Der Zeilenrest ab der aktuellen Cursor-Position (inkl. Cursor-Position) 
wird gelöscht und in einem internen Puffer gespeichert. 
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Sofern die Zeile sofort nach Löschung ohne weitere Änderungen ver¬ 
lassen wird, bleibt die Zeile im vorherigen Zustand erhalten. Die vor 
der Löschung komplette Zeile wird wieder restauriert, sobald man den 
Cursor wieder in die Zeile zurücksetzt. Vorsicht: wenn Sie nicht in die 
Zeile zurückgehen, ist sie trotzdem noch vollständig im Programm¬ 
speicher und wird dann ggfs, später (evtl, beim Blättern) wieder kom¬ 
plett angezeigt. Soll die Zeile in der nach Löschung sichtbaren Form 
in den Speicher übernommen werden, so muß nach Löschung minde¬ 
stens 1 Leerzeichen am sichtbaren Zeilenende eingegeben werden 
(funktioniert nicht immer?). 


Zeilenrest einfügen 
*=> <Control> + <0> 

Der durch <Control><P> gelöschte Zeilenrest bleibt solange im Puffer 
erhalten, bis ein neuer Teil durch <Control><P> gelöscht wird. 

Diese zuletzt gelöschte Teilzeile kann jederzeit durch <Control><0> an 
der aktuellen Cursor-Position ausgegeben werden (funktioniert nicht 
im Direktmodus). 


Leerzeile einfügen (entspricht <lnsert>) 
««> <Control> + <N> 


Blockoperationen, Blockmenü öffnen (entspricht <F4>) 
“> <Control> + <Q> 


Block-Anfang definieren (entspricht <Shift>+<F5>) 
==> <Control> + <B> 


Block-Ende definieren (entspricht <F5>) 
==> <Control> + <K> 


Cursor eine Seite rückwärts (entspricht <Control>+<Pfeil-hoch>, 
bzw. <Shift> + <F7>) 

==> <Control> + <R> 
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Cursor eine Seite vorwärts (entspricht <Control>+<Pfeil-runter>, 
bzw. <F7>) 

==> <Control> + <C> 


Ausdruck ab Cursor-Position finden (entspricht <F6>) 

==> <Shift> + <Control> + <F> 

Im Anschluß an die String-Eingabe sucht <Control> + <F> den jeweils 
nächsten Ausdruck. 


Ausdruck ab Cursor-Position finden und Ersetzen 
(entspricht <Shift>+<F6>) 

==> <Shift> + <Control> + <E> 

Im Anschluß an die String-Eingabe kann dann durch <Control> + <F> 
die Suche ausgelöst werden. <Control> + <E> ersetzt ggfs, den gefun¬ 
denen Ausdruck durch den Ersatzausdruck. 


Zeilensprung 

==> <Control> + <G> 

öffnet das Feld der Zeilennummern-Anzeige rechts in der Editor- 
Menüzeile. Durch Eingabe einer Zeilennummer mit anschließendem 
<Return> wird - sofern vorhanden - zu der angegebenen Zeile ge¬ 
sprungen. 


Editor-Zeilenmarkierung setzen 

==> <Control> + <1> (Hauptzifferntaste) 

bis <Control> + <6> (Hauptzifferntaste) 

Es können durch <Control> und die <Ziffer>n 1 bis 6 aus der Haupt¬ 
ziffernleiste bis zu sechs - unsichtbare - Marken im Editor auf belie¬ 
bige Programmzeilen (jeweils die aktuelle Cursor-Zeile) gesetzt wer¬ 
den (siehe unten <Alternate>-KZiffer>). 
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Alternate-Sequenzen 
Editor-Zeilenmarkierung anspringen: 

««> <Alternate> + <1> 

bis <Alternate> + <6> 

Es kann die durch die jeweilige Ziffer (aus der Hauptziffernleiste) 
markierte Zeile angesprungen werden, falls die hier angegebene Ziffer 
vorher durch <Control>-KZiffer> (s.o.) schon vergeben worden ist. 


Cursor an Position vor letztem Programm-Start bzw. Direct-Aufruf 
«»> <Alternate> + <7> 


Cursor an erste Position bei Editor-Start 
«»> <Atternate> + <8> 


Cursor an Position vor letztem Such-Start 
“> <Alternate> + <9> 


Cursor an zuletzt geänderte Position 
««> <Alternate> + <0> 


24.6 Prozedur-Liste 


Seit«: 

489 PROCEDURE acceM(ac.titel$,ac.exit$) 

233 PROCEDURE 8string(i.po«X,i.itr$,i.itr$,VAR bk$) 

458 PROCEDURE atsri(Bptrl9(,sptr29S,kptr39(,aptr4%,Bptr5%) 

463 PROCEDURE backup(pr$,exi) 

692 PROCEDURE blinker(b.nKX,bxl%,byo%,bxr%,byu%) 

620 PROCEDURE boundary(nag%) 

238 PROCEDURE cbox(mod%pcpX.yp9(.rd%,wi%) 

297 PROCEDURE cIipfcbd9{,clyo%.cbtr%,cIyu%) 

398 PROCEDURE clip(windownumii)crX) 

297 PROCEDURE clip oft 

353 PROCEDURE ctri(nK>d96pcp%,yp%,rd9(,wi%) 

225 PROCEDURE cut(c.itr$,c.ign$,c.brt%,c.vec%) 

696 PROCEDURE dcolor 

441 PROCEDURE debbie 

97 PROCEDURE degload(p.nin$,p.ad%,c.ad%,p.ra%) 

99 PROCEDURE deg8ave(p.name$,p.adra%) 

356 PROCEDURE drill(d.x%.d.y%,d.{%) 

440 PROCEDURE 

dUtort(xlX,yl%pc2%,y29(pcX,y%,w%,p,(,v%,iii%,f(%,sa,r%) 
724 PROCEDURE dline(idx9e) 
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724 PROCEDURE dload(datnanM$) 

260 PROCEDURE dinouie(mx9{,my96,mxB9S,mya9{,VAR mspl$,iiup2$) 

724 PROCEDURE d(Bvc(datnune$) 

140 PROCEDURE ep«_init 

461 PROCEDURE axUnd(pr$,«x$,p«X) 

S65 PROCEDURE find(f.nf9(,ttrl$,ttr2$,it9e,«n%,r.a<lr_%) 

732 PROCEDURE fline(idx9e) 

732 PROCEDURE fload(datnanne$) 

622 PROCEDURE Fontiat 

454 PROCEDURE form a]crt(iymbol9(,bxt]tt$,button9(,bttxtt,done%) 

731 PROCEDURE bavaTdatnamet) 

110 PROCEDURE gatdir(pfad$,attrX,fnama$) 

610 PROCEDURE fetfill(handle%,fl%,f2%,fSX,f4%,f6%) 

610 PROCEDURE gatline(handleK,ll%,l2%,139(,l49(,15X,16%) 

610 PROCEDURE fatmark(handle%,ml9S,m29(,m39(,m4%) 

620 PROCEDURE cettext(handlc%,tl9(,t2X,t3%,t4%,tS%,1696,17%) 

315 PROCEDURE fplane(ptlr$,fld%) 

463 PROCEDURE haad(h.nc96,h.lxlt) 

283 PROCEDURE hidal 

410 PROCEDURE kaylint(fkey96) 

418 PROCEDURE k«ylUl(nag9() 

410 PROCEDURE kayloadfdalnamat) 

410 PROCEDURE kayiava(dalnamet) 

264 PROCEDURE Ilyp«(handle9(.lnde(9() 

274 PROCEDURE lup«(xp96,yp96.br96.ho96.ax96.iy%,ng96) 

301 PROCEDURE 

iiMnu«(pml9(,ininx9(,inxl9(,myo96,mxr9(,myu9(,f.adr96,v.adr96) 

157 PROCEDURE iniiTor(md9(,gm9(pcl9(,yo9(,xr9(,yu96pc296,y296) 

107 PROCEDURE inalop(m.xex9(,m.yex9(,m.key9() 

603 PROCEDURE palh(p.flg9(,p-alr$,p.agn$,p.adr%,d.adr9(,f.adr96) 

177 PROCEDURE pcod«_v2(p.frm96,p.anE96,p.adr%) 

170 PROCEDURE praad V^p.fnn9(,p.ani9(,p.adr9() 

84 PROCEDURE ptl«p(xp9«,yp9(,lx$,lo9() 

528 PROCEDURE PTEXT (x96.y96.l96,lxl$,Adr96,Md96) 

603 PROCEDURE rahmen 

350 PROCEDURE 

rc_copy(q_ad96,xl9t,yl96,br96,ho96,»_ad96,x296,y296.md96) 

201 PROCEDURE reeofxplr96,yplr96) 

185 PROCEDURE rplc(r.flg9(,poe9(,m.flr$,i.ilr$,r.slr$,r.adr96) 

466 PROCEDURE rub^rbox(xp96,yp96,xmin96.ymin96,xrel96,yrel96) 

183 PROCEDURE icode(d.ila9(,d.ani96,d.var$,d.nam$) 

366 PROCEDURE «creen(flag96) 

210 PROCEDURE icroll(fc xl9S,»c_yo96,ic_xr96,ic_yu96,ec_ab96) 

202 PROCEDURE Mlmou(«i[xpoc96,ypoe%,mbul9() 

643 PROCEDURE ehowboolCbooleekt) 

81 PROCEDURE ahowdalCaelecl) 

283 PROCEDURE ihowl 

306 PROCEDURE aiie(xl9(,yo9(,xr9e,yu96,xd96,yd96,buf96) 

374 PROCEDURE «low(sl.md9() 

353 PROCEDURE ■orl(plr9(,lim9() 

603 PROCEDURE slcxl(i.xl96,i.yt9(,i.xl9(,i.lxl$,e.xo96,a.yo96) 

320 PROCEDURE ■yifonl(fonl9() 

603 PROCEDURE liplexl(lip$) 

264 PROCEDURE lfiie(handle9(,iii«96} 

264 PROCEDURE llypc(handle9(,lyp«%) 

620 PROCEDURE vdi_limer(adreMe9(,pl9() 

270 PROCEDURE v*elcolor(reg96,r9e,g96,b%) 

100 FUNCTION digil$(dig$) 

108 FUNCTION lower*(l.»lr$) 
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24.7 Liste der IKB-KOMMANDOS 


OUT 4,7.MftiutMten*Reaktion einstellen. 

OUT 4,8.Mauskontakt cinschalten. 

OUT 4,9.Absolute Mauskoordinaten liefern. 

OUT 4,10.Maus-Bewegungen als Cursor-Tasten-Druck. 

OUT 4,11.Raster für Mausmeldungen einstellen. 

OUT 4,13.Maus-Skalierung. 

OUT 4,IS.Absolute Mausposition melden. 

OUT 4,14.Koordinatens&hler setsen. 

OUT 4,15.Pixel-Koordinate 0/0 liegt links unten. 

OUT 4,16.Pixel-Koordinate 0/0 liegt links oben. 

OUT 4,17.Kontrolle nach OUT 4,19 einschalten. 

OUT 4,18.Mauskontakt ausschalten. 

OUT 4,19.Tastatur-Kontrolle ausschalten. 

OUT 4,20.Maus-Port 0 als Joystick-Port. 

OUT 4,31.Joystick-Modus und Maus ausschalten. 

OUT 4,23.1 mal Port 0 im Joystick-Modus abfragen. 

OUT 4,33.Joystick-Dauermeldung einschalten. 

OUT 4,34.Firebutton-Dauermeldung einschalten. 

OUT 4,35.Maus-Port 0 in Joystick-Modus schalten. 

OUT 4,36.Joystick-Dauermeldung ausschalten. 

OUT 4,37.Uhrseit setsen. 

OUT 4,38.Uhrseit lesen. 

OUT 4,29.Tastaturspeicher bestimmen und belegen. 

OUT 4,30.Tastaturspeicher lesen. 

OUT 4,31.Programm im Tastaturspeicher starten. 


24.8 Liste der VT52-Escape-Sequenzen 


CHR$f37W"A".Cursor eine Zeile nach oben, ohne scrollen. 

CHRi(37)+"B''.Cursor eine Zeile nach unten, wenn. 

CHR$f27l+''C''.Cursor ein Zeichen nach rechts. 

CHR$(37)+”D''.Cursor ein Zeichen nach links. 

CHR$f37l+''E*'.Clear screen/Cursor auf Home setsen. 

CHR$f37]+"H''.Cursor auf Home setsen. 

CHR|i37l+”I".Cursor eine Zeile hoch + ggfs, scrollen. 

CHR$(37j+”J'*.Bildschirm ab Cursor löschen. 

CHR$f37j+"K”.Zeile ab Cursor löschen. 

CHR$i37)+"L'*.Zeile einfUgen Rest 1 Zeile abwärts. 

CHR$i27)+''M".Cursor-Zeile löschen und Rest nachsiehen. 

CHR$(27)+"Y"+CHR$(X+31)+CHR$(Y+31).Cursor positionieren. 

CHR|(27j+"b"+CHR|(F).Cursor-Farbe F setsen. 

CHR$i27)+'*c''+CHR$(F).Zeichenhintergrundfarbe F setsen. 

CHR$j37W''d".Bildschirm bis Cursor löschen. 

CHR$(271+"e".Cursor anschalten. 

CHR$f27j+"r.Cursor ausschalten. 

CHR$(37)+''j".Position des Cursors speichern. 

CHR$f27W''k''.Cursor auf gespeicherte Position setsen. 

CHR$(37)+"1".Zeile löschen (Rest nicht nachsiehen). 

CHR$f37W''o''.Zeile bis Cursor löschen. 

CHR$(37l+"p''.Revers-Modus ein (weiß auf schwars). 

CHRi(37)+"q".Revers-Modus aus (schwars auf weiß). 

CHR$(37)+-v".Zeilen-Überlauf an. 

CHR$(27)+"w-.Zeilen-Überlauf aus. 
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24.9 Liste der System-Funktionen 
BIOS-Funktionen 

Var=BIOS(O.L:AdreM*).-GETMPB- 

Var=BIOS(l,Device).-BCONSTAT- 

V»r=BIOS(2,Device).-BCONIN- 

V»r=B10S(3,Device).-BCONOUT- 

Var=BIOS(4,Mod,L;Adr Ani.Skt.DUk).-RWABS- 

Var=BIOS(6.Exc_index.L;Adreeee).-SETEXEC- 

V*r=BIOS(6).-TICKCAL- 

Var=BIOS(7,Laufwerk).-GETBPB- 

Var=BIOS(8.Device).-BCOSTAT- 

Var=BIOS(9.Laufwerk).-MEDIACH- 

Var=BIOS(10).-DRVMAP- 

Var=BIOS(ll.Statu8).-KBSHIFT- 


GEMDOS-Funktionen 

Var=GEMDOS(0).-PTERM- 

Var=GEMDOS(l).-CONIN- 

Var=GEMDOS(J,A»cii).-CONOUT- 

Var=GEMDOS(S).-AUXIN- 

Var=GEMDOS(4,A»cii).-AUXOUT- 

VBr=GEMDOS(5,A»cii).-PRNOUT- 

Var=GEMDOS(6.A»cii).-RAWCONIO- 

Var=GEMDOS(7).-RAWCONIN- 

Var=GEMDOS(8).-RAWNECIN- 

Var=GEMDOS(9,L:Adreeee).-CONWS- 

Var=GEMDOS(lO,L;Adreeee).-CONRS- 

Var=GEMDOS(ll).-CONSTAT- 

Var=GEMDOS(l4,Laufwerk).-SETDRV- 

Var=GEMDOS(l6).-CONOUTSTAT- 

Var=GEMDOS(l7).-PRTOIITSTAT- 

Var=GEMDOS(18).-AUXINSTAT- 

Var=GEMDOS(l9).-AUXOUTSTAT- 

Var=GEMDOS(2S).-CURDRV- 

Var=GEMDOS(26,L:Adre8»e).-SETDTA- 

Var=GEMDOS(S2,L:AdreMe).-SUPER- 

Var=GEMDOS(42).-GETDATE- 

Var=GEMDOS(4S,Format). l .-SETDATE- 

Var=GEMDOS(44).-GETTIME- 

Var=GEMDOS(45,Format).-SETTIME- 

Var=GEMDOS(47).-GETDTA- 

Var=GEMDOS(48).-GETVERS- 

Var=GEMDOS(49,L:Byt,Wert).-KEEP PROCESS- 

Var=GEMDOS(54,L:Adr,Laufw).-GETDFREE- 

Var=GEMDOS(57,L:Adreeee).-MKDIR- 

Var=GEMDOS(68,L:Adreeee).-RMDIR- 

Var=GEMDOS(59,L:Adreeee).-CHDIR- 

Var=GEMDOS(60,L:Adreiee,Attribut).-CREATE- 

Var=GEMDOS(6i,L:AdreBee,Modui).-OPEN- 

Var=GEMDOS(62,Kanal).-CLOSE- 

Var=GEMDOS(63.Kanal,L:Llinge,L:Adr).-READ- 

Var=GEMDOS(64,Kanal,L:Llinge,L:Adr).-WRITE- 

Var=GEMDOS(6S,L:Adreeee).-UNLINK- 

Var=GEMDOS(66,L:Bytee,Kanal.Modu»).-LSEEK- 
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Var=GEMDOS(67,L;AdrJ4odu»>ttr).-CHMODE- 

V»r=GEMDOS(69,K»n»l).-DUP- 

Var=GEMDOS(70.Kan»l.St»nd»rd).-FORCE- 

Vu'=GEMDOS(71,L:AdrMM,Laufw«rk).-(ATDIR- 

Var=GEMDOS(72,L:B]rtM).-MALLOC- 

Var=GEMDOS(7S,L:AdrMM).-MFREE- 

Var=GEMDOS(74,0,L;Adr,L:BytM).-SETBLOCK- 

Var=GEMDOS(76>ld,L:N»in.L;Com.L:Env).-PEXEC- 

V«r=GEMDOS(76.W«rt).-PTERM- 

Var=GEMDOS(78,L:Nun_adr Attribut).-SFIRST- 

Var=GEMDOS(79)...-SNEXT- 

V«r=GEMDOS(86,L:Altadr.L;Neu»dr,0).-RENAME- 

Var=GEMDOS(87,L:Adr,Kanal>(odiM) -.GSDTOF- 


XBIOS- Funktionen 

V»r=XBlOS(0,Typ,L:Adrl.L;Adr2).-INITMOUSE- 

Var=XBIOS(l,Bytes).-SSBRK- 

Var=XBIOS(J).-PHYSBASE- 

Var=XBIOS(3).-LOGBASE- 

Var=XBIOS(4).-GETREZ- 

Var=XBIOS(6,L:Log,L:Phyt,Res).-SETSCREEN- 

Vsr=XBIOS(6.L:Adresse).-SETPALETTE- 

V»r=XBIOS(7,Register.Farbwert).-SETCOLOR- 

Var=XBIOS(8,L;Adr,L:0,Disk,... 

...Sekt.Trck.Sid^s).-FLOPRD- 

Var=XBIOS(9,L:Adr,L;O.Ditk.... 

...Sekt.Trck.Sid.Ans) .-FLOPWR- 

Var=XBIOS(10.L:Adr.L:0.Disk>ns.... 

...Trek.Sid.Intrl.L;Mgc.Virg).-FLOPFMT- 

Vsr=XBIOS(ll).Kein Effekt! 

Var=XB10S(lJ.Byt.L:Adr).-MIDIWS- 

Var=XBIOS( lS.Mfp_index.L:Adr).-MFPINT- 

Var=XBIOS(14.Device).-lOREC- 

Vsr=XBIOS(15.Ba.Md.Usr.Rsr.Csr.Scr).-RSCONF- 

Var=XBIOS(l6.L:Nrm.L:Shft.L:Caps).-KEYTABLE- 

Var=XBIOS(17).-RANDOM- 

Var=XBIOS(18.L:Ad.L:O.L:Se.Tp.Fl).-PROTOBT- 

Var=XBIOS(19.L;Adr.L:O.Disk.... 

...Sekt.Trck.Sid.Ans) .-FLOPVER- 

Var=XBIOS(JO).-SCRDMP- 

Var=XBIOS(31Xodus.Frequens).-CURSCONF- 

Var=XBIOS(22.L;Adresse).-SETTIME- 

Var=XBIOS(2S).-GETTIME- 

Var=XBIOS(24).-BIOSKEYS- 

Var=XBIOS(25.Bytes.L:Adresse).-IKBDWS- 

Var=XBIOS(26>4fp_index).-JDISINT- 

Var=XBIOS(27.Mfp_index).-JENABIN- 

Var=XBIOS(28.Byte.Register).-GIACCES- 

Var=XBIOS(29.Vektor).-OFFGIBIT- 

Var=XBIOS(SO.Vektor).-ONGIBIT- 

Var=XBIOS(Sl.Tim.Cntrl.Dat.L;Adr).-XBTIMER- 

Var=XBIOS(S2.L:Adre8se).-DOSOUND- 

Var=XBIOS(S3>lodus).-SETPRT- 

Var=XBIOS(S4 .Modus).-KBDVBASE- 

Var=XBIOS(S6.DeIsy.Repeat).-KBRATE- 

Var=XBIOS(S6.L:Adresse).-PRTBLK- 
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V»r=XBIOS(87).-VSYNC- 

Vu'=XBlOS(S8,L:AdrefM).-SUPEXEC- 

Var=XBIOS(S9).-PUNTAES- 


24.10 Thematische Übersicht 
Ein-/Ausgabe befehie 


Dateneingabe 

FORM INPUT.Formatierte String-Eingabe. 

FORM INPUT AS.Formatierte String-Eingabe m. Vorgabe. 

INKEYt.Einielaeichen von Taetatur holen. 

INPUT.D ateneingabe 

INPUTIO.Zeichenketteneingabe 

LINE INPUT.Zeichenketteneingabe 


Datenausgabe 

PRINT.Daten ausgeben. 

PRINT USING.Daten formatiert ausgeben. 

WRITE.Daten ausgeben. 


Bildschirmoperationen 

HTAB. 

LOCATE. 

POS(). 

SPC(). 

TAB(). 

VTAB. 


Aktuelle Cursor-Spalte bestimmen. 

.Cursor positionieren. 

.Cursor-Spalte ermitteln. 

.Leerseichen ausgeben. 

.Tabulator setsen. 

.. Aktuelle Cursor-Zeile bestimmen. 


Diskettenoperationen 


BLOAD.Datei in Speicherbereich laden. 

BSAVB.Speicherbereich auf Disk speichern. 

CHAIN.Programm Laden (Autostart). 

CHDIR.Ordner wechseln. 

CHDRIVE.Aktuelles Laufwerk bestimmen. 

DFREE().Freien Disketten-Speicherplats ausgeben. 

DIR.Directory ausgeben. 

DIR$().Aktuellen Ordnemamen ermitteln. 

EXIST().Existens einer Datei prüfen. 

FGETDTA{).Disk-Transfer-Adresse ermitteln. 

FILES.Directory (erweitert) ausgeben. 

FSETDTA().Disk-Transfer-Adresse bestimmen. 

FSFIRSTO.Datei suchen. 

FSNEXT().Weitere Datei suchen. 

KILL.Disk-Datei löschen. 

LIST.Programm listen/speichem (ASCII). 

LOAD.Programm in Abeitsspeicher laden. 

MKDIR.Ordner erseugen. 

NAME.Datei umbenennen. 

PS AVE.Programm speichern (listgeschUtst). 
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RENAME.Datei umbenennen. 

HMD IR.Ordner löechen. 

SAVE.Programm apeichem (codiert). 


Dateihandhabung 


BGET. 


BPUT. 


CLOSE. 


EOFO. 


FIELD. 


GET #. 


LOC(). 

.File-Pointer-Poaition. 

LOFi). 


OPEN. 


PUT #. 


RECALL. 

RECORD. 

.Sata-Pointer für GET#/PUT# aetien. 

RELSEEK. 


SEEK. 

.File-Pointer setsen. 

TOUCH. 


STORE. 

.String-Feld in Datei ablegen. 


Port-Ein-/-Ausgabe-Befehle 


INP?.Port auf Empfangibereittchaft tetUn. 

INP.Daten byteweiie von Peripherie lesen. 

INPAUXI.Text'String vom aeriellen Port (RS332) lesen. 

INPMIDI.Text-String vom MID-IN-Port lesen. 

OUT?.Port auf Ausgabebereitschaft testen. 

OUT.Daten byteweise an Peripherie auigeben. 


Druckeranweisungen 


HARDCOPY.Bildachirm auf Drucker auageben. 

LLIST.Programm-Liating auadrucken. 

LPOS().Druckkopfpoaition ermitteln. 

LPRINT.Daten an Drucker auageben. 


Sound-Chip-Anweisungen 


SOUND.Klangauagabe 

WAVE.Sound-Attribute einatellen. 


Programmstruktur 


Schlei fenkonstruktionen 

DO ... LOOP.Endloeachleife 

DO [WHILE Bed] [UNTIL Bed] 

.Doppelt bedingte Schleife (VS.O) 

LOOP [WHILE Bed] [UNTIL Bed] 

FOR ... NEXT.ZKhlachleife 

REPEAT ... UNTIL.Bedingte Schleife. 
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WHILE ... WEND 


Bedingt« Schleife. 


Bedingte Verzweigungen 


EXIT IF.Bedingter Schleifenabbruch. 

IF (ELSE] ENDIF.Bedingungtabfrage 

ELSE IF.Unter-Bedingungtabfrage (VS.O). 


SELECT [CONT] CASE[TO] [DEFAULTjENDSELECT.Fall-Abfrage 


Bereichsdeklarationen 


I.Komment&r innerhalb einer Befehleaeüe. 

DATA.Daten-Speicher deklarieren. 

READ.DATA-Werte aueleeen. 

REM.Kommentar einfügen. 

RESTORE.DATA-Zeiger eetsen. 


Variablendeklarationen 


DEFBIT.».Boole*Variable(n) deklarieren. 

DEFBYT.1-Byte-Integervariablen deklarieren. 

DEFFLT.8-Byte-FlieBkommavariablen deklarieren. 

DEFINT.4-Byte-Integervariablen deklarieren. 

DEFSTR.Zeichenkettenvariable(n) deklarieren. 

DEFWRD.2-Byte-Integerviuiablen deklarieren. 


U nter Programme 

DEFFN. 

FN. 

FUNCTION..RETURN..ENDFUNC 

GOSUB. 

GOTO. 

LOCAL. 

ON ... GOSUB. 

ON BREAK [CONT] [GOSUB]. 

PROCEDURE ...RETURN. 

VAR. 


.Funktion definieren. 

.Funktion aufnifen. 

.Funktion 

.. Veraweigung lu einer PROCEDURE. 
...Unbedingter Sprung lu einem Label. 

.Lokale Variablen deklarieren. 

Bedingte Veraweigung au Proaeduren. 

.Break-Funktion behandeln. 

.Proaedur-Titel 

.Direkte Variablen-Übergabe. 


Assembler-/C-/PRG-Programmaufrufe 


C:().Maachinenprogramm (C-compiliert) aufnifen. 

CALL.Maachinenprogramm (aaaembliert) aufnifen. 

EXEC.PRG/.TOS/.TTP-Programm laden/atarten. 

MONITOR.Maachinen-Programm aufrufen. 

RCALL.Maach.-Programmaufruf m. Regiateraugriff. 
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Textoperationen 


Stringmani pulationen 


MID)()=.Teil-String luweUen. 

LSET.Zeichen (kette) linkebttndig einietien. 

RSET.Zeichen(kette) rechtebUndig eineetien. 


String-Analyse 


INSTR().Zeichen(kette) in einem String euchen. 

LEFTtQ.Linksbündigen Teil-String ermitteln. 

LEN().String-Linge emütteln. 

MID$().Beliebigen Teil-String ermitteln. 

PREDQ.N&chstkleineres ASCII-Zeichen ermitteln. 

RIGHTIII.Rechtsbündigen Teil-String ermitteln. 

RINSTRQ.Zeichen(kette) in String rückwtrts suchen. 

SUCC().NkchstgrüBeres ASCII-Zeichen ermitteln. 


String-Formatierung 


SPACE$().Leerseichen-String bilden. 

STRING$().Mehrfach-Zeichenkette bilden. 

TRIM$().Space-Zeichen eliminieren.- 

UPPER$().Buchstabenumwandlung Klein => GroB. 


Arithmetikbefehle 

Mathematische Operationen 


ADD.Additionsbefehl 

DEC.Dekrementierung 

DIV.Divisionsbefehl 

INC.Inkrementierung 

MUL.Multiplikationsbefehl 

SUB.Subtraktionsbefehl 

ADD().Integer-Additionsfunktion 

DIV().Integer-Divisionsfunktion 

MODO.Integer-Modula-Funktion 

MUL().Integer-Multiplikationsfunktion 

SUB().Integer-Subtraktionsfunktion 


Numerische Funktionen 


ABS().Betrags-Funktion 

EVEN().Zahl auf "gerade" testen. 

EXP().Exponential-Funktion 

FIX().Ganssahl-Funktion 

FRAC().Desimalstellen-Funktion 

INT().Ganssahl-Funktion 

LOG().Logarithmus-Funktion 

ODD().Zahl auf "ungerade" testen. 

PRED().N&chstkleinere Ganssahl ermitteln. 

ROUND().Rundungs-Funktion 
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SGN().Voneichen ermitteln 

SQR().Wursel-Funktion 

SUCC().N&chstffrößere Ganeiahl ermitteln. 

TRUNC().Ganiiahl-Funktion 


Trigonometrische Funktionen 

ACOS().Arcuscosinue-Funktion 

ASINQ.ArcuMinus-Funktion 

ATN().Arcustangene-Funktion 

COS().Cotinue-Funktion 

COSQO.Interp>oUerte Coeinue-Funktion mit Grad-Angabe. 

DEG().Umwandlung in Grad 

PI.Kreisaahl 

RAD().Umwandlung in Radian (Bogenmaß). 

SIN().Sinus-Funktion 

SINQQ.Interpolierte Sinus-Funktion mit Grad-Angabe. 

TAN().Tangens-Funktion 


Vergleichsoperationen 

MAX().Größten Wert/String ermitteln. 

MIN().Kleinsten Wert/String ermitteln. 


Bit-Operationen 

AND().Konjunktions-Funktion 

BCHGQ.Einsel-Bit wechseln (Xor-en). 

BCLR(J.Einsel-Bit löschen. 

BSETQ.Einsel-Bit setsen. 

BTST().Einsel-Bit auf an/aus testen. 

BYTE().Vorseichenloses LO-Byte eines Wertes liefern. 

CARD().Vorseichenloses LO-Word eines Wertes liefern. 

EQVf).Aquivalens-Funktion 

IMP().Implikations-Funktion 

OR().Disjunktions-Funktion 

SHL().Bits links verschieben. 

SHR().Bits logisch rechts verschieben. 

ROL().Bits links rotieren. 

ROR().Bits rechts rotieren. 

SWAP().HI- und LO-Word vertauschen. 

WORD().Wert auf 32 Bit erweitern. 

XOR().eXclusivOR-Funktion. 


Zufallswerterzeugung 

RAND().16-Bit-Integer-Zufallssahl 

RANDOM().32-Bit-lnteger-Zufallssahl 

RANDOMIZE.Zufallssahlengenerator initialisieren. 

RND 0.Desimalstellen - Zufallssahl 










































752 


Das große GFA-BASIC-Buch 


Grafik 

Grafikdefinitionen 


BOUNDARY.P-Grafikumrandung an/aua. 

COLOR.Linienf&rbe bettimmen. 

DEFFILL.Füllmufter bcttimxnen. 

DEFLINE.Linien-Modi bettimxnen. 

DEFMARK.Markierungi-Symbol bestimmen. 

DEFMOUSE.Mausform bestimmen. 

DEFTEXT.Grafik-Text-Modi bestimmen. 

GRAPHMODE.Grafikmodus bestimmen. 

SETCOLOR.Hardware-Farbregister einstellen. 

VSETCOLOR.VDI-Farbregister einstellen. 


Objektgrafikbefehle 


BOX. PBOX. 

CIRCLE. PCIRCLE. 


ELLIPSE. PELLIPSE. 


FILL... 


POLYFILL. 


POLYMARK. 


RBOX, PRBOX. 



TEXT.Text im Grafikmodu* auageban. 


Strich-/Punktgrafik 


DRAW.Punkte aeichnen und verbinden. 

DRAW $.Plotter-(Turtle-)Grafik 

DRAW().Plotter-(Turtle-)Attribute liefern. 

LINE.Linie aeichnen. 

PLOT.Punkt aeichnen. 

POINT().Bildachirmpunkt-Farbwert ermitteln. 

POLYLINE.Polygon aeichnen. 

SETDRAW.DRAW-Turtle poeitionieren. 


Line-A-Grafikbe fehle 


ACHAR.Line-A-Einael-Textaeichen auageben. 

ACLIP.Line-A-Clipbox aetaen. 

ALINE.Line-A-Linie aeichnen. 

APOLY.Line-A-Vieleck aeichnen. 

ARECT.Line-A: GefQlltea Rechteck aeichnen. 

ATEXT.Line-A-GraTiktext auageben. 

HLINE.Line-A: Horiaontale Linie aeichnen. 

PSET.Line-A-Punkt aeichnen. 

PTST.Line-A-Bildachirmpunkt teaten. 


Gra f ikoperationen 


CLIP.Grafikauagabe begrenaen/Nullpunkt aetaen. 

GET.Bildachirmbereich apeichem. 

HIDEM.Mauaaeiger auaachalten. 

PUT.Bildachirmbereich aetaen. 
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RC_COPY.Speicherinteraes R«chtcck-Copy. 

RC_INTERSECT().Überlappung iwaier Rachtack*. 

SGET.Bildtchinn puffern. 

SHOWM.Mauaaaigar anachalten. 

SPRITE.Sprite Htian und Ifiechen. 

SPUT.Bildachirm letien. 

VSYNC.VBL-Synchroniiation. 


Dalenumwandlmg 

ASC(I.Textaeichen => ASCII-Wert. 

BIN$(). .Numerisch => BinKr. 

CFLOAT().Integerwert => FlieBkonunawert. 

CHR$().ASCII => Textleichen. 

CINT().FlieBkonunawert => Integerwert. 

CVI(),CVL{),CVS(),CVF(),CVD().String => Format-Zahl. 

HEIX$().Numerisch => Hexadesimal. 

MKI$()>1KL$(),MKS$(),MKF$(),MKD$().Format-Zahl=>String. 

OCTIQ.Numerisch => Oktal. 

STR$().Numerisch => String. 

VAL().String => Numerisch. 

VAL?().Ansahl wandelbarer Textseichen ermitteln. 


Feld-/Speicher- und Zeigeroperationen 


Feldoperationen 

ARRAYFILL.... 

DELETE. 

DIM. 

DIM?(). 

ERASE. 

INSERT. 

OPTION BASE 

QSORT. 

SSORT. 


.Feld mit Wert belegen. 

.Einselelement aus Feld loschen. 

.Feld(er) dimensionieren. 

Menge der Feldelemente ermitteln. 

.Feld(er) loschen. 

.Einselelement in Feld einfQgen. 

.Feld-Basiselement bestimmen. 

Feld (-Bereich) Quick-Sortierung. 
..Feld (-Bereich) Shell-Sortierung. 


Speicheroperationen 

ABSOLUTE.Variable auf Adresse setsen. 

BITBLT.Speicherbereiche verknüpfen. 

BMOVE.Speicherblock kopieren. 

BYTE{), CARD{}, LONG{}.Speicherinhalt lesen (User-Modus). 

CHARQ.C-Text lesen. 

CHAR{}=.C-Text schreiben. 

DOUBLEO, SINGLE{}.lEEE-Double/Single-Realformat lesen. 

DOUBLEO=. SINGLE{}=.lEEE-Realformat schreiben. 

FLOAT{}.8 Byte in GFA-S.O-BASIC-Realformat lesen. 

FLOAT{}=.8 Byte in GFA-S.O-BASIC-Realformat schreiben. 

INTQ / WORD{}.2 Byte als Vorseichen-Integer lesen. 

INT{)= / WORO{}=.2 Byte Vorseichen-Integer schreiben. 

PEEK, DPEEK, LPEEK.Speicher lesen (Supervisor-Modus). 

POKE,DPOKE,LPOKE.Speicherinhalt lindem(User-Modus). 

SPOKE,SDPOKE,SLPOKE.Supervisorpoke 
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Speicherverwaltung 


INLINE.BASIC-inteme Spcichcrreterviening. 

MALLOC().Syftem-Sp«icher-Rei«rvierung. 

MFREE().MALLOC()-Spcich«r frcigabcn. 

MSHRINKO.MALLOC()-Sp«ich*r •inichrKnkan. 

RESERVE.BASIC-ArbeitHpeichar feitlegan. 


Zeigeroperationen 


* .Variablen-Pointar 

ARRPTR.String-/Feld-Daacriptor-Ad r a m ermittaln. 

VARPTR.Variablen-Adraia« ermitteln. 


Programmkontrolle 

Programmstart und -ende 


CONT.Programm (nach STOP-Befehl) forteetien. 

EDIT.Programm beenden. 

END.Programm beenden. 

QUIT.Programmende (Rückkehr lum Deektop). 

RUN.Progranun etarten. 

STOP.Progranun unterbrechen. 

SYSTEM.Programmende (Interpreter verlaeten). 


Löschfunktionen 

CLEAR.Felder und Variablen löichen. 

CLR.Einseivariablen löschen. 

CLS.Bildschirm löschen. 

NEW.Programmspeicher löschen. 


Zeitoperationen 

DATEI.Syetemdatum ermitteln. 

DELAY.1/1- Sek. - W artefunktion. 

PAUSE.1/60-Sek.-Wartefunktion. 

SETTIME.Uhneit und Datum einstellen. 

TIME!.System-Uhraeit ermitteln. 

TIMER.Laufseit ermitteln. 


Fehlerbehandlung 

ERR. 

ERR$. 

ERROR. 

FATAL. 

ON ERROR [GOSUB] 
RESUME. 


.Fehler-Code ermitteln. 

.Fehlertext liefern. 

.Fehler simulieren. 

.Fehlerart ermitteln. 

.Versweigung bei Fehler. 

Programm nach Error-Routine fortsetsen. 
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Auskünfte 

BAS&PAGE.Aktuelle Basepase-Adresee liefern. 

CRSCOL.Aktuelle Cursor-Spalte liefern. 

CRSLIN.Aktuelle Cursor-Zeile liefern. 

FRE().Freien Speicherplats ermitteln. 

HIMEM.Erstes Byte hinter BASIC-Speicher liefern. 

L'A.Basis-Adresse der Line-A-Variablen liefern. 

TYPE().Variablentyp ermitteln. 

WORK_OUT().Open Workstation-Rückgabe-Array. 


Taslalurkontrolle 

KEYDEF.Funktionatutan belegen. 

KEYGET.Auf TMte warten. 

KEYLOOK.1. Zeichen aui Taataturpuffer leaen. 

KEYPAD.Taatatur-Attribute definieren. 

KEYPRESS.Taatendruck aimulieren. 

KEYTEST.Taatatur abfragen. 


Multitasking 

AFTER X GOSUB.Single-Interruptroutinenaufruf. 

AFTER CONT.Single-Interruptroutine freigeben. 

AFTER STOP.Single-Interruptroutine aperren. 

EVERY X GOSUB.Interrupt-Routinenaufruf. 

EVERY CONT.Interrupt-Routine freigeben. 

EVERY STO.Interrupt-Routine aperren. 


Debugging 

DUMP.Variableninhalte/Namen auageben. 

TRACEt.Im Trace-Modua aktuelle Befehlaaeile liefern. 

TROFF.Trace-Modua auaachalten. 

TRON.Trace-Modua einachalten. 

TRON Proc.Trace-Modua in Proaedur lenken. 


Diverses 

$.Textbsreich für VS.O-Compiler deklarieren. 

DEFLIST.Listing-Format festlegen. 

DEFNUM.Rundung von Ziffem-Ausgaben. 

FALSE.Unwahr-Konstante 

LET.Daten suweisen. 

MODE.Zahlen/Datum -> Europa/USA w&hlen. 

OPTION.Compiler-Steuerung 

TRUE.Wahr-Konstante 

SWAP.Variablen/Felder/Pointer tauschen. 

VOID.Dummy-Zuweisung 


Interaktionen (Programm/Benutzer) 

ALERT.Alert-Box eratellen. 

FILESELECT.Datei auawkhlen. 

MOUSE.Maua-Statua ermitteln (geaamt). 
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MOUSEX, MOUSEY, MOUSEK.Mam-StatuB (einaaln). 

SETMOUSE.Maus simulieren. 

STICK.Maus-Port-Abfragemodus bestimmen. 

STICKQ.Maus-Port im Joystick-Modus abfragen. 

STRIG().Joystick-Fire-Buttons abfragen. 


Window-Programmierung mit BASIC-Befehlen 


CLEARW.Fenster-Inhalt löschen. 

CLOSEW.Fenster schlieBen. 

FULLW.Fenster auf maximale GröBe bringen. 

INFOW.Fenster-Informationsseile bestinunen. 

OPENW.Fenster öffnen. 

TITLEW.Fenster-Titelseile bestimmen. 

TOPW.Fenster aktivieren. 

W_HAND().GEM-Window-Handle emUtteln. 

W_INDEX().GFA-Window-Nummer ermitteln. 

WINDTAB.Fenster-Verwaltungstabelle. 

WINDTAB().Fenster-Verwaltungstabelle als Array. 


Menüprogrammierung mit BASIC-Befehlen 


MENU mentt.MenOpunkt-Attribute bestimmen. 

MENU menOtext$().Pull-Down-MenU erstellen. 

MENU KILL.Menüseile löschen. 

MENU OFF.Menütitel invertieren. 


Ereignisüberwachung mit BASIC-Befehlen 

MENU(Index).Event-Puffer (Menü- und Fensterverwaltung). 

ON MENU.Versweigung sur Ereignisfeststellung. 

ON MENU GOSUB.Procedure-Bestimmung (Menü-Event). 

ON MENU BUTTON GOSUB Procedure-Bestimmung(Mausknopf-Event). 

ON MENU IBOX GOSUB.Procedure-Bestimmung (IBox/Maus-Eventl. 

ON MENU OBOX GOSUB...Procedure-Bestimmung (OBox/Maus-Event). 

ON MENU KEY GOSUB.Procedure-Bestimmung (Tastatur-Event). 

ON MENU MESSAGE GOSUB.Procedure-Bestimmung (Multi-Event). 


GDOS/VDI- Bibliothek 

GDOS?.GDOS resident? 

V-H.Aktuelles VDI-Handle liefern. 

V-H=.Aktuelles VDI-Handle setsen. 

V_CLRWK().Workstation-Puffer löschen. 

V_CLSVWK().Virtual_Workstation schlieBen. 

V_CLSWK().Workstation schlieBen. 

V_OPNVWK().Virtual_Workstation öffnen/Parameter setsen. 

V_OPNWK().Workstation öffnen/Parameter setsen. 

V_UPDWK().Workstation-Puffer ausgeben. 

VQT_EXTENT().GEM-String-AusmaBe berechnen. 

VQT_NAME().GDOS-Font-Name/-Kennung liefern. 

VST_LOAD_FONTS().GDOS-Font laden. 

VST_UNLOAD_FONTS().GDOS-Font löschen. 
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AES-Bibliothek 


Appl ication-Manager 

APPL_EXIT(). 

APPL_FIND(). 

APPL_INIT(). 

APPL_READ(). 

APPL_TPLAY(). 

APPL_TRECORD() 
APPL_WRITE(). 


.GEM-Applikfttion abmelden. 

Applikationi-Identifikator ermitteln. 

.GEM-Applikation anmelden. 

.Auf Ereigniepuffer leeen. 

.Wiedergabe gespeicherter Ereignisse. 

.Ereignisse speichern. 

.In Ereignispuffer schreiben. 


Event-Manager 

EVNT_BUTTON().Auf Msuituten-Ereignis warten. 

EVNT__DCLICK().Doppelklick-Geschwindigkeit einstellen. 

EVNT_KEYBD(].Auf Tastatur-Ereignis warten. 

EVNT_MESAGn.Auf Eventpuffer-Ereignis warten. 

EVNT_MOUSE().Auf Mauspositions-Ereignis warten. 

EVNT_MULTin .Auf Mehrfach-Ereignis warten. 

EVNT_TIMER().Auf Zeit-Ereignis warten. 


Formular-Manager 

FORM_ALERT().Hinweii-Formular (Alert-Box) eraeugen. 

FORM_BUTTON().MauiObcrwachung im Formular. 

FORM_CENTER().Formularkoordinaten lentrieren. 

FORM_DIAL().Formular-Hintergrund puffem/reitaurieren. 

FORM_DO().GEM übernimmt Formular-Verwaltung. 

FORM_ERROR().Hinweii-Formular (TOS-Error) eraeugen. 

FORM_KEYBD().Formular-Texteingabe 


Fileselecl-Manager 

FSEL_INPUT().Fileaelect-Box produiieren. 

GRAPHICS-MANAGER.Grafikeffekte überwachen. 

GRAF_DRAGBOX().Schiebebox produtieren. 

GRAF_GROWBOX().Box-VergröBerungieffekt produtieren. 

GRAF_HANDLE().VDI-Handle u. Zeichenma^ ermitteln. 

GRAF_MKSTATE().Umtchalttaiten-/Maui-Statui ermitteln. 

GRAF MOUSEO.Mautform bettimmen (DEFMOUSE). 

GRAF_MOVEb6x() .Box-Bewegungteffekt produiieren. 

GRAF_RUBBERBOX().Gummiband-Box (Latto) produiieren. 

GRAF_SHRINKBOX().Box-Verkleinerungieffekt produiieren. 

GRAF_SLIDEBOX().Schiebebox innerhalb von Formularen. 

GRAF_WATCHBOX().Objektitatui gemüB Mautpoiition. 


Menü-Manager 

MENU_BAR().Zeichnen/Lötchen einer Menüleiite. 

MENU_ICHECK().Menü-Checkmark leichnen/lötchen. 

MENU_IENABLE().Menüeintr&ge aktivieren/deaktivieren. 

MENU_TEXT().Menü-Text anpatten. 

MENU_TNORMAL().Menü-Titel invert/normal. 

MENU_REGISTER().Accettory in Regitter eintragen. 
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Objekt-Manager 

OBJC_ADD().Objekt in Baum einfQgen. 

OBJC_CHANGE().Objekt-Statiu indem. 

OBJC_DELETE().Objekt deaktivieren. 

OBJC_DRAW().Objekt(e) daretellen. 

OBJCEDITH.Objekt-Texteingabe 

OBJC_PIND().Objektnummer ermitteln. 

OBJC_OFFSET()..Abeolute Objektpoeition ermitteln. 

OBJC_OROER().Objekt neu luordnen. 


Resource-Manager 

RSRC_FREE().Reeource-Speicher freigeben. 

RSRC_GADDR().Reeource-Adreeee ermitteln. 

RSRC_LOAD().Reeource-Datei laden. 

RSRC_OBFIX().Objektkoordinaten umwandeln. 

RSRC_SADDR().Reeource-Adreeee einfügen. 


Scrap-Manager 

SCRP_READ().Globalen GEM-Puffer (ClipboaH) leeen. 

SCRP_WRITE().Globalen GEM-Puffer (Clipboard) echreiben. 


Shell-Manager 

SHEL_ENVRN().DOS-Environment-Adreeee ermitteln. 

SHEL_FIND()...Applikationenamen auf Diek euchen. 

SHEL_GET().Environment-Puffer leeen. 

SHEL_PUT().In Environment-Puffer echreiben. 

SHEL_READ().Applikationenamen und -kommandoceile leeen. 

SHEL_WRITE().Applikation anmelden/etarten. 


Window-Manager 

WIND_CALC().Feneterkoordinaten und -maSe ermitteln. 

WIND_CLOSE().Feneter echlieBen (CLOSEW). 

WIND_CREATE().Feneter definieren/anmelden. 

WIND_DELETE().Feneter löechen/abmelden. 

WIND_FIND().Feneter-Handle ermitteln. 

WIND_GET().Feneter-Attribute ermitteln. 

WIND_OPEN{).Feneter daretellen (OPENW). 

WIND_SET().Feneter-Attribute indem. 

WIND_UPDATE().Feneter-Daretellung kontrollieren. 


ObJektvariablen 

OB_ADR().Objekt-Adreeee 

OB_NEXTn.Nichetee Objekt dereelben Ebene leeen. 

OB_NEIXT()=.Nichetee Objekt dereelben Ebene echreiben. 

0B_HEADQ.Eretee Objekt der Kind-Ebene leeen. 

OB_HEAD()=.Eretee Objekt der Kind-Ebene echreiben. 

OB_TAILQ.Letetee Objekt der Kind-Ebene leeen. 

OB_TAlL()=.Letetee Objekt der Kind-Ebene echreiben. 

OB_TYPE0.Objekt-Typ leeen. 
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OB_TYPE()=.Objekt-Typ »chreiben. 

OB FLAGS||.Objekt-Attribute lesen. 


OB_FLAGS()=.Objekt-Attribute schreiben. 

OB_STATE().Objekt-Ststus lesen. 

OB_STATE()=.Objekt-Ststus schreiben. 

OB SPECQ.Adresse der Unter-Struktur lesen. 

()=.Adresse der Unter-Struktur schreiben. 

.Relative Objekt-X-Koordinate lesen. 

.Relative Objekt-X-Koordinate schreiben. 

.Relative Objekt-Y-Koordinate lesen. 

.Relative Objekt-Y-Koordinate schreiben. 


OB 

OB 

OB 

OB 

OB 

OB 

OB 

OB 

OB 


_SPEC 

EJfe-: 

cSH; 

cSl!; 







GEM- Adressen/-Felder 


ADDRIN.AES-AdreB-Input-Block 

ADDRINO.Aus AES-ADDRIN-Block als Array lesen. 

AODRIN()=.In AES-ADDRIN-Block als Array schreiben. 

ADDROUT.AES-AdreB-Output-Block 

ADDROUTI).Aus AES-ADDROUT-Block als Array lesen. 

ADDROUT()=.In AES-ADDROUT-Block als Array schreiben. 

CONTRL.VDI-Kontroll-Block 

CONTRLO.Aus VDI-CONTRL-Block als Array lesen. 

CONTRL0=.ln VDI-CONTRL-Block als Array schreiben. 

GB.Startadresse des Array-Zeigerblocks. 

GCONTRL.AES-Kontroll-Biock 

GCONTRLf).Aus AES-CONTRL-Block aU Array lesen. 

GCONTRL()=.In AES-CONTRL-Block als Array schreiben. 

GINTIN.AES-Integer-Input-Block 

GINTINf).Aus AES-INTIN-Block als Array lesen. 

GINTIN()=.ln AES-INTIN-Block als Array schreiben. 

GINTOUT.AES-Integer-Output-Block 

GINTOUTf).Aus AES-INTOUT-Block als Array lesen. 

GINTOUT()=.In AES-INTOUT-Block als Array schreiben. 

INTIN.VDI-Integer-Input-Block 

INTlNf).Aus VDI-INTIN-Block als Array lesen. 

INTIN()=.In VDI-INTIN-Block als Array schreiben. 

INTOUT.VDI-Integer-Output-Block 

INTOUTf).Aus VDI-INTOUT-Block als Array lesen. 

INTOUT()=.In VDI-INTOUT-Block als Array schreiben. 

PTSIN.VDI-Punkt-Input-Block 

PTSINf).Aus VDI-PTSIN-Block als Array lesen. 

PTSIN()=.In VDI-PTSIN-Block als Array schreiben. 

PTSOUT.VDI-Punkt-Output-Block 

PTSOUTO.Aus VDI-PTSOUT-Block als Array lesen. 

PTSOUTÖ=.In VDI-PTSOUT-Block als Array schreiben. 

VDIBASE.VDI-Verwaltungs-Block 


Systemaufrufe 

BIOS().BIOS-Routinen aufrufen. 

OEMDOS().GEMDOS-Routinen aufrufen. 

GEMSYS.AES-Routinen aufrufen. 

VDISYS.VDI-Routinen aufrufen. 

XBIOS().XBIOS-Routinen aufrufen. 
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24.12 GFA-BASIC-Fehlerliste 


Editor-Fehlermeldungen 

CASE OHNE SELECT 

DO OHNE LOOP 

ELSE OHNE IF 

ELSE OHNE ENDIF 

ENDFUNC OHNE FUNCTION 

ENDIF OHNE IF 

EXIT OHNE SCHLEIFE 

FOR OHNE NEXT 

FUNCTION DOPPELT DEFINIERT 

FUNCTION IN SCHLEIFE 

FUNCTION OHNE ENDFUNC 

GOTO IN/AUS FOR-NEXT ODER PROCEDURE 

IF OHNE ENDIF 

KEIN RESUME IN FUNCTION 

LOCAL NICHT IN SCHLEIFE 

LOCAL NUR IN PROCEDURE 

LOOP OHNE DO 

MARKE DOPPELT DEFINIERT 

NEXT OHNE FOR 

PROCEDURE OHNE RETURN 

PROCEDURE IN SCHLEIFE 

PROCEDURE DOPPELT DEFINIERT 

REPEAT OHNE UNTIL 

RESUME IN FOR-NEXT-SCHLEIFE 

RESUME OHNE PROCEDURE 

RETURN OHNE PROCEDURE 

SELECT OHNE ENDSELECT 

SYNTAX FEHLER 

WEND OHNE WHILE 

WHILE OHNE WEND 

ZEILE ZU LANG 


-> Nur in V3.0 


-> Nur in VS.O 


-> Nur in VS.O 
-> Nur in VS.O 


-> Nur in VS.O 


-> Nur in VS.O 


BASIC-Fehlermeldungen 

ERR: TEXT (siehe ERRS): 

0 DIVISION DURCH NULL 

1 ÜBERLAUF 

2 ZAHL NICHT INTEGER|-2U748364S .. 2U7483648 

3 ZAHL NICHT BYTEjO .. 255 

4 ZAHL NICHT WORT 0 .. 65535 -> V2.xx 

ZAHL NICHT WORTj-32768 .. 32767 -> V3.0 

5 QUADRATWURZEL NUR FÜRjPOSITIVE ZAHLEN 

6 LOGARITHMEN NUR FÜR|ZAHLEN > 0 

7 UNBEKANNTER FEHLER 

8 SPEICHER VOLL 

9 FUNKTION ODER BEFEHL|N0CH NICHT MÖGLICH 

10 STRING ZU LANG. MAX. 32767 ZEICHEN 

11 KEIN GFA-BASIC Vx.xx PROGRAMM 

12 PROGRAMM ZU LANG|SPEICHER V0LL|NEW 

13 KEIN GFA-BASIC-PR0GRAMM|E0F - NEU 

14 FELO ZWEIMAL DIMENSIONIERT 
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15 FELD NICHT DIMENSIONIERT 

16 FELDINDEX ZU GROS 

17 DIM ZU GROS 

18 FALSCHE ANZAHL INDIZES 

19 PROCEDURE NICHT GEFUNDEN 

20 LABEL NICHT GEFUNDEN 

21 BEI OF>EN NUR ERLAUBT | 

"I"NPUT "OUTPUT "R''AND0M|"A"PPEND "U"PDATE 

22 FILE SCHON GEÖFFNET 

23 FILE « FALSCH 

24 FILE NICHT GEÖFFNET 

25 FALSCHE EINGABE, KEINE ZAHL 

26 FILEENDE ERREICHTjEOF 

27 ZUVIEL PUNKTE FÜR|P0LYLINE/P0LYFILL|HAXIHAL 128 

28 FELD HUB EINDIMENSIONAL SEIN 

29 ANZAHL PUNKTE GRÖBER ALS FELD 

30 MERGE - KEIN ASCII-FILE 

31 MERGE - ZEILE ZU LANG - ABBRUCH 

32 »> SYNTAX NICHT KORREKT|PROGRAHMABBRUCH 

33 MARKE NICHT DEFINIERT 

34 ZU UENIG DATA 

35 DATA NICHT NUMERISCH 

36 SYNTAXFEHLER IN DATA|"" PAARWEISE VERWENDEN -> Nur V2.XX 

37 DISKETTE VOLL 

38 BEFEHL IM DIREKTHOOUS{NICHT MÖGLICH 

39 PROGRAMMFEHLERI KEIN GOSUB MÖGLICH 

40 CLEAR NICHT MÖGLICH IN|F0R-NEXT-SCHLEIFEN 



ODER{PROZEDUREN 




41 

CONT NICHT MÖGLICH 




42 

ZU WENIG PARAMETER 




43 

AUSDRUCK ZU KOMPLEX 




U 

FUNKTION NICHT DEFINIERT 




45 

ZU VIELE PARAMETER 




46 

PARAMETER FALSCH{KEINE ZAHL 




47 

PARAMETER FALSCH{KEIN STRING 




48 

OPEN "R" - SATZLXNGE FALSCH 




49 

ZU VIELE «R^-FILES (MAX. 10) 


- 

> V2.) 


ZU VIELE "Rx-FILES (MAX. 31} 



-> V3 

50 

KEIN "Rx-FILE 




51 

NUR EIN FIELD ZU EINEM OPEN xRx hÖGLICH 


> Nur V2.J 

52 

FIELDS GRÖBER ALS SATZLANGE 




53 

ZU VIELE FIELDS (MAX. 9) 

- nur in V2.xx - 




54 

GET/PUT FIELD-STRING{LANGE FALSCH 




55 

GET/PUT SATZNUMMER FALSCH 




60 

sprite-string-lAnge falsch 




61 

FEHLER BEI RESERVE 




62 

MENU FALSCH 




63 

RESERVE FALSCH 




64 

POINTER FALSCH 




65 

FELDGRÖSSE < 256 

-> 

Nur 

in V3 

66 

KEIN VAR-ARRAY 

-> 

Nur 

in V3 

67 

ASIN/ACOS FALSCH 

-> 

Nur 

in V3 

68 

FALSCHE VAR-TYPE 

-> 

Nur 

in V3 

69 

ENDFUNC OHNE RETURN 

-> 

Nur 

in V3 

71 

INDEX ZU GROSS 

-> 

Nur 

in V3 

90 

FEHLER BEI LOCAL 




91 

FEHLER BEI FOR 




92 

RESUME (NEXT) NICHT MÖGLICH {FATAL, FOR 

ODER LOCAL 



^ ^ S S S $ 
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93 STAPEL-FEHLER -> Nur in V3.0 

100 GFA-BASIC VERSION x.xx| 

COPYRIGHT 1986-1988| 

GFA SYSTENTECHNIK GMBH 


TOS- Fehlermeldungen 


ERR; 

-1 

* 

TEXT (siehe ERRS): 

ALLGEMEINER FEHLER 

-2 


DRIVE NOT READYjZEITÜBERSCHREITUNG 

-3 


UNBEKANNTER BEFEHL 

-4 


CRC FEHLER|DISK-PRÜFSUMME FALSCH 

-5 


BAD REQUEST 1UNGÜLTIGER BEFEHL 

-6 


SEEK ERROR 1SPUR NICHT GEFUNDEN 

-7 


UNKNOUN HEDIA|BOOTSEKTOR FALSCH 

-8 


SEKTOR NICHT GEFUNDEN 

-9 


KEIN PAPIER 

-10 


SCHREIBFEHLER 

-11 


LESEFEHLER 

-12 


ALLGEMEINER FEHLER 12 

-13 


DISKETTE SCHREIBGESCHÜTZT 

-14 


DISKETTE WURDE GEWECHSELT 

-15 


UNBEKANNTES GERAT 

-16 


BAD SEKTOR (VERIFY) 

-17 


ANDERE DISKETTE EINLEGEN 

-32 


UNGÜLTIGE FUNKTIONSNUMMER 

-33 


DATEI NICHT GEFUNDEN 

-34 


PFADNAME NICHT GEFUNDEN 

-35 


ZUVIELE DATEIEN OFFEN 

-36 


ZUGRIFF NICHT MÖGLICH 

-37 


UNGÜLTIGES HANDLE 

-39 


SPEICHER VOLL 

-40 


UNGÜLTIGE SPEICHERBLOCKADRESSE 

-46 


UNGÜLTIGE LAUFWERKSBEZEICHNUNG 

-49 


KEINE WEITEREN DATEN 

-64 


GEHDOS BEREICHSFEHLER|SEEK FALSCH? 

-65 


INTERNER GEMDOS-FEHLER 

-66 


KEIN BINARPROGRAHM 

-67 


SPEICHERBLOCKFEHLER 


Bomben-Fehlermeldungen 


ERR : 

TEXT (siehe ERRS): 

102 

2 

BOMBEN - BUS ERROR|PEEK/POKE FALSCH? 

103 

3 

BOMBEN - AORESS ERROR|UNGERADE 
WORTADRESSE 1|DPOKE/DPEEK, LPOKE/LPEEK? 

104 

4 

BOMBEN - ILLEGAL INSTRUCTION| 
UNGÜLTIGER MASCHINENBEFEHL 

105 

5 

BOMBEN - DIVIDE BY CEROj68000 

DIVISION DURCH NULL 

106 

6 

BOMBEN - CHK-EXEPTION|68000 

CHK-BEFEHL 

107 

7 

BOMBEN - TRAPV-EXEPTI0N|68000 
TRAPV-BEFEHL 

108 

8 

BOMBEN - PRIVILEGE VIOLATION|68000 
PRIVILEGVERLETZUNG 
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109 9 BOMBEN - TRACE-EXEPTION|68000 

TRAGE OHNE MONITOR 


24.13 Syntax-Liste 


Ein-/Ausgabe befehle 


Dateneingabe 

FORM INPUT Aiu.Vart 
FORM INPUT Ani AS Vart 
ZMch«n$=INKEY$ 

INPUT [■Tmcf;,] Varl (.VarJ,...) 
INPUT #Kanal,Varl [,Var2,...] 
A$=INPUTt(Ani) 
A$=INPUTt(Ani,#Kanal) 

LINE INPUT [■Text"|.l Varl [VarJl,...] 
LINE INPUT #Kanal, Varl [Var2l,...] 


Datenausgabe 

PRINT [AT(S.Z)l(.’rText"[[;,-]Var[:,’lExpr...;l 
PRINT i#Kanal,[;jl •Taxf (i;,'lVarl:.’]Expr...:l 
PRINT USING "formaf,Expr |,Var,...](;] 

PRINT USING FormatI.Expr [.Var....]!;) 

PRINT #Kanal,USING "formar.Expr (.Var,...)!;) 
WRITE i#Kanal,] ("Taxt" [.Var.Expr;...]] 


Bildschirmoperationen 
HTAB Spalta 
LOCATE S.Z 
Var=POS(Duminy) 

PRINT SPC(Ani) 

PRINT [Auadracke;Wertc;atc.;] SPC(Ani) [;atc.] 
TAB(Poaition) 

PRINT [AuadrückaiWerteictc.;] TAB(Ani) [;ctc.] 
VTAB Zaile 


Diskettenoperationen 

BLOAO 'Datainama* [.Start] 
BSAVE *Datainan>a*,StartrAini 
CHAIN "Programmnaina* 
CHDIR ■Ordner* 

CHDRIVE Laufwerk 
CHDRIVE Pfadl 
Var=DFREE(Station) 

DIR rPfad") (TO "Datei"] 
Varl=DIRI(Laurwark) 
Var=EXIST(Datainama) 
Var=FGETDTA() 
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FILES ("Pfad") (TO "Datei”) 
Var=FSETDTA(Adreaae) 
Var=FSFIRST(Pfad$^ttribute) 
Var=FSNEXT() 

KILL "Dateiname" 

LIST ("Dateiname*] 

LOAD "Programmname" 

MKDIR "Ordner* 

NAME "Name_alt" AS "Name_neu" 
PSA VE "Programmname" 

RENAME "Name_alt" AS "Name_neu" 
RMDIR "Ordner" 

SAVE "Programmname" 


Dateihandhabung 

BGET (#]Kanal,Start>nt 
BPUT (#]Kanal,Start,Ani 
CLOSE (#Kanal] 

Var=EOF(#Kanal) 

FIELD #Kanal,Ani AS Varl$ (,Ani AS Var2$,...] 
FIELD #Kanal,Ani AT(Adrl) (,Ani AS Varl,...] 
GET #Kanal (,Satinummer] 

Var=LOC(#Kanal) 

Var=LOF(#Kanal) 

OPEN "Modul",#Kanal,"Dateiname" (,SatiIltnge] 
PUT #Kanal (,Satinummer] 

RECALL #Kanal,Feldt(),Ani,Zeilenvar 

RECORD [#) Kanal,Satinummer 

RELSEEK #Kanal,(-] Offiet 

SEEK #Kanal,(-] Offiet 

TOUCH #Kanal 

STORE #Kanal,Feldt() (,Ani] 


Port-Ein-/-Ausgabe-Befehle 

Var=INP?(Port) 

Var=INP(Port) 

Var=INP(#Kanal) 

Var$=INPAUXI 

Var$=INPMID« 

Var=OUT7(Port) 

OUT #Kanal,Bytewert 
OUT Port,Bytewert 
OUT #Kanal,Bytel (,Byte2 (,ByteS,...]] 
OUT Port,Bytel (,Byte2 (,ByteS,...]] 


Druckeranweisungen 

HARDCOPY 

LLIST 

Var=LPOS(Dummy) 

LPRINT (,’] "Text" [(;,•] Varl (;,’] Expr...] 
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Sound-Chip-Anweisungen 

SOUND Kanal,Volume,Note,Oktave,Dauer 
SOUND Kanal,Volume,#Peno<le,Dauer 
WAVE Kanal,Hüll,Form,Länge,Dauer 


Programm-Struktur 

Schlei fenkonstruktionen 

DO 

... ausauführende Programmteile 
LOOP 

DO [WHILE Bedingung] [UNTIL Bedingung] 

... ausauführende Programmteile, wenn DO-Bedingung 
... wahr ist, bsw. solange LOOP-Bedingung 
wahr ist. 

LOOP (WHILE Bedingung] [UNTIL Bedingung] 

FOR Zaehl^Start TO [DOWNTO] Ende [STEP Schritt] 
... ausauführende Programmteile 
NEXT Zaehl 

REPEAT 

... ausauführende Programmteile 
UNTIL Bedingung 

WHILE Bedingung 

... ausauführende Programmteile... 

WEND 


Bedingte Verzweigungen 

EXIT IF Bedingung 

IF Bedingung [THBN] 

... BUMuführende Programmteile, 
wenn Bedingung wahr iit 
[ELSE 

... BuiBufUhrende Programmteile, 
wenn Bedingung unwahr ist ] 

ENDIF 

IF Bedingungl [THEN] 

... auasufUhrende Programmteile, 
wann Bedingungl wahr iit 
[ELSE IF Bedingung] 

... auiiufUhrende Programmteile, wenn Bedingungl 
unwahr und Bedingung] wahr iit.] 

[ELSE IF Bedingung] 

... auiiufOhrende Programmteile, wenn alle 
vorherigen Bedingungen unwahr waren, 
jedoch Bedingung] wahr iit.) 

... ggfi. weitere ELSE IF-Abfragen 
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[ELSE 

... auiiufOhrcnd« Programmteile, wenn alle 
vorherigen Bedingungen unwahr waren.] 

ENDIF 

SELECT Expr 

CASE Konatantel [TO Konitantel [,[...] TO [...]]] 

... auiiufOhrende Programmteile, wenn Expr gleich 
Konitantil, biw. - bei Option TO - wenn Expr 
innerhalb du Bereiche von Konitantel bii 
Konatantel liegt. 

[CONT] 

[CASE Konitantel [,Konitantel [,KonitanteS [,...]]] 

... auiiufOhrende Programmteile, wenn ’Expr’ gleich 
Konitantel oder gleich KonitanteJ oder 
gleich KonitanteS oder ... oder ...] 

... ggfi. W6it€r« CASE~Entsch«idunfen 
[CONT] 

[DEFAULT 

... aussufUhnnd« Programmteile, wenn keine der 
vorhergehenden Abfragen lugetroffen hat.) 

ENDSELECT 


Bereichsdeklarationen 

Befehlaieile t Kommentartext 

DATA [Wertedataa [,[*] Textdataa [*],...]] 

READ Var [,Var],Vart,Var2$,...] 

REM [Konunentar] 

RESTORE [Labelname] 


Variablendeklarationen 
DEFBIT Defitringt 
DEFBYT Debtringt 
DEFFLT Defitring« 
DEFINT Defitringt 
DEFSTR DefitringS 
DEFWRD Defitringt 


Unterprogramme 

DEFFN Funkt.name [(Var-Liite)]=Funlit.expr 
FN Funktioniname [(Parameterliite)] 

FUNCTION Name [(Varl,VarJ%,VarSt,...[,VAR Var,...])] 
... auiiufOhrende Programmteile 
RETURN Back 
ENDFUNC 

G08UB Proiedur [(Parameterliite)] 

GOTO Label 

LOCAL Loc.var [,Lokale Variablenliite,...] 

ON Wert GOSUB Procl [,Proc2,ProcS,...] 

ON Wert Procl [,Procl,ProcS,...] 

ON BREAK GOSUB Proiedur 
ON BREAK 
ON BREAK CONT 
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PROCEDURE Name [(Variablenliate)] 

... ausiuführende Programmteile 
RETURN 

PROCEDURE Name([Varl,...l VAR Vamamel [.VarnameZl,...]) 
FUNCTION Name([Varl,...l VAR Varnamel I.VarnameJi,...]) 


Assembler-/C-/PRG-Programmaufrufe 

Var=C:Adreuvar [(Parameterliate)] 

CALL Adreaavar [(Parameterliate)] 

EXEC Modua,’Prg",’Kom',"Env’ 
Var=EXEC(Modua,"Prg","Kom","Env’) 
MONITOR [(Parameter)] 

RCALL Adreaae,Feld%() 


Textoperationen 


String-Manipulationen 

MIDt(Zielt,Start [^i])='Text' 
LSET Ziel$=’Text" 

RSET Ziel|="Text" 


String-Analyse 

Var=INSTR(Ziel$,Sucht [.Start] ) 
Var=INSTR([Start,j Zielt,Sucht) 
Vart=LEFTt(Zielt [,Ana]) 
Var=LEN(Vart) 

Vart=MIDt(Zielt,Start [.Ana]) 
Vart=PRED(Exprt) 
Vart=RIGHTt(Zielt [.Ana]) 
Var=RINSTR(Zielt,Sucht [.Start] ) 
Var=RINSTR([Start,] Zielt.Sucht) 
Vart=SUCC(Exprt) 


String-Formatierung 

Vart=SPACEt(Ana) 

Vart=STRINGt(Ana,"Text") 

Vart=STRINGt(Ana.Aacii) 

Vart=TRIMt(Zielt) 

Vart=UPPERt(Zielt) 


Arithmetikbefehle 


Mathematische Operationen 
ADD Var.Wert 
DEC Var 
DIV Var.Wert 
INC Var 
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MUL Var.Wert 

SUB Var,Wert 

Var=ADD(Wertl,Wert2) 

Var=DIV(Wartl,WertJ) 

Var=MOD(Wertl,Wert2) 

Var=MUL(Wartl,Wert2) 

Var=SUB(Wartl,W«rt2) 


Numerische Funktionen 

Var=ABS(Arg) 

Var=EVEN(Arg) 

Var=EXP(Arg) 

Var=FIX(Arg) 

Var=FRAC(Arg) 

Var=INT(Arg) 

Var=LOG[10](Arg) 

Var=ODD(Arg) 

Var=PRED(Arg) 

Var=ROUND(Arg [.Stelle] ) 

Var=SGN(Arg) 

Var=SQR(Arg) 

Var=SUCC(Arg) 

Var=TRUNC(Arg) 


Trigonometrische Funktionen 

Var=ACOS(Arg) 

Var=ASIN(Arg) 

Var=ATN(Arg) 

Var=COS(Arg) 

Var=COSQ(Grad) 

Var=DEG(Radian) 

PI 

Var=RAD(Grad) 

Var=SIN(Arg) 

Var=SINQ(Grad) 

Var=TAN(Arg) 


Vergleichsoperationen 

Var:=MAX(Exprl,Expr2 [.ExprS,...]) 
Var$=MAX(Exprl«,Expr2t [,Expr3$,...)) 
Var=MIN(Eixprl,Expr2 [,ExprS,...]) 
Var$=MIN(Exprl$,Expr2$ [.ExprSl,...]) 


Bit-Operationen 

Var=AND(Wertl,Wert2) 

Var=BCHG(Wert.Bit) 

Var=BCLR( Wert .Bit) 

Var=BSET(Wert.Bit) 

Var=BTST(Wert,Bit) 

Var=BYTE(Wert) 

Var=CARD(Wert) 

Var=EqV(Wertl,Wert2) 
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Var=IMP(W*rtl,Wert2) 

VBr=OR(Wertl,Wert2) 

Var=SHL(Wert,Bit») 

Var=SHL&(Wert,BiU) 

Var=SHL|(W«rt,Biti) 

Var^SHR(W*rt,BiU) 

Var=SHRic(W«rt,Bita) 

Var=SHR|(Wcrt,Bita) 

Var=ROL(Wert.Bitt) 

Vu'=ROUc(W«rt,Biti) 

Var=:ROL|(Wcrt,Bits) 

Var=ROR(Wert,Biti) 

Var=ROR&(Wert,Biti) 

Var=ROR|(Wert,Bit() 

V*r=SWAP(W*rt) 

Var=WORD(W*rt) 

Var=XOR(Wertl,W«rt2) 


Zufallswerlerzeugung 
Vu'=RAND(n) 
Vkr=RANDOM(n) 
RANDOMIZE ((Start)] 
V»r=RND [(Arg)l 


Grafik 


Grafikdefinitionen 

BOUNDARY Fla* 

COLOR Färb« 

DEFFILL [Färb«],[Stil],[Mutter] 

DEFFILL [Farb«]>(uit«r$ 

DEFLINE [Stil] ,[Dick«] ,[Fonn.a] ,(Fonn.«] 
DEFMARK [Farb«],[Typ],[GrttB«] 

DEFMOUSE Form 
DEFMOUSE Maust 

DEFTEXT [Farb«],[Art],[Wink«l],[GröB«],[Fac«] 
GRAPHMODE Modus 
SETCOLOR R«(,Rot,GrUn,Blau 
SETCOLOR R«g,Mischw«rt 
VSETCOLOR R«g,Rot,GrOn,Blau 
VSETCOLOR R«g>tischw«rt 


Objektgrafikbe fehle 

P]BOX X_links,Y_ob«n,X_r«chts,Y_unt«n 
pjciRCLE X_c«nt,Y_c«nt,Radius [rAlpha,B«ta] 
PJELLIPSE Xc«nt,Yc«nt,Xrad,Yrad [,Alpha,B«ta] 
FILL Xpo«,Ypos 
FILL Xpo«,Ypo« [,Farb«] 

POLYFILL Pkt«,Xp(),Yp() [OFFSET Xdiff,YdiH] 
POLYMARK Pkt«,Xp(),Yp() [OFFSET Xdifr,Ydifl] 
[P]RBOX X_Unk«,Y_ob«n,X_r«chts,Y_unt«n 
TEXT Xt,Yt [,[-]Ling«],rText* 
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Strich-/Punktgraf ik 

DRAW TO Xpo«,Ypoi 

DRAW XI,Y1 (TO XJ.YJ [TO XS.YS...]] 

DRAW D*f$[,Coiut[,*Dcr[,Var[,...]]]] 
V«r=DRAW(Index) 

LINE X1,Y1,X2,X2 
PLOT Xpof.Ypo« 

V»r=POINT(Xpo«.Ypo«) 

POLYLINE Pkt«,Xp(),Yp() [OFFSET Xdiff.Ydiff] 
SETDRAW Xpof.Ypof.Grad 


Line-A-Grafikbe fehle 

ACHAR A<cii,Xpot,Ypot,FontrArt,Winkel 
ACLIP Fl»f^_li.Y_ob,X_re.Y_un 
ALINE Xl,Yl,X2,Y2,Farbe>(uke><odu« 

APOLY P_»dr,P_»ni,Ymin TO Ymax,Farbe,Modui,M_adr,M_Bni 
ARECT Xl,Yl,X2,Y2,F»rbe>«odui,M_»dr><_an» 

ATEXT Xpoe,Ypoc,Font,Text$ 

HLINE Xl,Y,X2,Farbe,Modui,M_adr>4_ani 
PSET Xpoe,Ypoe,F«rbe 
Var=PTST(Xpoe,Ypoe) 


Grafikoperationen 

CLIP Xpoe,Ypoc,Breite,Höhe [OFFSET X,Y] 

CLIP Xl,Yo TO Xr,Yu [OFFSET X,Yl 
CLIP #Windownununer [OFFSET X,Yl 
CLIP OFFSET X,Y 
CLIP OFF 

GET X_linki,Y_oben,X_rechte,Y_unten,Var$ 

HIDEM 

PUT X_linki,Y_oben,V»r$ [>lodue| 

RC_COPY queU,Xq,Yq,Breite,H»he TO ZieI,Xs,Yi [Modul] 
V»r=RC_INTERSECT(XpI, Ypl ,Brl ,Höl ,Xp2 ,Yp2 ,Br2,Hö2) 
SG ET Varl 
SHOWM 

SPRITE Def.vart [,Xpoa,Ypoi] 

SPUT Varl 
VSYNC 


Datenumwandlung 

Var=ASC(*Z«ichen') 
Varl=BINI(Expr) 
Varl=BINI(Expr [,Stellen]) 
Var=CrLOAT(Wert) 
Varl=CHRI(Wirt) 
Var=CINT(Wert) 
Var=CVI(’2 Zeichen’) 
Var=CVL(’4 Zeichen’) 
Var=CVS(’4 Zeichen’) 
Var=CVr{’« Zeichen’) 
Var=CVD^8 Zeichen’) 
Varl=HEXI(Expr) 
Varl=HEXI(Expr [,SteUen]) 
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Var$=MKI$(16-Bit-Integer-Wert) 

Var$=MKL$(S3-Bit-Intcger-Wert) 

Vart=MKSt(Atkri-BASIC-Realwert) 

Vkr$=MKF$(V2.xx-GFA-BASIC-Rcalwert) 

Vu’$=MKDt(VS.O-GFA-BASIC-R«alwert) 

V*rl=OCT$fExpr) 

Vart=OCT$(Expr [.Stellen]) 
V»r»=STR$(Wert) 

Var$=STR$(Wert [.Stellen [.Real]]) 
V»r=VAL(Varl) 

V»r=VAl,7(Varl) 


Feld-, Speicher- und Zeigeroperationen 


Feldoperationen 

ARRAYFILL Feld().Var 
DBLETE Feld(Index) 

DELETE Feldtrindex) 

DIM Arrl(Indl [.Ind2....]) [.AiT2(Indl [.Ind2....])...) 
Var=DIM?(Feld()) 

ERASE Feld() 

ERASE FeldlO [,Feld2() [....]] 

INSERT Feld(Index)=Wert 
INSERT Feld$(Index)=Text 
OPTION BASE Bull 
qSORT Feld([Sign)) [.Ani [.Feld2%()]) 

QSORT Feld$([Sign]) [ WITH Vorgabe()] [.Ani [.Feld2X()l) 
SSORT Feld([Sign]) [.Ani [.Feld2%()]] 

SSORT Feldt([Sign]) [ WITH Vorgabe()] [.Am [.Feld2%()]| 


Speicheroperationen 

ABSOLUTE Var .Adrette 
BITBLT Q_ratterÄ().Z_ratter96().R_def%() 
BITBLT BlockadretteX 
BITBLT Parameterfeld%() 

BMOVE queIle.Ziel.Ani 
BYTE{Adreiie}=Wert 
CARD{gerade Adrette}=Wert 
LONG{gerade Adretie}=Wert 
Var=BYTE{Adretie} 

Var=CARO{gerade Adrette} 
Var=LONG{gerade Adrette} 

CHAR { Adrette }=Exprt 
Var$=CHAR{Adreiie} 
Realvar=DOUBLE{gerade Adrette} 
Realvar=SINGLE{gerade Adrette} 
DOUBLE{gerade Adrette}=Wert 
SINGLE{gerade Adrette}=Wert 
Realvar=FLOAT{gerade Adrette} 
FLOAT{gerade Adraete}=Wert 
Intvar=INT{Adrette} 

Intvar=WORO {Adrette} 
INT{Adratte}=Wert 
WORD {Adraete}=Wert 
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Var=PEEK(Adr«w«) 
Vu’=DPEEK((eradc Adre*««) 
Var=LPEEK(gerad« Adreu«) 
POKE AdrMM,Byte 
DPOKE g*r«d« AdrMM,Word 
LPOKE gtnuie AdretM,Long 
SPOKE AdrMu.Bytc 
SDPOKE gerade Adreeee.Word 
SLPOKE gerade Adreeee,Long 


Speicherverwaltung 

INLINE AdreeeeX,Bytee 

Back=MALLOC(Ani) 

Back=MFREE(Adreeee) 

Back=MSHRINK(AdreeeeAni) 

RESERVE Ant 

RESERVE [[-lAne] 


Zeigeroperationen 
V»r=*Var 
V»r=*Feld() 
V»r=ARRPTR(V»r$) 
Var=ARRPTR(Feld()) 
' Var=VARPTR(Var) 


Programmkontrolle 


Programmstart und -ende 
CONT 
EDIT 
END 
QUIT 
QUIT [x] 

RUN 

RUN ’Programnmame* 
STOP 
SYSTEM 
SYSTEM [xl 


Löschfunktionen 

CLEAR 

CLR Var [.VarÄ.Varl....] 
CLS [#Kanal) 

NEW 


Zeitoperationen 
Var$=DATE$ 
DATEt^’natum-String* 
DELAY Sekunden 
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PAUSE Dauer 
SETTIME Zaitt.Datuint 
Var$=TIME$ 
TIMEt=’Zeit-String* 
Var=TIMER 


Fehlerbehandlung 

Var=ERR 

Var$=ERRt(Index) 

ERROR Fahlamummer 
Var=rATAL 

ON ERROR GOSUB Proiedur 
ON ERROR 
RESUME 
RESUME NEXT 
RESUME Label 


Auskünfte 

Var=BASEPAGE 

Var=CRSCOL 

Var=CRSLIN 

Var=FRE(Dununy) 

Var=FRE{) 

Var=HIMEM 

Var=L-A 

Var=TYPE(Pointer) 

Var=WORK_OUT(Index) 


Tastaturkonlrolle 

KEYDEF Taate.Text 
KEYGET Var 
KEYLOOK Var 
KEYPAD Vektor 
KEYPRESS Code 
KEYTEST Var 


Multitasking 

AFTER Tick* [GOSUB] Proiedur 
AFTER CONT 
AFTER STOP 

EVERY Tick* [GOSUB] Proeedur 
EVERY CONT 
EVERY STOP 


Debugging 

DUMP [Def*tring$ ] [TO Datei«] 
Var«=TRACE« 

TROFF 

TRON [#Kanal] 

TRON Proiedumame 
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Diverses 

$ Text 

DEFLIST Format 

DEFNUM Stelle 

Var=FALSE 

LET Var=Wert 

LET Var$=Text 

MODE Modul 

OPTION "Anweiiunj" 

Var=TRUE 

SWAP Varl.VarJ 

SWAP Element(x),Element(y) 

SWAP Feldl(),Feld3() 

SWAP *Pointer,Feld() 

VOID Funktion 


Interaktionen (Programm/Benutzer) 

ALERT,Icon9(,B_<>xtext$,Def_ButtonX,Buttontext$,Backvar% 

FILESELECT ’Pfad’.'Auiwahl'.BackvarS 

MOUSE Xpoe,Ypoe,Taiten 

Var=MOUSEX 

Var=MOUSEY 

Var=MOUSEK 

SETMOUSE Xpoi.Ypoe [.Button] 

STICK(Modui) 

Var=STICK(Maui-Port) 

Var=STRIG (Maui- Port) 


Window-Programmierung mit BASIC-Befehlen 
CLEARW Nummer 
CLEARW [#]Nummer 
CLOSEW Nummer 
CLOSEW |#]Nummer 
FULLW Nummer 
INFOW Nummer,"Text" 

INFOW [#lNummer,"Text" 

OPENW Nummer [,Xcenter,Ycenter] 

OPENW #Nummer,Xpoa,Ypos,Breite,Höhe,Attribute 
TITLEW Nummer,"Text" 

TITLEW [#]Nummer.'Text" 

TOPW #Nummer 
Var=W_HAND(Nummer) 

Var=W_INDEX(Handle) 

Var=DPEEK(WINDTAB) 

DPOKE WINDTAB.Wert 
Var=WINDTAB(Nummer .Index) 

WINDTAB (Nummer.Index)=Wert 


Menüprogrammierung mit BASIC-Befehlen 

MENU Menüpunkt,Attribut 
MENU ArraylO 
MENU KILL 
MENU OFF 
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Ereignisüberwachung mit BASIC-Befehlen 

Var=MENU(Index) 

ON MENU 
ON MENU [Zeit] 

ON MENU GOSUB Proeedurname 

ON MENU BUTTON Ani,Tute,Statue GOSUB Proeedumame 
ON MENU IBOX Id,X,Y,B,H GOSUB Proeedumame 
ON MENU OBOX Id,X,Y,B,H GOSUB Proeedumame 
ON MENU KEY GOSUB Proeedumame 
ON MENU MESSAGE GOSUB Proeedumame 


GDOS/VDI-Bibliothek 

Var=GDOS? 

Var=V-H 

V-H=Handle 

Var=V_CLRVWKO 

Var=V_CLSVWK() 

Var=V_CLSWK() 

Var=V_OPNVWK(Treiber_Id [,Linientyp,Linienfarbe,... 
...Markertyp,Markerfarbe,Textatil,... 
...TextfarlM,FUIUtil,Füllmuater,... 
...FQIIfarbe.Koordinatenflag] ) 
Var=V_OPNWK(Treiber_Id [.Linientyp.Linienfarbe,... 
...Markertyp,Markerfarbe,Textatil,... 
...Textfarbe,FUlletil,FQUmueter,... 
...Füllfarbe.Koordinatenflag) ) 

Var=V_UPDWK() 

Var=VQT_EXTENT(Text» [,Xlo,Ylo,Xro.Yro,Xru,Yru,Xlu,Ylu] ) 
Face=VQT_NAME(Index,Namel) 

Var=VST_LOAD_FONTS(0) 

Var=VST_UNLOAD_FONTS(0) 


AES-Bibliothek 


Application-Manager 
Back=APPL_EXIT() 
Back=APPL_FIND(Programmname) 
Back=APPL_INIT() 

Back=APPL_READ(Handle,Llinge,Adreeu) 
Back=APPL_TPLAY(AdreaM,Aneahl,Tempo) 
Back=APPL_TRECORD(Adreeu,Aneahl) 
Back=APPL_WRITE(Handle,Llinge,AdreeM) 


Event-Manager 

Back=EVNT_BUTTON(Klicke.Tute,Statue... 

...[,«Mauex,«Mauey,«Mauek,«Switch]) 

Back=EVNT_DCLICK(DkIickXodue) 

Back=EVNT_KEYBD() 

Back=EVNT_MESAO (Adreeu) 
Back=EVNT_MOUSE(Flag,Xpoa,Ypoa,Breite,Höhe... 
...[,< <Mauex,«Mauay,«Mauak,<<Switch|) 
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Baek=EVNT_MULTI(Modu»,Klick»,TMt*.St stu«,Bnagl,... 
.. .Xposl ,Ypo«l ,Höh€ 1 ,... 

.. .Xpoa3, Ypo«3 ,Breite2 ,Höhe2 J\.dreMe,... 

...Zeit (,«Mau8x,«Mausyf«Mausk,... 
...«Switch,«Bklicks]) 
Back=EVNT_TIMER(Zeit) 


Formular- Manager 

Back=FORM_ALERT(Button.Text$) 
Back=FORM_BUTTON(AdreMe,Objekt,Klickt,«N_objc) 
B«ck=FORM_CENTER(Adreite,«Xpot,«Ypot,«Breite,«Höhe) 
Back=FORM_DIAL(Modui,Litx,Lity,Litb,Lith,Bigx,Bigy,Bigb,Bigh) 
Back=FORM_DO(Adreue,Objektl) 

Back=FORM_ERROR(Code) 

Back-FORM_KEYBD (Adrewe,Objekt 1 ,Objekt2 ,Chut,... 
...«N_objc,«N_char$) 


Fileselect-Manager 

Back=FSEL_INPUT(«Pfad$»,«DBtei$»,«Button) 

G RAPHICS-MANAGER 

BBck=GRAF_DRAGBOX(Litb,Lith,Xtta,Ytta,Xpoi,Ypot,... 

...Breite,Höhe,<<Lattx,«Latty) 

Back=GRAF_GROWBOX(Litx,Lity,Litb,Lith,Bigx,Bigy,Bigb,Bigh) 

Back=GRAF_HANDLE(«Ch_breite,<<Ch_höhe,<<Bx_breite,<<Bx_höhe) 

Back=GRAF_MKSTATE(<<Mautx,<<Mauty,<<Mautk,<<Switch) 

Back=GRAF_MOUSE(Maut,AdreMe) 

Back=GRAF_MOVEBOX(Breite,HShe,Xtta,Ytta,Xeiel,Y(ieI) 

Back=GRAF_RUBBERBOX(Xpot,Ypot,Bmin,Hmin,<<Laatb,<<Latth) 

Back=GRAF_SHRINKBOX(Litx,Lity,Litb,Lith,Bigx,Bigy,Bigb,Bigh) 

Back=GRAF_SLIDEBOX(AdreMe,Rahmen,Slider,Flag) 

Back=GRAF_WATCHBOX(AdreMe,Objekt,Stat_i,Stat_o) 


Menü-Manager 

Back=MENU_BAR(Adrette,ModuB) 

Back=MENU_ICHECK(Adrette,Objekt>(odut) 

Back=MENU_IENABLE(Adreue,Objekt,Modui) 

Back=MENU_TEXT(Adreue,Objekt,Text$) 

Back=MENU_TNORMAL(Adreue,Objekt>loduB) 

Back=MENU_REGISTER(Handle,Text$) 


Objekt-Manager 

Back=OBJC_ADD(Adrewc,Elter,Kind) 

Back=OBJC_CHANGE(Adreue,Objekt,Dummy,Xpot,Ypot,... 

...Breite,Höhe,Statut,Modut) 

Back=OBJC_DELETE(Adreue,Objekt) 

Back=OBJC_DRAW(Adreue,Ebenel,Kinder,Xpot,Ypot,Breite,Höhe) 
Back=OBJC_EDIT(Adrettc,Objekt,Chart,Zpoa,Modus,«N_pot) 
Back=OB JC_FIND (Adrette,Objekt 1,Ebenen ,Xpot,Y pot) 
Back=OBJC_OFFSET(Adrette,Objekt,«Xpot,«Ypot) 
Back=OBJC_ORDER(Adrette,Objekt,Ebene) 
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Resource-Manager 

BKk=RSRC_FREE() 

BKk=RSRC_GAODR(Typ,Objekt,«AdruM) 
BKk=RSRC_LOAD (Rec_nune$) 
Bmck=RSRC_OBFIX(Adreeae,Objekt) 
B>ck=RSRC_SADDR(Typ,Objekt,Zei(er) 


Scrap-Manager 

B»ck=SCRP_READ(«Puffer*») 

B*ek=SCRP_WRlTE(Text$) 


Shell-Manager 

Buk=SHEL_ENVRN(«Adreeee,Strin(() 

B»ck=SHEL_FIND(«Pf»d$») 

Back=SHEL_GET(AnsaLhl,«Pufrer$) 

Bmck=SHEL_PUT(Ai»ehl,Envrn$) 

B>ck=SHEL_REAO(«Nune$,«Coinnit) 

Back=SHEL_WRITE(Modui,Grafik,Geini1ef,Comm$,Name$) 


Window-Manager 

Bsck:=WIND_CALC(Modu«,Attribut,Iiix,Iny,Inb,Inh,... 

...«Outx,«Outy,«Outb,«Outh) 

B8ck=WIND_CL0SE(Handle) 

B»ck=WIND_CREATE(Attribut>*ax_xl>l»x_yo>*»x_br,Max_ho) 

B»ck=WIND_DELETE(Handle) 

B*ck=WIND_FIND(Xpoe,Ypoe) 

Beck=WIND_GET(H«ndle,Modiu,«Getl,«Get3,«GetS,«Get4) 

Beck=WIND_OPEN(Hendle,Xpoe,Ypoe,Breite,H0he) 

Beck=WIND_SET(Handle,Modu(,Setl,Set3,SetS,Set4) 

B»ck=WIND_UPDATE(Modiii) 


Objektvariablen 

OB_ADR(Adreue,Objekt)=Wert 

Wert =OB_ADR( Adresse,Objekt) 

Wert=OB_NEXT(Adresse,Objekt) 

OB_NEXT(Adresse,Objekt)=Wert 

Wert=OB_HEAD(Adresse,Objekt) 

OB_HEAD(Adresse,Objekt)=Wert 

Wert=OB TAlL(Adresse,Objekt) 

OB_TAIL^dresse,Objekt)=Wert 

Wert=OB_TYPE(Adresse,Objekt) 

OB_TYPE(Adresse,Objekt)=Wert 

Wert=OB_FLAGS(Adresse,Objekt) 

OB_FLAGS(Adresse,Objekt)=Wert 

Wert=OB_STATE(Adresse,Objekt) 

OB_STATE(Adresse,Objekt)=Wert 

Wert=OB SPEC(Adresse,Objekt) 

OB_SPEC(Adresse,Objekt)=Wert 

Wert=OB_X(Adresse,Objekt) 

OB_X(Adresse,Objekt)=Wert 

Wert=OB_Y(Adresse,Objekt) 
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OB_Y(Adr«ae,Objekt)=Wert 
Wart=OB_W(AdrMM,Objekt) 

OB_W (AdrMM,Objekt)=Wert 

Wert=OB_H(Adreeie,Objekt) 
OB_H(Adreeee,Objekt)=Wert 


GEM-Adressen/-Felder 

VarX=LPEEK(ADDRIN-t-OflMt) 

LPOKE ADDRIN+OffMt,4-Byte-Adreeee 
VkrX=ADDIUN(Index) 
ADDRIN(Index)=4-Byte-Adreeee 
Var%=LPEEK(ADDROUT+Offtet) 

LPOKE ADDROUT-fOfreet,4-Byte-Adrciee 
V»r«=ADDROUT(Index) 
ADDROUT(Index)=4-Byte-Adreeee 
V«r=DPEEK(CONTRL-fOf{set) 

DPOKE CONTRL+Offeet.J-Byte-Wert 
V>r4c=CONTRL(Index) 
CONTRL(Index)=S-Byte-Wert 
VarX=LPEEK(GB+Ofbet) 

LPOKE GB'4-OfrHt,4-Byte-Adreeee 
Var=DPEEK(GCONTRL-fOfbet) 

DPOKE GCONTRL+Off»et,J-Byte-Wert 
Ver&=GCONTRL(Index) 
GCONTRL(Index)=3-Byte-Wert 
Var=DPEEK(GINTIN-f Offset) 

DPOKE GINTIN+Oftset.I-Byte-Wert 
V»r&=GINTIN(Index) 

G INTIN(Index)=3- Byte- Wert 
Var=DPEEK(GINTOUT+Ofrset) 

DPOKE GINTOUT+Offset,J-Byte-Wert 
Var4i=GINTOUT(Index) 
GINTOUT(Index)=J-Byte-Wert 
V»r=DPEEK(INTIN+Offset) 

DPOKE INTIN+Offset.J-Byte-Wert 
Ver&=INTIN(Index) 
INTIN(Index)=3-Byte-Wert 
V»r=DPEEK(INTOUT+Offiet) 

DPOKE INTOUT+Offiet,2-Byte-Wert 
V»r*=INTOUT(Index) 

INTOUT(Index)=J-Byte- Wert 
Vsr=DPEEK(PTSIN+Offiet) 

DPOKE PTSIN+Offset.J-Byte-Wert 
Var&=PTSIN(Index) 
PTSIN(Index)=3-Byte- Wert 
V»r=DPEEK(PTSOUT+Ofriet) 

DPOKE PTSOUT+Ofrtet,3-Byte-Wert 
Vart=PTSOUT(Index) 
PTSOUT(Index)=3-Byte-Wert 
V»r=VDIBASE 


Systemaufrufe 

VBr=BIOS(Opcode [.Parameterliste]) 
Ver=OEMDOS(Opcode |,Parameterliste]) 
GEMSYS (Kl Opcode [)]] 
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VDISYS [((] Opcode [)]] 

VDISYS [((] Opcode [,I_len.P_len[,Idl][)ll 
Var=XBIOS(Opcode [gParameterliite]) 


24.14 Alphabetische Befehlsliste 


Typ 

(o) 

(d) 

(d) 

(d) 

(0 

(b) 

(b) 

(b) 

(0 

(b) 

(0 

(») 

(v) 

(b) 

(») 

(v) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(o) 

(0 

(b) 

(0 

(0 

(0 

(0 


(e) Adresae 

Befehl 

(d) Declaration 

i e) Einstellung 

f) Funktion 

(o) Operator 

(v) Variable 

Name 

+ -*/^< = ==> MOD div 

! . 

. 

* 

ABS(). 

ABSOLUTE. 

ACHAR. 

ACLIP.. 

ACOS(). 

ADD. 

ADD(). 

ADDRIN. 

ADDRINQ. 

ADDRIN()=. 

ADDROUT. 

ADDROUTQ. 

ADDROUT()=. 

AFTER X GOSUB. 

AFTER CONT. 

AFTER STOP. 

ALERT. 

ALINE. 

AND. 

AND(). 

APOLY. 

APPL_EXIT(). 

APPL_FIND(). 

APPL_INIT(). 

APPL_READ(). 


Abkürzung Seite 

. 229 

. 176 

.VS.O. 446 

. 389 

. 232 

.V3.0 { Ab }. 354 

.V3.0 { Ac ). 286 

.V3.0 { Acl }. 287 

.V8.0. 236 

.{ Ad }. 230 

.V3.0. 231 

. 697 

.V3.0. 597 

,V3.0 { Ad )= }. 697 

. 697 

.V3.0. 697 

.V3.0 { Addro )= 697 

.V3.0 { Af }. 426 

.V3.0 { Af Cent }. 427 

.V3.0 { Af Stop }. 427 

.{ A ). 463 

.V3.0 { Ali }. 288 

. 229 

.V3.0. 241 

.V3.0 { Ap }. 288 

.V3.0. 648 

.V3.0. 648 

.V3.0. 649 

.V3.0. 649 
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781 


(0 

(0 

(0 

(b) 

(b) 

(0 

(0 

(0 

(b) 

(f) 


APPL_TPLAY().V3.0. 

APPL_TRECORD().V3.0. 

APPL_WRITE().V3.0. 

ARECT.V3.0 { Ar } 

ARRAYFILL.{ Arr }. 

ARRPTRO. 

ASC(). 

ASIN().V3.0. 

ATEXT.V3.0 { At } 

ATN(). 


54S 

630 

661 

289 
341 
391 
329 
236 

290 
236 


(») 

(0 

(0 

(b) 

(0 

(0 

(b) 

(b) 

(b) 

(•) 

(b) 

(b) 

(b) 

(0 

(0 

(0 

(b) 

(0 


BASEPAGE 

BCHG. 

BCLR. 

BGET#. 

BINtO - tiX 

BIOS(). 

BITBLT. 


BLOAD . 

BMOVE. 

BOUNDARY 
BOX. 

BPUT#. 

BSAVE. 

BSET. 

BTST. 

BYTE{}. 

BYTE{}= .... 
BYTE(). 


.. 409 

,V3.0. 242 

V3.0. 243 

{B«} . 121 

.. 330 

. 606 

,{ Bit ). 368 

.{ Bi ->V3.0}. 368 

.{ Bl }. 97 

.{ Bm }. 362 

{ B ->V3.0}. 362 

.V3.0 { Bou }. 261 

.{ B }. 271 

{ Bo ->V3.0}. 271 

{Bp# }. 121 

,{ B( }. 98 

.V3.0. 243 

.V3.0. 244 

.V3.0. 373 

.V3.0 { By }= }. 373 

.V3.0. 244 


(0 

(b) 

(0 

(b) 

(0 

(0 

(b) 

(0 

(b) 


C:(). 

CALL. 

CARD 

CARD{}=, 

CARD(). 

CFLOATO 
CHAIN. 

CHAR{}... 

CHAR{}= 


. 208 

{ C» }. 209 

{ Cal ->V3.0}. 209 

V8.0. 373 

,V3.0 { Car }= }. 373 

.V3.0. 244 

.V3.0. 334 

.{ Ch ). 99 

{ Chai ->V3.0}. 99 

.V3.0. 376 

.V3.0 { Ch }= }. 376 












































































782 


Das große GFA-BASIC-Buch 


(b) 

(b) 

(0 

m 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(•) 

(b) 

(•) 

(v) 

(v) 

(0 

(0 

(0 

(0 

(0 


CHDIR. 

CHDRIVE. 

CHR$(). 

CINT(). 

CIRCLE. 

CLEAR. 

CLEARW. 

CLIP. 

CLOSE#. 

CLOSEW. 

CLR. 

CLS. 

COLOR. 

CONT. 

CONTRL. 

CONTRLO. 

CONTRL()=. 

COS(). 

COSQO. 

CRSCOL. 

CRSLIN. 

CVI()-CVL()-CVS()-CVF()-CVD() 


{ Chd 
{ Chdr } 


VS.O. 

(C). 

{ Ci ->VS.O} 

{Cie} . 

{ Cie W }. 

VS.O { Cli } .. 

{ CI# }. 

{ CI W }. 


{Co}. 

{ c ->vs.o} 

{ Con }. 


VS.O 

VS.O 


102 

102 

SS4 

SS6 

276 

276 

S97 

471 

296 

122 

471 

S97 

S97 

262 

262 

S9S 

698 

698 

698 

256 

257 
410 
410 
SS6 


(d) 

(v) 

(b) 

(b) 

(•) 

(•) 

(•) 

(•) 

(b) 

(•) 

(•) 

(b) 

(•) 

(b) 

(b) 

(•) 

(•) 


DATA. 

DATEI. 

DATEI=. 

DEC. 

DEFBIT. 

DEFBYT. 

DEFFILL. 

DEFFLT. 

DEFFN. 

DEFINT. 

DEFLINE.... 

DEFLIST. 

DEFMARK.. 

DEFMOUSE 

DEFNlBd.... 

DEFSNG . 

DEFSTR. 


{D} 


VS.O { Date } 


VS.O { Defbi } 
VS.O { Defb }. 

{D«ff}. 

VS.O { Dem } 


VS.O { Defi }. 

{De} . 

,{ Deflie }. 

. { Defm }. 

{ Defma ->VS.0} 

.{ Defmo }. 

{ Defm ->VS.0} . 

.{ Defn }. 

.VS.O { Defan }.... 
.VS.O { Deft }. 


176 

S98 

S98 

2SO 

189 

191 

264 

191 

192 
191 

267 
447 

268 
268 
269 
269 
447 

191 

192 
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(•) 

(•) 

(0 

(b) 

(b) 

(0 

(d) 

(0 

(b) 

(v) 

(b) 

(0 

(b) 

(b) 

(b) 

(b) 

(0 

(b) 

(») 

(b) 

(b) 

(b) 

(0 

(b) 


DEFTEXT. 

DEFWRD. 

DEG(). 

DELAY. 

DELETE. 

DFREEQ. 

DIM. 

DIMTQ. 

DIR. 

DIR$. 

DIV. 

DIV(). 

DO - LOOP. 

DO -ENDDO. 

DO UNTIL-LOOP UNTIL.. 
DO WHILE-LOOP WHILE. 

DOUBLEO. 

DOUBLE{}=. 

DPEEK(). 

DPOKE. 

DRAW - TO. 

DRAW $. 

DRAW(). 

DUMP. 


.{ D«ft }. 262 

,VS.O { Defw }. 192 

,VS.O. 2S7 

VS.O { Dela }. 398 

VS.O { Del }. 341 

. 103 

.{ Di ->V2.x}. 342 

. 347 

. 103 

. 104 

.{Di->V3.0}. 230 

.V3.0. 232 

.{ Do-L }. 166 

.V3.0 { Do-Endd } .... 166 
.V3.0 { Do U-L U }... 166 
.V3.0 { Do W-L W ). 166 

.V3.0. 377 

.V3.0 { Do }= }. 377 

. 379 

.{ Dp }. 380 

.{ Dr-To }. 279 

.V3.0 { Dr }. 281 

.V8.0. 282 

.V3.0 { Du ). 430 


(b) 

(b) 

(b) 

(b) 

(0 

(o) 

(0 

(b) 

(v) 

(0 

(b) 

(0 

(b) 

(b) 

(b) 

(0 

(0 


EDIT. 

ELLIPSE. 

ELSE IF. 

END. 

EOF#. 

EQV. 

EQV(). 

ERASE. 

ERR. 

ERR$(). 

ERROR. 

EVEN(). 

EVERYxGOSUB.. 

EVERY CONT. 

EVERY STOP. 

EVNT_BUTTON() 

EVNT_DCLICK()., 


{Ed}. 

{ Eil }. 

{ E IF ->V3.0} 


VS.O. 

{ Er }. 

{ Ers ->V3.0} 


VS.O. 

{Err} . 

{ Er ->VS.0} 


VS.O { Ev }. 

VS.O { Ev Cont } 
VS.O { Ev Stop } 

V3.0. 

VS.O. 


393 

276 

160 

393 

122 

229 

246 

348 

348 

406 

406 

406 

406 

233 

428 

429 
429 
661 
562 
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Das große GFA-BASIC-Buch 


(0 

(0 

(0 

(0 

(0 

(b) 

(0 

(0 

(b) 

(0 


EVNT_KEYBD() 

EVNT_MESAG() 

EVNT_MOUSE() 

EVNT_MULTI(). 

EVNT_TIMER(). 

EXEC. 

EXEC(). 

EXISTO. 

EXIT IF. 

EXPO. 


,VS.O. 

,VS.O. 

,VS.O. 

VS.O. 

,VS.O. 

{ Ex« ) 


{E}. 

{ Ex ->VS.O} 


SSI 

SSI 

SSS 

sss 

SS4 

111 

111 

104 

1S9 

1S9 

ISS 


(v) 

(v) 

(0 

(b) 

(b) 

(b) 

(b) 

(b) 

(0 

(0 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 


FALSE. 

FATAL. 

FGETDTAO. 

FIELD - AS. 

FIELD - AT. 

FILES. 

FILESELECT. 

FILL. 

EIX{). 

FLOAT{}. 

FLOAT{}=. 

FN. 

FOR - NEXT. 

FOR - ENDFOR. 

FORM INPUT. 

FORM INPUT - AS 

FORM_ALERT().... 
FORM_BUTTON(). 
FORM_CENTER(). 

FORM_DIAL(). 

FORM_DO(). 

FORM_ERROR()... 
FORM_KEYBD()... 

FRAC(). 

FRE(). 

FSEL_INPUT(). 

FSETDTAO. 

FSFIRSTO. 

FSNEXTO. 


. 448 

. 406 

.VS.O. lOS 

.{ Fi-A» }. ns 

•VS.O {Fi-At}. ns 

.{ Fil« ->VI.x}. 106 

.{ Fil««« ). 4S0 

{ Fil« ->VS.O}. 4S9 

.{ Fi ). 176 

. ISS 

VS.O. S78 

VS.O { Fl }= }. S78 

{ @ }. IM 

,{ F-N }. 166 

VS.O { F-Endfo }. 166 

,{ F minput }. 69 

{ F ->VS.O}. 69 

.{ F minput-A« ). 70 

{FA* ->VS.O). 70 

.VS.O. 664 

.VS.O. 666 

.VS.O. 666 

VS.O. 666 

.VS.O. 666 

VS.O. 667 

.VS.O. 667 

. ISS 

. 411 

VS.O. 667 

.VS.O. 107 

.VS.O. 108 

.VS.O. 108 
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(b) 

(b) 


FULLW. 

FUNCTION - ENDFUNC 


{ Ful w }. 472 

{ Ful ->VS.O}. 472 

,VS.O { Fu-Endf }. 197 


(•) 

(») 

(v) 

(b) 

(0 

(0 

(b) 

(b) 

(b) 

(•) 

(v) 

(b) 

(*) 

(V) 

(b) 

(b) 

(b) 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(f) 

(0 

(•) 


GB. 

GCONTRL. 

GCONTRLO. 

GCONTRL()=. 

GDOS7. 

GEMDOSO. 

GEMSYS. 

GET. 

GET#. 

GINTIN. 

GINTINO. 

GINT1N{)=. 

GINTOUT. 

GINTOUTO. 

GINTOUT()=. 

GOSUB. 

GOTO label. 

GRAF_DRAGBOX(). 

GRAF_GROWBOX().... 

GRAF_HANDLE(). 

GRAF_MKSTATE(). 

GRAF_MOUSE().. 

GRAF_MOVEBOX(). 

GRAF_RUBBERBOX() 
GRAF_SHRINKBOX(). 
GRAF_SLIDEBOX().... 
GRAF_WATCHBOX(). 
GRAPHMODE. 


.VS.O. 

,VS.O { Gc )= } 
.VS.O. 


(Ge) 


VS.O. 

VS.O { Gi )= } 


VS.O. 

,VS.O { Ginto )= } 

.{ Go / @ }. 

{ G / @ ->VS.O}. 

.{Got) . 

■VS.O. 

■VS.O. 

.VS.O. 

•VS.O. 

.VS.O. 

.VS.O. 

.VS.O. 

.VS.O. 

.VS.O. 

.VS.O. 

.{G }. 

{ Gr ->VS.O}. 


698 

699 
699 
699 
602 
608 
617 
298 
124 
699 
699 
699 
600 
600 
600 
200 
200 
202 
668 
669 
660 
660 
660 
661 
661 
661 
662 
66S 
264 
264 


(b) 

(0 

(b) 

(») 

(b) 

(b) 


HARDCOPY 

HEX$()-4cH. 

HIDEM. 

HIMEM.. 

HLINE.. 

HTAB.. 


{ H }. 146 

. SS6 

{ Hi }. SOS 

. 412 

VS.O { Hl }. 291 

VS.O { Ht }. 91 


(b) 


{I-El-En ). 160 

{I-E-En->V3.0} 160 


IF - ELSE - ENDIF 
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Das große GFA-BASIC-Buch 


(b) 

(o) 

(0 

(b) 

(b) 

(0 

(b) 

(0 

(0 

(V) 

(v) 

(b) 

(b) 

(b) 

(0 

(0 

(0 

(b) 

(*) 

(v) 

(b) 

(•) 

(v) 

(b) 


IF-ELSE IF-ELSE-ENDIF VS.0{ I-E If-E-En } 

IMP. 

IMP(). 

INC. 

INFOW. 

INKEYt. 

INLINE. 

INP7(). 

INP(). 

INPAUX$. 

INPMIDI. 

INPUT. 

INPUT». 

INSERT. 

INSTRO. 

INT{). 

INT{}. 

INT{)=.. 

INTIN. 

INTINO. 

INTIN()=. 

INTOUT. 

INTOUTO. 

INTOUT()=. 


VS.O... 
{ In }. 
{Inf} 


,V3.0 { Inl } 


,V3.0.... 
V3.0.... 
{ Inp } 


,V3.0 { Ini } 


,V3.0 

,V3.0 


V3.0. 

,V3.0 { Int )= } 


V3.0. 

V3.0 { Into )= } 


160 

229 
246 

230 
472 
. TO 
381 
134 
134 

137 

138 
. 76 
. 79 
348 
222 
233 
378 
378 
600 
600 
600 
600 
601 
601 


(b) 

(b) 

(b) 

(•) 

(b) 

(b) 

(b) 


KEYDEF.... 
KEYGET.... 
KEYLOOK. 
KEYPAD.... 
KEYPRESS 
KEYTEST.. 
KILL. 


VS.O { Keyd }. 417 

V3.0 { Keyg }. 420 

VS.O { Keyl }. 421 

VS.O { K }. 421 

VS.O { Keypr }. 422 

VS.O { Keyt }. 426 

{ K }. 112 

{ Ki ->VS.O}. 112 


(0 

(0 

(0 

(«») 

(b) 

(b) 

(b) 

(b) 

(b) 


L-A. 

LEFT»(). 

LEN(). 

LET. 

LINE. 

LINE INPUT 

LIST. 

LLIST. 

LOAD. 


V3.0. 612 

.. 223 

. 223 

.{ Le }. 448 

.{ Li }. 283 

.{ Li input }. 79 

{ Li ->V3.0}. 79 

.{ Lis }. 112 

.{ Li }. 146 

.{ Loa }. 117 
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(d) LOCAL. 

(0 LOC#. 

(b) LOCATE. 

(0 lof#. 

(0 LOG()-LOG10() 

(0 LONG{}. 

(b) LONG{}=. 

{() LPEEK(). 

(b) LPOKE. 

(0 LPOSO. 

(b) LPRINT. 

(b) LSET. 


{ Loc }. JOS 

. 1J4 

,V2.02/VS.O { Loc»t } . 92 


. 126 

. 234 

VS.O. S7S 

VS.O { Lon }= }. S7S 

. 379 

.{ Lp }. 380 

. 147 

.{Lpr}. 147 

.{ U }. 221 


(0 

(0 

(0 

(b) 

(b) 

(b) 

(b) 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(b) 

(0 

(0 

(b) 

(0 

(0 

(b) 

(b) 

(b) 

(v) 

(v) 

(v) 

(0 

(b) 

(0 


MALLOCO. 

MAX(). 

MENU(Index). 

MENU m«nü. 

MENU menOtextIO. 

MENU KILL. 

MENU OFF. 

MENU_BAR(). 

MENU_ICHECK(). 

MENU_IENABLE(). 

MENU_REGISTER(). 

MENU_TEXT(). 

MENU_TNORMAL(). 

MFREE(). 

M1D$()=. 

MID$(). 

MIN(). 

MKDIR. 

MKI$()-MKL$()-MKS$()-MKF$()-MKD$() 

MOD(). 

MODE. 

MONITOR. 

MOUSE. 

MOUSEK. 

MOUSEX. 

MOUSEY. 

MSHRINKO. 

MUL. 

MUL(). 


VS.O 


{M. $()} . 

.{ Me Kill }. 

{ Me Off }. 

VS.O. 

VS.O. 

VS.O. 

VS.O. 

.VS.O. 

.VS.O. 

VS.O. 

.{ Mi )= ->VS.O} 


{Mk} 


VS.O. 

VS.O { Mod }... 

.{ Mon }. 

{ M ->VS.O} ... 

.{M} . 

{ Mou ->VS.0} 


VS.O.... 
{Mu } 
VS.O.... 


585 
240 
491 
487 
487 
490 
490 
563 
664 
664 
666 
664 
666 

586 
221 
224 
240 
118 
236 
232 
448 
21S 
21S 
464 
464 
466 
466 
466 
387 
230 
232 
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Das große GFA-BASIC-Buch 


(b) NAME - AS 

(b) NEW. 

(o) NOT. 


{ Na-A» }. 119 

{ Na ->VS.O}. 119 

. S97 

. 229 


(v) 

(l) 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(b) 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(0 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 


OB_ADR(). 

OB_rLAGS(). 

OB_FLAGS()=. 

OB_HEAD(). 

OB_HEAD()=. 

OB_NEXT(). 

OB_NEXT()=. 

OB_SPEC(). 

OB_SPEC()=. 

OB_STATE(). 

OB_STATE()=. 

OB_TAlL(). 

OB_TAIL()=. 

OB_TYPE().;. 

OB_TYPE()=. 

OB_X(). 

OB_X()=. 

OB_Y(). 

ob_y()=. 

OB_W(). 

OB_W()=. 

OB_H(). 

OB_H()=. 

OBJC_ADD(). 

OBJC_CHANGE()... 

OBJC_DELETE().... 

OBJC_DRAW(). 

OBJC_EDIT(). 

OBJC_riND(). 

OBJC_OFFSET().... 

OBJC_ORDER(). 

0CT<()-&0. 

ODD(). 

ON - GOSUB. 

ON BREAK. 

ON BREAK CONT... 
ON BREAK GOSUB 

ON ERROR. 

ON ERROR GOSUB 


VS.O. 586 

VS.O. 588 

VS.O { Ob_f )= }. 588 

VS.O. 586 

VS.O { Ob_h )= } .... 586 

VS.O. 586 

■VS.O { Ob )= }. 586 

VS.O. 590 

.VS.O { Ob_ip )= } ... 590 

.VS.O. 589 

.VS.O { Ob_i )= }. 589 

VS.O. 587 

.VS.O { Ob_t )= }. 587 

VS.O. 587 

VS.O { Ob_ty )= } ... 587 

.VS.O. 590 

.VS.O { Ob_x )= }. 590 

.VS.O. 590 

VS.O { Ob_y )= ). 590 

.VS.O. 591 

.VS.O { Ob_w )= }.... 591 

.VS.O. 591 

VS.O { Ob_h )= ) .... 591 

VS.O. 565 

VS.O. 566 

.VS.O. 566 

VS.O. 566 

VS.O. 567 

.VS.O. 567 

.VS.O. 568 

.VS.O. 568 


SSO 

24S 

SOS 

204 

204 

204 

407 

407 
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(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(o) 

(0 

(0 

(b) 


ON MENU. 

ON MENU GOSUB. 

ON MENU BUTTON GOSUB.. 

ON MENU IBOX GOSUB. 

ON MENU KEY GOSUB. 

ON MENU MESSAGE GOSUB 

ON MENU OBOX GOSUB. 

OPEN#. 

OPENW. 

OPTION. 

OPTION BASE. 

OR. 

OR(). 

OUT7(). 

OUT. 


{O#}. 

{O W }. 

{ Opt }. 

{ Opt Bu« } 


,VS.O 


{Ou ) 


403 

494 

494 

496 

497 
497 
496 
135 
472 
449 
349 
239 
346 

138 

139 


(b) 

(b) 

(b) 

(0 

(b) 

(v) 

(b) 

(0 

(b) 

(b) 

(b) 

(b) 

(0 

(b) 

(0 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(«) 

(v) 

(b) 

(•) 

(v) 

(b) 

(0 


PAUSE. 

PBOX. 

PCIRCLE. 

PEEK(). 

PELLIPSE. 

PI. 

PLOT. 

POINTO. 

POKE. 

POLYFILL. 

POLYLINE.. 

POLYMARK. 

POS(). 

PRBOX. 

PREDQ. 

PRINT. 

PRINT USING. 

PROCEDURE - RETURN... 
PROCEDURE - ENDPROC 

PSAVE. 

PSET. 

PTSIN. 

PTSINO. 

PTSIN()=. 

PTSOUT. 

PTSOUTO. 

PTSOUT()=. 

PTST(). 


{ P» }. 398 

{ Pb }. 371 

{ Pc ). 376 

. 379 

{ P« }. 376 

. 337 

{ PI }. 384 

. 384 

{ Po }. 380 

{ Polyl }. 378 

{ Pol }. 286 

,{ Polym ). 378 

. 92 

,{ Prb }. 378 

,V3.0. 334, 334 

.{ P / 7 ). 83 

.{ P Uiinj }. 88 

.{ Pro - R«t }. 306 

.V3.0 {Pro - Endp ). 306 

.{ P« }. 119 

.V3.0 { P» }. 393 

. 301 

.V3.0. 601 

.V3.0 { Pt )= }. 601 

. 601 

.V3.0. 601 

.V8.0 { Pt»o )= }. 601 

.V3.0. 396 
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Das große GFA-BASIC-Buch 


(b) PUT. 

(b) PUT#.. 


.{ Pu }. SOS 

.{Pu#}. 127 


(b) QSORT. VS.0{Qi} . SSO 

(b) QUIT.{ Q ). S94 


(0 

m 

(0 

(b) 

(b) 

(b) 

(b) 

(0 

(b) 

(b) 

(b) 

(b) 

(d) 

(b) 

(b) 

(b) 

(b) 

(b) 

(b) 

(0 

(0 

(b) 

(0 

(0 

(0 

(0 

(b) 

(0 

(0 

(0 

(0 

(0 

(b) 


RAD(). 

RANDQ. 

RANDOMO. 

RANDOMIZE. 

RBOX. 

RCALL. 

RC_COPY. 

RC_INTERSECT(). 

READ. 

RECORD#. 

RECALL#. 

RELSEEK#. 

REM. 

RENAME - AS. 

REPEAT - UNTIL. 

REPEAT - ENDREPEAT. 

RESERVE.. 

RESTORE. 

RESUME. 

RIGHT$(). 

RINSTRO. 

RMDIR. 

RND(). 

ROLQ. 

RORQ. 

ROUND{). 

RSET. 

RSRC_FREE{). 

RSRC_GADDR(). 

RSRC_LOAD(). 

RSRC_OBFIX(). 

RSRC_SADDR(). 

RUN. 


VS.O. 2S8 

VS.O. 349 

.. 350 

VS.O { Ra }. 350 

{ Rb }. 378 

VS.O { Rc }. 318 

VS.O { Rc_ }. S19 

VS.O. S33 

.{ R*8 }. 185 

VS.O { Rec # }. 138 

VS.O { Reca # }. 137 

(Rel#) . 129 

.{ R / ■ }. 186 

VS.O { Ren }. 130 

.{ Rep - U }. 158 

.VS.O { Rep - Endr }. 158 

.{ Re«e }. S88 

.{ Ree }. 189 

.{ Reeu }. 408 

. 334 

•VS.O. 336 

.{ Rm }. 130 

. 350 

VS.O. 347 

.VS.O. 348 

•VS.O. 3S4 

.{ Re }. 331 

.VS.O. 569 

.VS.O. 569 

•VS.O. 570 

.VS.O. 570 

.VS.O. 571 

.{ Ru }. 394 


(b) SAVE. {Sa} . 130 

(0 SCRP_READ().VS.O. 571 

(f) SCRP_WRITE().VS.O. 573 

(b) SDPOKE.{ Sd }. 380 
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(b) SEEK.{ Sm }. 

(b) SELECT-CONT-CASE-DEFAULT-ENDSELECT.VS.O. 

{ S } { CON } { CA } { DEFA } { ENDS }. 

(•) SETCOLOR.{ Se }. 

{ Set ->V3.0). 

(b) SETDRAW.VS.O { Setd }. 

(b) SETMOUSE.VS.O { Setm }. 

(e) SETTIME. {Seit} . 

(b) SGET. {S*} . 

(0 SGN(). 

(f) SHEL_ENVRN().VS.O. 

(0 SHEL_FIND().VS.O. 

(0 SHEL_GET().VS.O. 

(0 SHEL_PUT().VS.O. 

(0 SHEL_READ().VS.O. 

(0 SHEL_WRITE().VS.O. 

(0 SHL().VS.O. 

(b) SHOWM. {Sh} . 

(0 SHR().VS.O. 

(0 SIN(). 

(0 SINGLEO.VS.O. 

(b) SINGLE{}=.VS.O { Si }= }. 

(0 SINQO.VS.O. 

(b) SLPOKE.{ Sl }. 

(b) SOUND.{ So }. 

(0 SPACEIO. 

(b) SPC(). 

(b) SPOKE.{ Sp }. 

(b) SPRITE. {Spr} . 

(b) SPUT. {Spu} . 

(0 SQR(). 

(b) SSORT.VS.O { Ss }. 

(e) STICK.VS.O { Sti }. 

(f) STICKQ.VS.O. 

(b) STOP. (St) . 

(b) STORE#.VS.O { Stör }. 

(0 STR$(). 

(f) STRIG().VS.O. 

(f) STRING!. 

(b) SUB.{S}. 

(0 SUB().VS.0. 

(b) SUB - ENDSUB.VS.O { Su - Endeu } . 

(0 SUCC().VS.O. 

(b) SWAP.{ Sw }. 


139 

171 

171 

366 

366 

386 

466 

S09 

S34 

3S6 

573 

57S 

67S 

67S 

574 

574 

346 

335 

346 

3SO 

S77 

S77 

3SO 

SSO 

150 

336 

. OS 

SSO 

S35 

S37 

3S5 

S6S 

467 

468 

S96 

ISO 

SS7 

470 

337 

3S1 

3S3 

305 

336 

451 
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(0 SWAP().VS.O. 248 

(b) SYSTEM.{Sy}. S9« 


(b) 

(0 

(b) 

(v) 

(b) 

(v) 

(b) 

(b) 

(b) 

(v) 

(0 

(b) 

(b) 

(b) 

(V) 

(0 

(0 


TAB. 

TAN(). 

TEXT. 

TIME!. 

TIME$=. 

TIMER. 

TITLEW. 

TOPW. 

TOUCH#. 

TRACEI. 

TRIM$(). 

TROFF. 

TRON. 

TRON Protcdurname 

TRUE. 

TRUNC{). 

TYPE(). 


.. 93 

. 239 

{ T }. 278 

.. 403 

V3.0 { Tim }. 403 

.. 403 

{ Tit }. 474 

{ Ti ->V3.0}. 474 

V3.0 { To }. 475 

V3.0 { Tou # }. 130 

,V3.0. 434 

.V3.0). 227 

.{ Trof }. 434 

.{ Tr }. 434 

.V3.0 { Tr N»me }. 435 

. 450 

. 235 

. 415 


(f) UPPERIO 


227 


(0 

(0 

(b) 

(0 

(•) 

(b) 

(b) 

(•) 

(b) 

(b) 

(0 

(b) 

(0 

(0 

(0 

(0 

(0 

(0 

(0 


VALQ. 

VAL7(). 

VAR.V3.0. 

VARPTRO.{ V: ->V3.0} 

VDIBASE. 

VDISYS.{ V }. 

VOID.{ Vo }. 

VSETCOLOR.V3.0 { Vm } . 

{ - ->V3.0}.. 

VSYNC.{ Vi }. 

VTAB.V3.0 { Vt }... 

V-H.V3.0. 

V-H=.V3.0 { V- }... 

V_OPNWK().V3.0. 

V_CLSWK().V3.0. 

V_OPNVWK().V3.0. 

V_CLSVWK().V3.0. 

V_CLRWK().V3.0. 

V_UPDWK().V3.0. 

VST_LOAD_FONTS().V3.0. 


338 
338 
207 
392 
602 
618 
452 
270 
270 
327 
. 94 
503 

503 
507 
505 
505 

504 
504 
511 
515 
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(0 

VST UNLOAD FONTS(). 

.VS.O. 

. 616 

(0 

VQT EXTENTO. 

.VS.O. 

. 611 

(0 

VQT NAME(). 

.VS.O. 

. 614 

(b) 

WAVE. 

.{w*}.... 

. 161 

(b) 

WHILE - WEND. 

.{ W - We }. 169 

(b) 

WHILE - ENDWHILE. 

.VS.O { W 

- Endw } .. 159 

(•) 

WINDTAB. 


. 476 

(v) 

WINDTABO. 

.VS.O. 

. 477 

(b) 

WINDTAB()-. 

.VS.O { Wi )- }. 477 

(0 

WIND CALC(). 

.VS.O. 

. 676 

(0 

WIND CLOSEQ. 

.VS.O. 

. 676 

(0 

WIND CREATEO. 

.VS.O. 

. 676 

(0 

WIND ÖELETEO. 

.VS.O. 

. 676 

(0 

WIND riND(). 

.VS.O. 

. 676 

(0 

WIND GET(). 

.VS.O. 

. 677 

(0 

WIND OPEN(). 

.VS.O. 

. 678 

(0 

WIND SET(). 

.VS.O. 

. 678 

(0 

WIND UPDATEO. 

.VS.O. 

. 679 

(0 

WORD(). 

.VS.O. 

. 249 

(0 

WORD{}. 

.VS.O. 

. S78 

(0 

WORD{}-. 

.VS.O. 

. S78 

(0 

WORK OUT(). 

.VS.O. 

. 416 

(b) 

WRITE. 

.{ Wr}.... 

. 90 

(0 

W HANDQ. 

.VS.O. 

. 476 

(0 

W INDEX(). 

.VS.O. 

. 476 

(0 

XBIOS(). 


. 622 

(o) 

XOR. 


. 229 

(0 

XOR(). 

.VS.O. 

. 249 
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Index 


•PRG . 211 

•TOS . 211 

■TTP. 211 


<Altemste>-TMtc . 607 

<Alternate><ClrHoine> . 608 

<AltemBte><Intert> . 608 

<CBp«Lock> . 607 

<Control>-Ta«te . 607 


1 } 


BO, PB }. 

CAL } . 

CI, PC } . 

DEFM } . 

DBFMA }. 

DI } . 

ER } . 

ERA } . 

EX } . 

FILE ]. 

FUL }. 

G oder @ } ... 

GR } . 

I... [E...] EN } 

M ). 

MI )= ) . 

MOU } . 

SET ) . 

SU } . 

TI } . 

V) . 


I-Byte-Integer . 

I-Byte-Integer-Feldvariable . 

1-Byte-Integervariable. 

1- Byte-Integervariablen deklarieren .... 

1. Zeichen aua TaetaturpuITer leeen . 

1/1-Sekunden-Wartefunktion . 

1/SO-Sekunden-Wartefunktion . 

16-Bit-Integer-Zufallaiahl . 

2 Byte alt Voraeichen-Integer schreiben 

2- Boinben-Fehler . 

2-Byte-Integer . 

2-Byte-Integer-Feldvariable . 

2-Byte-Integerfonnat . 

2-Byte-Integervariable. 

S-Bomben-Fehler . 

S2-BIT-Code in OB SPEC . 


S2-Bit-Integer-Zufall8tahl 
4-Bomben-Fehler. 


186 

452 

362 

358 

271 

209 

275 

259 

258 

230 
405 
348 

159 
459 
472 
200 
264 

160 
213 
221 
464 
266 

231 
474 
392 

190 
416 
416 

191 
421 
398 
398 

249 
378 
407 
190 
416 
378 
416 
407 
592 

250 
407 
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4'Byte-lnteger . 190 

4’Byte-lnteger-Feldvariable. 415 

4>Byte-Int«gervariable . 415 

4*Byte-Integervariablen deklarieren . 191 

8 Byte in GFA-S.O-Realformat schreiben . 378 

8*8-Font . 329 

8*^Byte-Flie0kommavariablen deklarieren . 191 

8er*Tetrade . 334 

8xl6-Font-Header . 413 

8xl6-Sy8tem-Font . 517 

8x8-Font . 643 

Abbruchbedingungen . 159 

Abbruchfunktion . 659 

Abbruchtasten. 63 

Absolute Mauskoordinaten . 141 

Absolute Objektposition ermitteln . 568 

Abstursgefahr. 564 

Abw&rtspfeil . 477, 491 

AC_CLOSE . 492 

AC_OPEN . 492 

Accessories . 613 

Accessory in Register eintragen . 565 

Accessory-Identiflkator . 492 

Accessory-MenUtitel. 489 

Accessory-‘Register . 565 

Accessory-Titel . 488 

ACIA-Kontrolle (Tastatur, MIDI, Joystick-Ports) . 647 

Action-Spiele . 363 

Additionsbefehl . 230 

ADDRIN-Array-Lknge . 699 

ADDRIN-Array-Start . 698 

ADDROUT-Array-Lünge . 699 

ADDROUT-Array-Start . 698 

Adresse der Farb-Palette . 666 

Adresse der Unter-Struktur lesen/schreiben (Long). 590 

Adresse des aktuellen Font-Headers. 602 

Adresse des FILESELECT-Kommentars . 458 

Adrefifehler-Routine. 214 

Adreßregister . 406 

AES - Integer-Inputblock . 599 

AES-Adreß-Input-Block. 697 

AES-Adreß-Output-Block . 697 

AES-Integer-Output-Block . 600 

AES-Kontroll-Block . 699 

AES-Message-Buffer . 649, 661 

AES-Multi-Ereignis . 493 

AES-Routinen aufrufen. 617 

Aktionspunkt . 269, 326, 367 

Aktuelle Basepage-Adresse liefern. 409 

Aktuelle Cursor-Position ermitteln . 622 

Aktuelle Cursor-Spalte bestimmen. 91 

Aktuelle Cursor-Spalte liefern . 410 

Aktuelle Cursor-Zeile bestimmen . 94 

Aktuelle Cursor-Zeile liefern . 410 

Aktuelle horisontale Textausrichtung . 602 

Aktuelle Linienbreite . 602 

Aktuelle Linienendform . 602 

Aktuelle Linienfarbe . 602 
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Aktuelle Linienstartform . 602 

Aktuelle Polygon-Füllfarbe . 602 

Aktuelle Polymarkerfarbe (-höhe) . 602 

Aktuelle Textfarbe . 603 

Aktuelle Textrotation . 602 

Aktuelle vertikale Textauarichtung 

Aktuellen Font-Header . 603 

Aktuellen Ordnemamen ermitteln . 104 

Aktueller Benutier-Linienatil . 603 

Aktueller Füllatil . 602 

Aktueller Grafikmodua . 603 

Aktueller Linienatil . 602 

Aktueller Polymarkertyp . 602 

Aktueller Textatil . 602 

Aktuellea FUllmuater . 602 

Aktuelle! Koordinatensyitem 

Aktuelles Laufwerk bestimmen . 102 

Aktuelles VDI-Handle liefem/setsen . 603 

Alert-Box erstellen . 463 

ALERT-Format . 644 

Alert-Icon . 466 

Alle ASCIIs. 362 

Allosierter Speicher . 383 

Altemate . 420 

Alteraate-Taate. 73 

American Standard Code for Information Interchange . 329 

AND . 37, 229 

AND-Ketten. 241 

AND-Modus . 241 

Anfangs-CLS . 396 

Anfangsadresse des Benutserspeichers . 667 

Animation . 298 

Ansahl der angeschlossenen Laufwerke. 662 

Ansahl freier Cluster . 614 

Ansahl wandelbarer Textseichen ermitteln . 338 

Ap_id. 648 

Append . 126 

APPLBLK . 687 

APPLBLK (USERBLK) . 696 

APPLBLK- . 690 

APPLBLK-Unterstruktur (30 Byte) . 696 

Applikation anmelden/starten . 674 

Applikationen . 671, 679 

Applikations-Identifikator ermitteln . 648 

Applikations-Namen auf Disk suchen . 673 

Applikationakennsiffer . 648 

Applikationsnamen und -kommandoseile lesen . 674 

Arbeitsbereich . 676, 677 

Arbeitsfläche . 482 

Arbeitsspeicher . 388 

Archiv-Datei . 106 

Arcuscosinus-Funktion. 236 

Arcussinus-Funktion . 236 

Arcustangens-Funktion . 236 

Arithmetik-Funktionsnamen . 432 

Arrays . 60 

Ascentline . 603 

ASCII . 74, 329, 401 

ASCII => Textteichen . 334 
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ASCII-Code. 492, 652 

ASCII-Dftteien . 114 

ASCII-File. 112 

ASCII-Wert . 172 

ASCII-Zeichen . 484 

ASSIGN.SYS . 499. 512 

Atari-LaMr-Dnicker . 510 

Atari-Schrift'lmaKe . 458 

Atari-Symbol . 455 

Auf Eventpuffer-Eraignii warten . 552 

Auf Mauspoeitioiu-Ereignit warten . 553 

Auf Maustaeten-ErelgnU warten . 551 

Auf Mehrfach-EreignU warten . 553 

Auf Tastatur-Ereignis warten . 552 

Auf Taste warten. 420 

Auf Zeit-Ereignis warten . 554 

Aufbau des Desktops . 573 

Aufbau eines Font-Header . 603 

Auflösung . 318 

Auflösungsindex . 523, 525 

Auflösungskennsiffer. 97 

Aufnahmevariablenliste . 201 

Aufwärtspfeil . 477. 491 

Aus AES-ADDRIN-Block als Airay lesen . 597 

Aus AES-ADDROUT-Block als Array lesen . 597 

Aus AES-CONTRL-Block als Array lesen . 599 

Aus AES-INTIN-BIock als Array lesen . 599 

Aus AES-INTOUT-Block als Array lesen . 600 

Aus Ereignispuffer lesen . 549 

Aus VDI-CONTRL-Block als Array lesen. 698 

Aus VDI-INTIN-Block als Array lesen . 600 

Aus VDI-INTOUT-Block als Array lesen . 601 

Aus VDI-PTSIN-Block als Array lesen . 601 

Aus VDI-PTSOUT-Block als Array lesen . 601 

Ausgabe-Puffer . 504 

Ausgabebereitschaft . 611 

Ausgabeformat . 88 

Ausgabegerät . 278, 417, 611 

Ausgabekanal . 616 

Ausgangsbedingungen . 155 

Ausrufungsseichen . 456 

Auswahl-Vorgaben . 173 

Auswahltasten . 417 

Auto-Boot-Programm. 669 

Auto-Ordner . 218, 499, 616 

Auto-Ordner-Programme . 613 

Autostart . 99, 120 

Autostart-Programme . 101 

AUX-Port . 611 

AUX_Outputblock. 627 

Auxilliary . 626 

Auxilliary-Port . 136, 609 

Auxilliary-PuRer . 137 

Aquivalens. 229 

Aquivalens-Funktion . 246 

AuBere Window-Breite. 478 

Außere Window-Höhe . 478 
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Backiluh. 96, 102, 461 

Backipsca . 76 

Backtrailer. 98, 219, 717 

Backup . 106 

Backup-File . 461 

Bad Mctore . 626 

Baeeline . 603 

Baeepage . 100 

Baaepage-Offeet . 418 

BASIC-Abfangroutine . 216 

BASlC'Arbeitupeicher . 397 

BASIC-Arbeiteepeicher festlegen. 388 

BASIC-Pehler . 406 

BASIC-inteme Speicherreservierung . 381 

BASIC-Intemiptroutine. 660 

BASIC-Loader . 618, 620 

BASIC^Speicher restaurieren . 116 

Basis-Adresse der Line-A-Variablen liefern . 412 

Basis-Informations-Block. 409 

Baud-Raten-Generator . 647 

Baum-Anaahl . 691 

Baum-Ebene . 667 

Baum-Indises . 538 

Baum-Namen . 641 

Baum-Startadresse. 546 

BaunMtruktur. 639 

Baumtyp-Anderung . 641 

Bedingte Schleife . 168, 159 

Bedingte Versweigung su Proseduren . 203 

Bedingter Schleifenabbruch in V3.0 . 159 

Bedingungen . 37 

Bedingungsabfrage in V3.0 . 160 

Bedingungsstellung. 241 

Befehlsabküriungen. 117 

Begrensungsrechteck . 658, 666 

Beliebigen Teil-String ermitteln . 224 

Benchmark-Test. 404 

Benutser-Füllmuster . 603 

Benutser-Muster . 264 

Bereichs-Kollisionen . 388 

Betrags-Funktion . 232 

Bewegungseffekt . 661 

Bi_color . 696 

Bi_hl . 596 

Bi_pdata . 696 

Bi_wb . 696 

Bi_x . 696 

Bi_y . 696 

Bilddaten. 316 

Bildschirm ab Cursor löschen . 621 

Bildschirm auf Drucker ausgeben . 146 

Bildschirm löschen . 397 

Bildschirm puffern . 324 

Bildschirm setsen . 327 

Bildschirm-Adresse . 666 

Bildschirm-Speicher . 366 

Bildschirm-Workstation . 512 

Bildschirmbereich . 368 

Bildschirmbereich setsen . 303 
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Bildschirmbereich speichern . 298 

Bildschirmbreite . 414, 656 

Bildschirmhöhe . 666 

Bildschirmnullpunkt . 690 

Bildschirmpunkt-Farbwert ermitteln . 284 

Bildschirmrechteck . 296 

Bildschirmspeicher. 36, 324, 327 

Binary Digit . 29 

Binär-Division. 40 

Bin&r-String . 330 

Binänystem. 331 

Bio-Feedback-Methode. 269 

BIOS-Parameter-Block . 641 

BIOS-Routinen aufrufen . 605 

Bit-Block-Position . 591 

Bit-Feld . 317 

Bit-Flag-Verwaltung . 460 

Bit-Kette. 317 

Bit-Muster-Daten . 160 

Bit-Müll . 310 

Bit-Nummer. 242 

Bit-Plane . 255, 316, 414, 529 

Bit-Summe . 310 

Bit-Vektoren . 242, 464 

BITBLK . 542, 586, 587, 690, 696 

Bits links rotieren . 247 

Bits links verschieben . 246 

Bits logisch rechts verschieben . 246 

Bits rechts rotieren . 248 

Bitweise Division . 40 

Blau-Intensität. 413 

Btinkfrequens . 646 

Blitter-TOS . 412 

Block-Storage-Segment . 409 

Bogenmaß . 239 

Bold. 415 

Bomben-Ansahl . 406 

Bomben-Fehler . 406, 449 

Boole-Variable(n] deklarieren . 189 

Boole-Variablen . 190 

Boolesche Algebra . 36 

Boolesche Feldvariable . 416 

Boolesche Variable . 416 

Boot-Programm . 637 

Boot-ROM . 623 

Boot-Sektor. 602, 631, 632 

Bottomline. 603 

Box-Bewegungseffekt produeieren. 561 

Box-Überwachung. 496 

Box-VergrößerungseRekt produsieren . 569 

Box-Verkleinerungseffekt produeieren . 661 

Boxbeschaffenheit. 691 

BOXINFO . 587, 591, 692 

BOXINFO-Wert . 690 

Break-Abfang-Routine . 117 

Break-Funktion. 135, 145, 204, 398 

Break-Funktion behandeln . 204 

Break-Tasten . 449 

Break-Umschaltung . 660 
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Breakpoint. 438 

Breite des Bildschirms . 416 

Breite eines Pixels . 416 

BSS-Bereich . 518 

BSS-Segment . 400 

Buchstabenumwandlung Klein => Groß . 227 

Busfehler-Routine . 214 

Button-Länge. 545 

Button-Texte . 463 

Bytes pro Sektor. 639 

C-Konventionen . 208 

C-Text . 687 

C-Text schreiben. 376 

CapsLock . 420 

Carriage Return. 69, 80, 114, 127, 183 

Centronics . 654 

Centronics Strobe . 647 

Centronics-Port . 135, 419, 609 

Check-Summe . 641 

CHECKED . 689 

Checkmark . 487, 664 

CHK-Routine . 214 

Chr|{7)-Klingel . 661 

Chromatische Tonhöhen. 160 

Clearscreen . 86 

Clip-Box . 416 

Clipboard . 640, 671 

Clipping-Box. 287, 603 

Clipping-Flag . 416, 602 

Clipping-Rechteck. 596 

CLOSE-Feld . 477 

CLOSER. 679 

Cluster. 607, 633 

Cluster-Plätsen . 633 

Codierungsmethode . 182 

Colordrucker. 664 

Compiler. 701 

Compiler-CHAIN . 674 

Compiler-Optionen . 706 

Compiler-Steuerung . 449 

Computer-Animation . 367 

Computer-Viren . 646 

Consol-Port . 136 

Console . 626 

Control . 420 

Control-Accessories . 666 

Control-Taste. 73 

COPY RASTER . 368 

Cosinus-Funktion. 236 

CPU . 28 

CPU-Register. 218 

CROSSED . 689 

CTS . 627 

Cursor anschalten . 87 

Cursor auf Home setsen . 86 

Cursor ausschalten . 87 

Cursor ein Zeichen nach links . 86, 621 

Cursor ein Zeichen nach rechts. 86, 621 
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Curtor ein Zeichen vorw&rte . 403 

Cursor eine Zeile hoch . 631 

Curtor eine Zeile nach oben. 85 

Curtor eine Zeile nach unten . 86 

Curtor eine Zeile runter. 631 

Curtor in linke obere Ecke setten . 631 

Curtor positionieren . 93, 631 

Curtor um eine Stelle nach linkt. 76 

Curtor um eine Stelle nach rechts . 76 

Curtor tum Zeilenanfang . 76 

Curtor tum Zeilenende . 76 

Curtor-Blinkrate . 414 

Curtor-Blinktähler . 414 

Cursor-Block . 421 

Cursor-Farbe. 86 

Curtor-Flag. 414 

Curtor-Poiition . 82 

Cursor-Positionierung . 662 

Cursor-Spalte ermitteln . 92 

Curtor-Steuerung . 400, 421 

Curtor-Zeile löschen . 86 

DATA-Bereich . 518 

DATA-Segment . 409 

DATA-Werte autleten . 185 

DATA-Zeiger . 176 

DATA-Zeiger setten . 189 

Data-Zeiger setten . 91 

Datei auf Dateiende prüfen . 132 

Datei aus wählen in V3.0 . 459 

Datei in Speicherbereich laden . 97 

Datei suchen . 108 

Datei umbenennen. 119, 120 

Datei-Attribut . 105, 108, 635 

Datei-Symbol . 466 

Datei-Verwaltungsprogramm . 665 

Datei-Zeiteintrag aktualisieren . 130 

Datei-Zugriff . 643 

Dateilänge . 106, 634, 636 

Dateilänge ermitteln . 135 

Dateiname . 106 

Dateisugriff . 94, 131 

Daten an Drucker ausgeben. 147 

Daten ausgeben .82, 90 

Daten byteweise an Peripherie ausgeben . 139 

Daten byteweite von Peripherie lesen . 135 

Daten formatiert ausgeben . 88 

Daten tuweisen. 448 

Daten-Cluster . 634 

Daten-Speicher deklarieren . 176 

Datenbus . 38 

Dateneingabe. 76 

Datenfelder. 131 

Datenkanal . 139 

Datenkanal öffnen . 135 

Datenkanal tchliefien . 132 

Datenregister. 406 

Datensats . 124, 131 

Datensatt in Felder unterteilen . 123 
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Datensatz lesen. 124 

Datensatz schreiben. 127 

Datensatzlünge . 127, 132 

Datum . 108, 106 

Datum einstellen . 399 

Debugger . 214, 437 

Debugger-Funktionen . 437 

Debugging-Prozedur . 441 

Decodierungs-Tabellen . 270 

Decodierungstabelle. 267 

DEFAULT. 544, 688 

Default-Button . 453, 467, 545 

Default-Directory . 614 

Default-Laufwerk . 611 

DEFAULT-Objekt . 646 

Default-Ordner . 102 

DEFMOUSE-Zeiger . 413 

Degas-Bild laden . 97 

Degas-Bilder . 624 

Degas-Font . 621 

Degas-Font-Datei . 626 

Degas-Format . 99 

Degas-Fullscreen . 316 

Dekrementierung . 230 

Delete . 76 

Descentline . 603 

Descriptor. 389, 461, 719 

Desktop . 679 

Desktop-Formatier-Routine. 638 

Desktop-Hintergrund . 666 

Desktop-MenU. 666 

Desktop-MenU für Accessories . 487 

Desktop-Symbole . 466 

Desktop.Inf. 673 

Device-Handle. 607 

Dezimalstellen-Funktion . 233 

Dezimalstellen-Zufallssahl . 260 

Dezimalsystem . 331 

DIALOG-Baum. 644 

DIALOG-Format . 644 

Dialog-Typ. 682 

Dialogbox-Verwaltung . 648 

Dialogboxen . 631 

Digital-Zeichen . 199, 401 

Digitale Informationen . 630 

Diodenkabel. 137 

Directories . 631 

Directory . 636 

Directory (erweitert) ausgeben . 106 

Directory ausgeben . 103 

Directory-Eintrag. 633 

Directory-L&nge . 607 

Direkte Variablen-Übergabe . 207 

Direktmodus . 393, 396, 419, 438 

Direktmodus . 62 

Direktmodus . 723 

Direktmodus ausschalten . 660 

DISABLED . 689 

Disassembler . 214 
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DiscTransferAdress. 410 

DUjunktion . 220 

Disk-Buffer . 662 

Disk-Controlier . 647 

Disk-Datei löschen . 112 

Disk-Datei-Ausgabe? . 110 

Disk-Daten lesen . 644 

Disk-Error. 374 

Disk-Seite. 626 

Disk-Station . 460 

Disk-Symbol. 466 

Disk-Transfer-Adresse bestimmen . 107 

Disk-Transfer-Adresse ermitteln . 106 

Disk-Transfer-Puffer. 106, 107, 409 

Disk-Typ. 636 

Disk-Viren. 638, 644 

Disketten-Attribute . 662 

Disketten-Label. 616 

Disketten-Organisation . 631 

Diskettendaten . 646 

Diskettenformat . 630 

Diskettenname. 105 

Diskettenoperationen. 460 

Diskettentyp. 630 

Diskettenverwaltung. 631, 641 

Divisionsbefehl in V3.0 . 230 

DNARROW. 477 

Doppelklick . 496, 662 

Doppelklick-Geschwindigkeit einstellen . 662 

Doppelpfeile. 647 

Doppelt bedingte Schleife . 166 

DOS-Environment-Adresse ermitteln . 672 

DOS-Environment-String . 672 

DOSOUND . 649 

DRAW-Turtle positionieren . 286 

Drehpunkt . 238 

Dreiecksflüche. 262 

Drop-Down-MenU . 298 

Drucker-Auflösung. 666 

Drucker-Einstellung . 242 

Drucker-Port. 135, 609, 656 

Drucker-Puffer . 146 

Druckereinstellung. 664 

Druckertyp . 666 

Druckerseichen-Defmitionen . 149 

Druckkopfposition ermitteln . 147 

Druckseichen-ASCIl . 149 

DTA . 107 

DTA-Einträge . 111 

Dummy-Swap-Feld . 316 

Dummy-Zuweisung in V3.0 . 462 

Edit-Fenster. 536 

EDITABLE . 688 

Editor . 393 

Ein-/Ausgabegerät . 417 

EinfUgemodus . 76 

Eingabegerät . 417 

Eingabeposition . 593 
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Einträge pro Direktory . 6S9 

EineeNBit auf an/aut testen . 344 

Einael-Bit löschen . 24S 

Einsel-Bit setsen . 243 

Einsel-Bit wechseln (Xor-en) . 242 

Einselblatt . 654 

Einaelelement aus Feld löschen . 341 

Einaelelement in Feld einfügen . 348 

Einselklick . 496 

Einselschrittmodus . 437, 443 

Einselvariablen löschen . 397 

Einselseichen von Tastatur holen . 70 

Einselseichen-Ein/Ausgabe. 400 

Elekronenstrahl . 328 

Elementarfarben . 268 

Elemente pro Dimension. 342 

Ellipse(nbogen) seichnen . 276 

Eltem-Generation . 686 

Eltem-Objekt . 590 

Empfangs-Status . 647 

Endadresse des Benutserspeichers . 667 

Ende des Betriebssystems . 663 

Endlos . 654 

Endlosschleife . 166 

Environment-Adresse . 672 

Environment-Puffer lesen . 673 

Environment-String . 212, 410 

Epson . 664 

Epson-FX80 . 601, 610 

Epson-Schnittstelle . 377 

EQV . 38, 229 

EQV-Modus . 246 

Ereignispuffer . 662 

Ereignisse speichern. 660 

Error-Handling. 407 

Ersatskriterium . 362 

Erstes Byte hinter BASIC-Speicher liefern. 412 

Erstes Objekt der Kind-Ebene lesen/schreiben (Word) . 586 

Escape-Sequens. 86, 396 

Eulersche Zahl . 233 

Europa-Format . 448 

Event-Puffer (Menü- und Fensterverwaltung) . 491 

Event-Puffer-Ereignis . 663 

Event-Timer-Vektor . 426 

Event-Überwachung. 497 

Exception-Routine . 606 

Ehcception-Vektor. 214, 606 

Exeeption-Verarbeitung . 662 

Exclusives Oder . 229 

EXclusivOR-Funktion. 249 

Existens einer Datei prüfen . 104 

EXIT . 644, 688 

EXIT-Objekt . 680 

Exponentenstellen . 89 

Elxponential-Funktion . 233 

Ebcponentialformat . 46, 339 

Fadenkreui-Linienmuster . 196 

Fall-Entscheidung. 171 
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Farb-Bildtchirm . 310 

Farb-Palette inttallieren . 97 

Farb-R«gister. 262 

Farbberechnung . 311 

Farbebane. 361 

Farbeinatellung. 289 

Farbmischung. 267 

Farbpalette . 98, 660 

Farbregister . 284, 310, 624 

Farbwert . 98, 313, 624 

FAT. 94, 607 

FAT-Plate. 634 

FAT-Sektor. 642 

Fataler Systemfehler. 406 

Fehler simulieren in VS.O. 405 

Fehler>Abfangroutine . 394 

Fehler-Code ermitteln . 406 

Fehler-Routine . 408 

Fehlerart ermitteln . 406 

Fehlerindex. 406 

Fehlertext liefern . 406 

Feld f-Bereichl Quick-Sortierung . 360 

Feld (-Bereich) Shell-Sortierung . 363 

Feld mit Wert belegen . 341 

Feld(er) dimensionieren . 342 

Feld-Basiselement bestinunen . 349 

Feld-Pointer. 390 

Felder löschen. 397 

Feldnamen . 432 

Feldvertauschung . 391 

Fenster aktivieren. 476 

Fenster auf maximale GröSe bringen in VS.O . 477 

Fenster darstellen (OPENW) . 678 

Fenster definieren/anmelden . 676 

Fenster löschen/abmelden . 676 

Fenster öffnen. 472 

Fenster schlie&en . 471 

Fenster schließen (CLOSEW) . 676 

Fenster-Attribute ändern. 678 

Fenster-Attribute ermitteln . 577 

Fenster-Darstellung kontrollieren . 679 

Fenster-Handle ermitteln . 676 

Fenster-Informationsteile bestimmen . 472 

Fenster-Inhalt löschen . 471 

Fenster-Randelemente . 676, 678 

Fenster-Titelteile bestimmen in V3.0 . 474 

Fenster-Verwaltungstabelle. 476 

Fenster-Verwaltungstabelle als Array . 477 

Fensterbedienungselemente . 679 

Fensterkoordinaten und -maße ermitteln . 676 

Fensterliste . 676 

Festspeicher. 97 

Fettschrift-Flag. 604 

File-Allocation-Table. 91, 632, 639 

File-Ende . 123 

File-Pointer.81i 121 

File-Pointer neu setten . 81 

File-Pointer setten . 129 

File-Pointer verschieben . 129 
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Fil«-Pointer-Po«ition . 121, 124 

FilM«lect-Box produsiercn . 657 

Fira-Button . 14S, 468 

Flaft. 44 

Fliehen mit Mutter füllen . 276 

Flichenkoordineten . 372 

Flichenabertchneidunfen. 323 

FlieBkommaveriablen . 100 

FlieBkonrunawert => Integerwert . 336 

Flimmern . 106 

Floppy . 647 

Floppy-Ditk . 630 

Floppy-Port . 660 

Floppy-Schreibiugriffen . 668 

Follow. 437, 441 

Font-Adrette. 320 

Font-Datei . 621, 623, 630 

Font-Daten-Adreete . 616 

Font-Daten-Zeiger. 620 

Font-File-Linge. 623 

Font-Grafikdaten . 617 

Font-Header. 287, 200, 412, 617, 621 

Font-Header-Aufbau . 616 

Font-Mueterdaten . 414, 416 

Font-Ofbet-Tabelle . 414 

Font-Pointer . 626 

Font-Puffer . 620 

Font-Puffer-Adreite . 610 

Font-Scan-Line. 414, 416 

Font-Speicher . 600 

Font-Vektoren . 620 

Font-Zeiger . 621 

Format-String . 326 

Format-Zahl => String . 336 

Formatier-Utilitiee . 630 

Formatierte String-Eingabe . 60 

Formatleichen . 00 

Formular . 646 

Formular 1 lentrieren . 680 

Formular-Autgang . 666 

Formular-Bedienung . 680 

Formular-Hintergrund puffem/reataurieren . 666 

Formular-Objekt . 662 

Formular-Texteingabe . 667 

Formularkoordinaten tentrieren . 666 

Frageteichen . 456 

Freien Dieketten-Speicherplata autgeben . 103 

Freien Speicherplati ermitteln. 411 

FULL-Feld . 477 

FÜLLER. 670 

Fulltcreen . 181, 316 

Funktion. 107 

Funktion aufrufen . 104 

Funktiont-Aufrufe. 62 

Funktiontname . 102 

Funktionataaten. 417 

Funktionataaten belegen . 417 

Funktionatypen . 102 

Füll-Routine . 416 
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Füllbcreich . 289 

FQIIfub« . 619 

Füllmuiter . 414, 416, 592, 619 

Fallmiuter bMtimmen . 254 

FUllmuiter-Adreue . 861 

FQIImuater-Muk« . 415 

FQUmu«t*rd>t«n-Stutadreue . 602 

FUllmusterfarb« . 592 

FUlltyp . 619 

Füllvorganc . 276 

G BOX . 536, 592 

G_BOXCHAR . 592 

G_BOXTEXT. 548 

G_IBOX . 536, 592 

G_ICON-Gr»fik. 594 

G_ICON-Unt«ntruktur (36 Byte) . 594 

G_IMAGE-Unterftniktur (14 Byte) . 595 

G_PROGDEF-Untentruktur (8 Byte) . 595 

Ganiiahl-Funktion . 233, 235 

Ganiiahldivieion . 229 

Garbage-Collection . 219, 411 

GCONTRL-Array-Start . 598 

GDOS reeident?. 502 

GDOS-Font . 509 

GDOS-Font laden . 515 

GDOS-Font löechen . 515 

GDOS-Font-Header. 413 

GDOS-Font-Name/-Kennung liefern . 514 

GDOS-Format . 287, 290 

GEM. 499 

GEM Übernimmt Formular-Verwaltung. 556 

GEM-Alert-Box . 454 

GEM-Applikation abmelden . 548 

GEM-Applikation anmelden . 549 

GEM-Bildechirmbreite . 476 

GEM-Bildichirmhöhe. 476 

GEM-Bit-Raater-Grafik . 595 

GEM-Bit-Raiter-Modue . 594 

GEM-Daten . 455 

GEM-Eingabeeeilen . 422 

GEM-Font . 512 

GEM-Font-Pointer . 523 

GEM-Formular . 546 

GEM-Handle . 476 

GEM-Haupt-Window . 480 

GEM-Reiource-Datei . 570 

GEM-String-AutmaBe berechnen . 512 

GEM-Window . 576 

GEM-Window-Handle . 491 

GEM-Window-Handle ermitteln . 475 

GEMDOS-Fehler-Code . 608 

GEMDOS-Routinen aufrufen . 608 

Gemeinsamer Schwerpunkt . 194 

Geometrie . 867 

Geometrische Figuren . 251 

Gerätetreiber . 507 

Geräuscherseugung. 151 

Gesamt-Cluster-Ansahl . 614 
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G«amtfen>ter. 577 

Gefuntfläche . 575 

Gasamtschwerpunkt . 106 

Gaschwindigksit der Schrsib-/Lesekopf-Bswegung. 657 

GFA-Handls . 505, 649 

GFA-Multi-Evsnt-Funktion. 493 

GFA-Opcode. S8J 

GFA-Window-Nummsr ermitteln . 476 

GINTIN-Array-L&nge. 509 

GINTIN-Array-Start . 698 

GINTOUT-Array-LKnge . 699 

GINTOUT-Array-Start . 698 

Global-Array-Start . 598 

Globale Deklaration . 189 

Globalen GEM-Puffer (Clipboard) lesen . 571 

Globalen GEM-Puffer (Clipboard) schreiben . 572 

Goethescher Farbkreis . 268 

Grad . 239 

Grad-Winkelangabe . 230 

Grafik-Attribute . 417 

Grafik-Icon . 292 

Grafik-Nullpunkt . 473, 476 

Grafik-Objekte. 594 

Grafik-Tablett . 600 

Grafikausgabe begrensen/Nullpunkt setsen . 296 

Grafikmodus . 303, 414, 619 

Grafikmodus bestimmen in V3.0. 254 

Grafikmodus-Tabelle. 167 

Grafikseite . 604, 610 

Grenskoordinate. 576 

GroBbuchstaben . 199, 227, 352 

Gr6Be des Fonts . 603 

GrOBenfeld . 492 

Größten String ermitteln . 240 

Größten Wert ermitteln . 240 

GrOn-Intensitkt . 413 

Gummiband-Box (Lasso) produsieren. 561 

H_slide . 662 

Halfline . 603 

Haltedauer. 162 

Handshake . 627 

Hard-Disk . 661 

Hardcopy . 663 

Hardcopy-Funktion . 656 

Hardware-Farbregister einstellen in V3.0 . 266 

Hardware-Registerindex. 266 

Haupt-Direktory .95, 102 

HKkchen . 689 

HBL-ZUiler. 647 

Header-Datei. 632 

Hellschrift-Maske . 604 

Hexadetimal . 32 

Hexadesimalsystem. 331 

HI- und LO-Word vertauschen . 248 

HIDETREE . 543, 588 

Hierarchische Struktur . 04 

Hintergrund-Maske . 694 

Hintergrund-Restauration . 558, 575 
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Hintcrgrund-Scrmnverwaltung . S24 

Hintargrundfarb« . 361, 414 

HinwaU-Formular (Alert-Box) eneugen . 554 

HinweU-Formular (TOS-Error) eneugen . 557 

Hiree . 316 

Hires-Font-Daten . 517 

History-Modui . 734 

Home . 397, 631 

Horiiontal-Offset-Tabelle . 604 

Horiiontalachieber . 477, 577, 578 

Hohe des Bildschirms. 416 

Höhe eines Pixels . 416 

HöhenvarhUtnis . 307 

HSLIDE-Balken . 477 

Hüllkurve. 153 

Hüllkurven-LKnge . 650 

Hüllkurvenform . 650 

I/O-Puffer-Datenblock . 636 

I/Oboxl-Eraignis . 403 

I/Obox3-Ereignis . 493 

lb_char . 594 

Ib_col. 594 

Ib_hicon . 504 

Ib_htaxt. 504 

Ib_pdata . 594 

Ib_j>maak . 504 

Ib_ptext . 594 

Ib_resvd. 594 

Ib_wicon . 594 

Ib_wtext . 594 

Ib_xehar . 594 

Ib_xicon . 594 

Ib_xtext . 594 

Ib_ychar . 504 

Ib_yicon . 594 

Ib_ytext . 594 

Icon . 546 

Icon-Block-Poeition . 591 

Icon-Ekiitor . 546 

Icon-Maske. 504 

ICONBLK . 543, 587, 594 

ICONBLK- . 590 

Identifikationskennsiffer . 548 

Identifikationssiffer . 135 

Identifikator . 96, 131 

Index-Steuerung. 130 

lEEE-Double/Single-Realformat lesen . 377 

IKB . 654 

Illegal Instruction-Exception. 313 

Illegal-Routine . 314 

Image. 546 

Image-Bibliotheken . 330 

Image-Daten . 501 

IMP . 38, 339 

IMP-Modus . 345 

Implikation . 339 

Implikations-Funktion . 345 

In AES-ADDRIN-Block als Array schreiben . 507 
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In AES-ADDROUT-Block all Array tchrcibcn. 507 

In AES-INTIN-Block all Array ichreibcn. 599 

In CONTRL-Block all Array ichreibcn. 599 

In Environment-Puffer ichreiben . 573 

In Ereigniipuffer ichreiben . 551 

In INTOUT-BIock all Array ichreiben. 600, 601 

In PTSOUT-Block all Array ichreiben . 601 

In VDI-INTIN-Block ali Array ichreiben . 600 

In VDI-PTSIN-Block all Array ichreiben. 601 

Index-Auicab«d*t«> . 

Index-Auigaben . 538 

INDIRECT . 589 

Indirekte Obergabe von Feldern . 452 

Indiiierte Wiederholungichleife . 156 

INFO-Zeile . 477 

Initialiiierungi-Sequenien . 149 

Inkrementierung . 230 

Input . 125 

INSTR-Abfragen . 171 

Integer-Additionifunktion. 231 

Integer-Diviiion . 246 

Intiger-Diviiionifunktion. 232 

Integer-Modula-Funktion . 232 

Integer-Multiplikation. 246 

Integer-Multiplikationifunktion . 232 

Integer-Subtraktionifunktion . 232 

InUger-Oberlauf. 449 

Integeranteil . 231 

Integerwert => FlieBkommawert . 334 

Intelligent Keyboard. 139 

Interferenien . 328 

Interpolierte Coiinuc-Funktion mit Grad-Angabe . 237 

Interpolierte Sinui-Funktion mit Grad-Angabe. 239 

Interpreter. 702 

Interrupt . 140 

Interrupt-Controller. 646 

Interrupt-Routine freigeben . 429 

Interrupt-Routine iperren . 429 

Interrupt-Routinen . 646 

Interrupt-Routinenaufruf. 428 

Interrupt-Sound-Programmierung . 651 

Interrupt-Verwaltung. 426 

Italic . 415 

Joyatick-Dauermeldung. 144 

Joyitick-Fire-Buttoni abfragen . 470 

Joyitick-Modui . 143, 468 

Joyitick-Port . 143, 467 

Joyitick-Statui . 143 

Kamera. 500 

Kammerton A . 151 

Kanal-Nummer . 122 

Karteikaeten . 668 

Kettenindex. 294 

Keyboard-Proieeeor . 135, 139 

Kind-Ebene . 567, 585 

Klammerrechnung . 168 

Klammerietiung . 166 
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Klangautfftbe . 150, 151 

Kl«inbuchitab€n . 199, 352 

Kleinsten Wert/String ermitteln . 240 

Klemmbrett . 544 

Klickeniehl. 494 

Klickpeuee . 399 

Kniffei . 169 

Kombinierte Abbruchbedingungen . 158 

Kommendobereich . 410 

Kommendoseile . 101, 212, 410, 674 

Kommenter einfUgen in V3.0 . 176 

Kommenter innerhelb einer Befehisseile . 176 

Komplementwerten. 246 

Konjunktion . 229 

Kontrollfeld . 398, 403 

Koordineten-Nullpunkt. 296 

Koordinetenpeere. 280, 286 

Koordinetenpuffer . 414 

Koordineteni&hler setsen . 142 

Kopfbelken . 460, 492 

Kreis(bogen) seichnen in V3.0 . 276 

Kreisbogen. 276 

Kreissehl . 237 

Kursiv-Tolerens . 604 

Kursivschrift-Meske . 604 

Lebel-Nemen . 432 

LASTOB . 688 

Leufwerk . 102, 611 

Leufwerkbeseichnung . 94 

Leufwerksymbol . 694 

Leufseit ermitteln . 403 

Leutst&rkc . 160 

Leutstkrke . 660 

Leerseichen . 227 

Leerseichen ausgeben . 93 

Leerseichen-String bilden. 226 

Length Of File . 126 

Leseseiger . 124, 128 

Lesesugriffe. 126 

Letste Meusektion . 367 

Letstes Objekt der Kind-Ebene lesen/schreiben (Word) . 687 

LFARROW . 477 

Lightend . 416, 689 

Line Feed.69, 183 

Line-A gefülltes Rechteck seichnen . 289 

Line-A Grafik. 287 

Line-A Grefiktext eusgeben . 290 

Line-A horisontele Linie seichnen . 291 

Line-A-Bildschirmpunkt testen . 296 

Line-A-Clip-Box setsen. 287 

Line-A-Einsel-Textseichen eusgeben . 286 

Line-A-Linie seichnen. 288 

Line-A-Punkt seichnen . 292 

Line-A-Vektor . 626 

Line-A-Vieleck seichnen . 288 

Line-Feed . 114 

Linie seichnen. 283 

Linien-Modi bestimmen . 267 
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LinienbreiUn . 416 

Liniendicke . 257, 610 

Linienendform . 257, 619 

Linienfmrbe . 619 

Linienfarbe bestimmen . 252 

Linienmutter . 268 

Linienttartform. 619 

Linienttil . 267 

Linientyp . 619 

Linientypen . 416 

Linieniuf. 279, 286 

Linke <Shift>-Ta»te. 607 

Linksbündigen Teil-String ermitteln . 223 

Linkspfeil . 477 

Liste der fehlerhaften Sektor-Nummern . 645 

Listing-Format festlegen . 447 

Location . 124 

LOCKED . 639 

Logarithmus . 234 

Logischen Operatoren. 167, 229 

Logischer Bildschirm . 623 

LOGO-Turtle-GraTik . 281 

Ijogscreen. 364, 366 

Lokale Variablen deklarieren . 203 

Lokales Swap-Feld . 301 

Lower . 198 

Lowres . 315 

Lowres->Hires-Konvertierungen. 315 

Lowres->Midres-Konvertierungen . 314 

LST.-Files . 114 

Lupe . 272 

MALLOC()-Speicher einschränken . 387 

MALLOCQ-Speicher freigeben. 386 

Marker-Attribute . 285 

Markerbreite. 417 

Markerfarbe. 619 

Markergröße . 619 

Markerhöhe . 417 

Markertypen . 416, 619 

Markierungs-Symbol bestimmen in V3.0. 267 

Markierungs-Symbol . 278 

Maschinen-Code. 209, 388 

Maschinen-Monitor. 214 

Maschinen-Programm aufrufen in V3.0. 213 

Maschinen-Programmaufruf mit Registersugriff . 218 

Maschinenprogramm (assembliert) aufrufen in V3.0 . 213 

Maschinenprogramm (C-compiliert) aufrufen . 208 

Maschinenroutine . 209 

Maskenmuster . 413 

Matrixdrucker . 664 

Maus positionieren . 622 

Maus simulieren. 466 

Maus-Definitions-String . 466 

Maus-Ereignis/Box 1 . 663 

Maus-Image . 262 

Maus-Port im Joystick-Modus abfragen . 468 

Maus-Port-Abfragemodus bestimmen. 467 

Maus-Skalierung . 141 
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Maut-Stfttut. 481 

Maui-Status ermitteln feintelnl . 466 

Maue-Statue ermitteln (gesamt) in V3.0 . 464 

Maua-Steuerung. 467 

Maua-String . 361 

Mauabild. 269 

Mauadaten . 261, 413 

Mauaform . 660 

Mauaform beatimmen in VS.O . 369 

Mauaform beatimmen (DEFMOUSE) . 660 

Mausknopf-Ereignis . 663 

Mauskontakt ausachalten . 143 

Mauakontakt einschalten . 140 

Mauamaske . 360 

Mausraater-Index-Ermittlung . 293 

Mauaatartadreaae . 466 

Maustaaten-Ereignia. 492 

Maustaaten-Reaktion . 140 

Maustaaten-Status . 493 

Maustaatenklick . 661 

MausUberwachung im Formular . 666 

Mauaverwaltung . 633 

Mauaseiger. 464, 660 

Mauaseiger anachalten . 336 

Mauaseiger ausachalten . 303 

Mauaseiger-Kontrolle . 417 

Max. Zeilenl&nge . 80 

Maximal mögliche String-Lknge. 79 

Maximalauadehnung. 676 

Maximale Eingabeseilenlänge . 193 

Maximum . 664 

Media-Change-Flag . 366 

Media-Change-Kontrolle . 661 

Media-Deacriptor . 640 

Meditationshilfe. 369 

Mehrfach-Zeichenkette bilden . 237 

Memory Deacriptor. 661 

Memory-Allocated-List . 606 

Memory-Controller . 667 

Memory-Form-Definition-Block . 360 

Memory-Free-List . 606 

Memory-Parameter-Block . 606, 661 

Menge der Feldelemente ermitteln. 347 

Menü . 647 

Menü-Checkmark seichnen/löachen . 664 

Menü-Ereignis . 663 

Menü-Handling . 648 

Menü-Index. 301 

Menü-Objektbaum. 491 

Menü-Part-Box . 682 

Menü-Text anpaaaen . 664 

Menü-Titel invera/normal. 666 

Menü-Typ . 682 

Menü-Oberwachung . 494 

Menübaum-Adreaae. 681 

Menüeintr&ge aktivieren/deaktivieren . 664 

Menüleiste . 474 

Menüpunkt . 490 

Menüpunkt-Attribute beatimmen . 487 
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MenOpunkt-Texteleimnt. 482 

McnOtaxt-Dafinition . 864 

MenOtcxt-Indax . 401 

MenOtcxtMiU . 564 

ManOtit«! invertieren . 400 

MenOieile ISechen . 400 

MenOieilen-Aueeparung . 472 

MenOieilenbereich . 474 

MenQeeilentext . 200 

Meeeege-Ereigni« . 402 

Meaeage-LKnge . 402 

Metesge-Puffer. 401 

Meeeage-Puffer-EreignU . 480 

Metafüe . 400 

Metefile-Auegabe . 417 

MFP-Interruptvektor. 626 

MFP-Timer-Interrupt-Routine . 648 

MFP-Vektor. 646, 647 

MIDI . 626 

MIDI-Datenatandard . 187 

MIDI-Eingabe-Routine . 665 

MIDI-Fehler-Behandlung . 655 

MIDI-IN-Port . 188 

MIDI-Out-Port . 187 

MIDI-Port . 186 

MIDI-Pufler . 187 

MIDI-Oberlauf . 665 

Midrec . 815 

Minue-Identifikator. 47 

Mirror-Modue. 157 

Miachwert . 267 

Mnemonic . 114 

Modulationsfrequeni . 152 

Modulo-Berechnung . 220, 282 

Monochrom-Bildechirm. 818 

Moueevec . 140 

MOVE-Balken . 472, 477 

MOVER . 570 

MS-DOS. 684 

Multi-Event . 407 

Multiplikationibefehl . 280 

Mueical Inetrumenti Digital Interface . 186 

Mueter-Definitionen . 254 

Mutter-Maeke . 861 

Mueter-Rückgabe . 266 

Mutter-Objekt . 548 

Mutterobjekt . 586 

Müll-Sanrunlung. 411 

Müll-Symbol . 456 

Nachkonunabereich . 447 

Nachkommaetellen . 283, 447 

NAME . 477 

Namenaepeiifikation . 180 

Nichetee Objekt dereelbcn Ebene leeen/fchreiben (Word) . 586 

NächetgrOSere Ganeiahl ermitteln. 236 

NichetgrüSeree ASCII-Zeichen ermitteln . 226 

Nichstkleinere Ganetahl ermitteln . 234 

Nichetkleineree ASCII-Zeichen ermitteln. 224 
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NDC-Koodinaten . 499 

Nagktion . 229 

Naigunpwinkel . 238 

NibbU . 334 

NONB-Obj«kt . 588 

NORMAL . 639 

NORMAL-Objekt . 689 

NOT . 39, 229 

Note. 160 

NulldivUion-Routine . 214 

Nullleichen . 183 

Numerisch => Binür . 330 

Numerisch => Hexsdesimal . 336 

Numerisch => Oktal . 336 

Numerisch => String . 337 

NumLock-Modiu. 421 

Nur-Lese-Datei . 616 

OB_SPEC . 692 

Objekt deaktivieren. 666 

Objekt in Baum einfügen . 666 

Objekt neu suordnen . 668 

Objekt(e) darstellen . 666 

Objekt-Adresse (Long) . 686 

Objekt-Ansahl . 691 

Objekt-Attribute lesen/schreiben (Word) . 688 

Objekt-Aufruf . 690 

Objekt-Beschreibungen . 631 

Objekt-Ebene. 668 

Objekt-Feld-Position . 691 

Objekt-Status lindem . 666 

Objekt-Status lesen/schreiben (Word) . 689 

Objekt-Texteingabe . 667 

Objekt-Typ . 636 

Objekt-Typ lesen/schreiben (Word) . 687 

Objekt-Variablen . 671 

Objektbaum-Symbole . 634 

Objektbaum-Tabellenseiger . 691 

Objektbaum-Typ . 635 

Objektbreite (Word) . 691 

Objektdarstellung. 695 

Objektgruppe . 688 

Objekthehe (Word) . 691 

Objektindises . 632 

Objektkoordinaten umwandeln . 670 

Objektnamen . 632 

Objektnummer ermitteln . 667 

Objektrahmen . 692 

Objektstatut . 666 

Objektstatus gem&B Mausposition (in/out) . 663 

Objektstruktur . 571, 686 

Objekttext . 667 

Objekttypen . 632, 687 

OffLine . 146 

Oktal-String. 336 

Oktalsystem. 331 

Oktave. 160 

OLIFONT-Font . 621 

OnLine . 419 
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Opcoda* . 33, 618 

Open-Workstation . 413 

Op«n-Work(tation-Rückgabe-Array . 416 

Optimierung . 116 

OR. 37, J29 

OR-Kette . 163 

OR-Modue . 246 

Ordner .96, 614 

Ordner eraeugen . 118 

Ordner ISechen . 120 

Ordner wechseln . 102 

Ordner-Namen . 636 

Ordner-Symbol . 456 

Original-8xl6-ROM-Font-Adresse . 622 

Original-Font . 623 

Original-Font-Daten-ROM-Adreese. 617 

Original-GEM-Handle . 476 

Original-Intout-Feld des GEM . 614 

OUTLINED . 644, 689 

Output . 126 

Output-Datei öffnen . 128 

P-Grafikunurandung an/aus . 251 

P-Umrahmung . 620 

Packer . 181 

Parallel-Applikation . 649 

Parallelfeld . 361 

ParallelproseB. 404 

PARMBLK. 696 

Part-Box . 536, 640 

PATH . 672 

Pb_currstate . 696 

Pbji . 696 

Pb_hc . 696 

Pb_obj . 696 

Pb parm . 696 

Pb_prevstate . 696 

Pb_tree . 696 

Pb_w . 596 

Pb_wc . 696 

Pb_x . 696 

Pb_xc . 696 

Pb_y . 696 

Pb_yc . 696 

Pen . 281 

Pen-Status . 283 

Periode . 161 

Periodendauer . 660 

Peripherie-Port . 136 

Pfad . 97 

Pfadbeseichnung . 422 

Pfadnamen . 460 

Pfadstruktur. 117 

Pfeil-hoch. 76 

Pfeil-links . 76 

Pfeil-rechts. 76 

Pfeil-runter . 76 

Pfeiltaste . 402 

Physikalischer Bildschirmspeicher . 623 
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Phyitcrean . 364, 366 

Pip« . 664 

Pixd-Format. 670 

Plui«-Biti . 310 

Plana-Hierarchie . 313 

Plan«-St«Uung. 313 

Plottar . 600 

Plott<r-(Turtle-)Attribute liefern . 383 

PloUer-(Turtle-)Grarik. 381 

Plotter-Simulation . 381 

Pointer . 391 

Pointer-Sternchen . 186 

Pointer-Variablen . 307, 390 

Pointer/Feld-SWAP . 461 

Polygon leichnen . 386 

Polygon leichnen, gefüllt . 378 

Polygon-Ecken . 386 

Polygon-Eckpunkte markieren . 378 

Pop-Up-MenO . 398, 301 

Port auf Auigabebereitichaft teiten . 138 

Port auf Empfangsbereitichaft teeten . 134 

Poaitioniliite . 333 

Poatfix . 190 

PRG-Symbo. 466 

PRINT-Texteinitellung. 480 

Prioritäten. 69 

PRIVILEG-Routine . 314 

Proc.-Beitimmung fIBox/Maui-Event) . 496 

Proc.-Beitimmung (Mauiknopf-Event) . 494 

Proc.-Beitimmung fMenU-EventI . 494 

Proc.-Beitimmung (Multi-Event) . 497 

Proc.-Beitimmung (OBox/Maui-Event) . 496 

Proc.-Beitimmung (Taitatur-Event) . 497 

Program-Counter . 316 

Programm (nach STOP-Befehl) fortietien. 393 

Programm beenden. 393 

Programm in Abeitiipeicher laden . 117 

Programm laden/itarten . 311 

Programm liiten/ipeichern (ASCII) . 113 

Programm nach Error-Routine fortietien . 408 

Programm ipeichern (codiert) . 130 

Programm ipeichem (liitgeichQtit) . 119 

Programm itarten . 394 

Programm unterbrechen . 396 

Programm-Editor. 736 

Programm-File . 396 

Programm-Header. 311 

Programm-Liiting . 393 

Programm-Liating auidrucken . 146 

Programroende (Interpreter verlaiien) . 396 

Programmende (RQckkehr lum Deiktop) . 394 

Programmipeicher löichen . 397 

Programmieilenteile . 419 

Proiedur-Titel in V3.0 . 306 

Proieduraufnif . 63 

Proiedurblock . 433 

Proiedumamen . 433 

Proieiior . 38 

Proienor-Regiiter. 663 
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PMudo-SpriU. 469 

Pull-Down-ManQ . 298 

Pull-Down-ManO «ntallan . 487 

Punkt aaichnan . 284 

Punkt-Bafahla . 146 

Punkta laichnan und varbindan . 279 

Punkta-Katta . 279 

Punkta-Spaichar. 280 

PunktfariM . 275 

PUT-Box . 275 

PUT-Flicha . 271 

Quadratwunal . 235 

Quallraatar. 359, 361 

R-D»tai . 131 

Radian . 236, 237 

Rahman-Objakt . 562 

Rahmanbox . 559 

Rahmandicka . 592, 593 

Rahmanfarba . 593 

RAM. 35 

RAM-Zaichanaati. 149 

RAMKART . 665 

Randobjakt. 492 

Random . 126 

Random-Accaaa-Datei. 126, 130, 221 

Random-Datai. 123 

Raatar fOr Mauimaldungan . 141 

Raatar-Abfragaroutina . 292 

Raatar-Indax . 294 

Raatarbraite . 361 

Raatarfald . 293 

Raatarhfiha . 361 

Raatarindax . 275 

Rauach-Ganaratoran . 152 

Rauachganarator-Fraquana. 650 

Rauachragittar . 151 

RBUTTON . 588 

RCS-Obarnkcha . 533 

RCS.PRG . 531 

Raaktiona-Varaögerung . 655 

Raal-Faldvariabla . 415 

Raalaahlvariable . 415 

Rachta <Shift>-Taata. 607 

Rachtack abgarundat aaichnan . 278 

Rachtack aaichnan in V3.0. 271 

Rachtacklute . 577, 579 

RachtabUndigen Teil-String ermitteln . 224 

Rachtapfail. 477 

Rachtwinkligaa Dreieck. 251 

Radraw . 556 

Rafaranaliate . 430 

Rakuraion . 110, 206 

Rakuraive Proiedur . 109 

Ralativa Objakt-X-Koordinate lWordI . 590 

Relative Objakt-Y-Koordinate (Word) . 590 

Raloaieren . 211 

REM-Killer . 186 
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REPLACB . 266 

RaMrviert« Sektoren. 630 

Reeet-Vektor. 667 

Retource . 680 

Reeource laden . 681 

Reeource löechen . 682 

Reiource-Adreaee einfUgen . 671 

Reeource-Adreue ermitteln . 669 

Reaource-Conetruction-Set . 631 

Reeource-Constniction-Programm. 646 

Reeource-Datei laden . 670 

Reeource-Definition. 670 

Retource-File . 388, 631 

Reeource-Speicher freigeben . 669 

Rettungapuffer. 406 

REVERS TRANSPARENT. 266, 306 

Raven-Text . 401 

Ravenmodui . 87 

RGB-Einatellungen . 412 

RGB-Farbanteile . 270 

ROM . 36 

ROM-Modul. 623 

Rot -Intensität . 413 

Rotationswinkel . 620 

RS232-Schnittstelle . 136, 609, 626, 647, 664 

RSC-File . 670 

RSC-File-Vonpann (38 Bytes) . 601 

RSC-HEADER. 691 

RTARROW . 477 

RTS . 627 

Rubberbox. 466 

Run-Only-Interpreter . 396 

Run-Only-Interpreter . 722 

Rundung von Ziffem-Ausgaben . 447 

Rundungen . 236 

Rundungs-Funktion . 234 

RQckgabeparameter . 647 

ROekgabevariablen . 301 

Rücksprungadresse . 200 

RUcksprungadresse nach TRAP# 14 . 661 

Rücksprunganweisung . 198 

Sats des Pythagoras . 46 

Sats-Pointer für GET#/PUT# setsen. 128 

Sats-Zeiger. 128 

Satslänge . 132 

Satsnununer . 124 

Scan-Code . 71, 420, 492, 652, 628 

Scan-Line . 623 

Scan-Lines des akt. Füllmusten. 602 

Scan-Lines des Fonts . 604 

Scan-Zeile . 441 

Schatten . 689 

Schiebebox innerhalb von Formularen . 662 

Schiebebox produsieren . 668 

Schieber. 491 

Schieber-Objekt . 562 

Schiebermittelpunkt . 662 

Schleife . 64 
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Schleifenwendepunkte . E6 

Sehnittflkche . S22 

Schnittpunkt . 47S 

Schnittetelle. 126, 1S4 

Schreibfeechütite Datei . 106 

Schrifthöhen . 416 

Schrittweite . 156 

SchwarsweiS-Drucker. 654 

Schwaraee Brett. 571 

Schwerpunkt-Achten. 196 

Schwingungtfrequeni. 151 

Scrap-Puffer. 672 

Screen-Adreaien . 659 

Screen-Dump . 146 

Screene tauechen . S69 

Scroll-Balken. 491 

Scroll-Routine . 210 

Sektor. 607, 630 

Sektoren auf der DUkette . 639 

Sektoren leeen. 606 

Sektoren pro Clueter. 614 

Sektoren pro Clueter. 639 

Sektoren pro FAT . 640 

Sektoren pro Track. 640 

Sektoren schreiben . 606 

Sektorenfolge . 642 

SektorgröSe . 614 

Selbet organieierte Datenverwaltung . 388 

SELECTABLE . 644, 588 

SELECTED . 589 

SELECTED-Bit . 546 

SELECTED-Statue .. 581 

Sendebereitschaft . 647 

Sequent-Oberwachung . 438 

Sariennummer. 636, 639 

SHADOWED . 689 

Shift-Iinke . 420 

Shift-rechte . 420 

Shift-Taete . 73 

SID . 216 

SID-Bingabe-Ebene . 216 

Single-Interrupt-Routinenaufruf. 425 

Single-Intemiptroutine freigeben . 427 

Single-Interruptroutine sperren. 427 

Sinue-Funktion . 239 

SIZE-Feld . 477 

Skalierung . 415 

Softicrolling. 364 

Software-Band . 549 

Sondertaete. 557 

Sondertaeten. 70 

Sondeneichen. 76 

Sondeneichen ausgeben . 126 

Sonderteicheneingabe . 421 

Sortier-Algorithmen . 353 

Sortierung. 360 

Sortiervorgabe . 362 

Sound-Attribute einstellen . 151 

Sound-Generatoren . 152 
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Sound'Kanäl« . 650 

Sound-R«gister. 150, 647 

Sound-String. 640, 652 

Sound-Verarbeitung. 647 

Soundregietemununer. 150 

Source-Code . 518 

Space . 227 

Space-Zeichen eliminieren . 227 

Spaltenpoeition. 410 

Speicher-Rechteck . S58 

Speicher-Reetauration . 212 

Speicherbereich auf Disk speichern . 08 

Speicherbereiche verknüpfen in VS.O . 358 

Speicherblock kopieren in VS.O. 362 

Speicherblock-Transfer . 362 

Speicherblockadresse . 387 

Speicherblockfehler . 387 

Speicherinhalt lesen (User-Modus) . 373 

Speicherinhalt auslesen (Supervisor-Modus) . 370 

Speicherinhalt indem(User-Modu8) . 380 

Speicherintemes Rechteck-Copy . 310 

Speichermanipulationen . 380 

Speicherplats-Ermittlung. 412 

Spesial-Font. 626 

Spesialformaten . 638 

Spiegel-Flag . 440 

Spiegeln . 157 

Sprite setsen und löschen . 325 

Sprite-Daten . 326 

Sprite-Definition-Block. 412 

Sprite-Form . 326 

Sprungsiel. 202 

ST-Standard-Mausroutine . 650 

Stack . 208 

Stack-Pointer. 406, 518 

STAD-Font . 521 

STAD-Font-Datei. 526 

Standard-Desktop . 570 

Standard-Disketten. 640 

Standard-Font . 320, 660 

Standard-Formatierung . 631 

Standard-Format . 08 

Standard-Vbl-Adresse . 376 

Standard-Vbl-Interrupt . 374 

Standard-Zeichensats. 603 

Start-Cluster. 636 

Startadresse der aktuellen Cursor-Position . 414 

Startadresse der Alert-Symbole. 468 

Startadresse der Desk-Symbole . 468 

Startadresse der logischen Screen . 624 

Startadresse der Maus-Images. 458 

Startadresse der physikalischen Screen. 624 

Startadresse des AES. 663 

Startadresse des Array-Zeigerblocks . 508 

Startadresse des Betriebssystems. 663 

Startrechteck . 660, 662 

Stationsbestimmung . 103 

Stationsvorgabe . 110 

Status der Umschalttasten . 366, 661 
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St»tiu des Tutaturpuflcn . 

Stuichung dar Buchatabanabatbida. 

Stallanwartigkaitan . 

Stauarbua . 

Steuaneichan. 

Stauarsaichan auagaban . 

STOP-SchUd . 

Stopaaichan . 

StrahlrflcUauf. 

Strackung . 

Stratch-Faktor . 

Strich-Curaor . 

String => Format-Zahl . 

String => Niunariach . 

String-/Fald-Daacriptoradraaaa armittaln 

String-Eingaba mit Vorgabe . 

String-Feld in Datei ablagan . 

String-Feldvariabla . 

String-Funktioninamen . 

String-Linge ermitteln . 

String-Liata . 

String-Variablan . 

String-Zaigar. 

Strukturadraaaan . 

Strukturaaigar . 

SUB { SU }...ENDSUB { ENDSU }. 

Subdiractory . 

Subtraktionabefahl in VS.O . 

Such-Saquena . 

Suchblock-GrOSa . 

Suchbloekpuffar. 

Suehkritarian . 

Suchpfad . 

Suchpuffar . 

SUPER-Font-Text . 

Super-Stack . 

Suparviaor-Stack . 

Suparviaor-Adraaaan . 

Suparviaor-Bereich . 

Suparviaor-Modua . 

Suparviaor-Modua . 

Suparviaor-Poka . 

Swap-Faid ISachan . 

Saritch/Caae . 

Synthaaiaer . 

Syatam Clock . 

Syatam-Datai . 

Syatam-Datum . 

Syatam-Font . 

Syatem-Font-Headar. 

Syatam-Font-Zaiger . 

Syatam-Spaicher-Reaarvierung. 

Syatam-Timer. 

Syatam-Timer-Aufrufe . 

Syatem-Uhraait . 

Syatam-Uhraait ermitteln . 

Syatam-Zaichanaata . 

Syatem-Zaitlupa . 

Syatam-ZugrifTa. 


. 611 

. 279 

. 331 

. 38 

.84, 139 

. 81 

. 456 

. 654 

. 327 

. 279 

. 440 

. 460 

. 336 

. 338 

. 391 

. 70 

. 130 

. 416 

. 432 

. 223 

. 340 

. 191, 416 

. 690 

. 669 

631, 666, 671 

. 206 

. 94, 106, 460 

. 232 

. 443 

. 366 

. 468 

. 108 

.94, 104 

. 366 

. 629 

. 406, 613 

. 618 

. 376 

356, 363, 372 

. 373, 379 

. 612 

. 380 

. 303 

. 172 

. 137 

. 647 

. 616 

. 613 

603, 604, 632 

. 617 

. 616 

. 383 

. 662 

. 668 

. 613 

. 403 

. 614 

. 373 

.. 383 






























































Index 


823 


Syitcmdatum. S98 

SyiUmtakt . 647 

Tabulator Mtian. 03 

Taktfroquana . 6SS 

Tanftiu-Funktion . 139 

Taatatur . 616 

Taatatur abfragcn . 416 

Taatatur-Attribute definieren . 411 

Taatatur-Code. 411 

Taatatur-Datenpakete. 656 

Taatatur-Ereignia . 491, 663 

Taatatur-Fehler-Behandlung . 666 

Taatatur-Klick . 661 

Taatatur-Kommandoe . 610 

Taatatur-Kontrolle. 141 

Taatatur-Puifer löachen . 441 

Taatatur-Repeat . 656, 661 

Taatatur-Statua-Paket. 665 

Taatatur-Oberlauf. 666 

Taatatur-Obererachung . 497 

Taataturattribute . 71 

Taataturbelegung . 411, 617, 646 

Taataturklick . 661 

Taataturkontrolle . 139, 688 

Taataturproaaaaor . 646, 664 

Taataturpuffer . 411 

Taataturpuffar . 610 

Taataturepeicher. 71 

Taaten-Statua . 496 

Taatendruck ainnulieren . 411 

Tauaendertrennung . 80 

Te_color. 693 

Ta_font . 603 

Te_juat . 693 

Te_ptext . 693 

Te_ptmplt. 693 

Te_pvalid. 693 

Te_reavd . 693 

Te_reevdl . 693 

Te_thickneBa . 693 

Te_tmplen . 603 

Te_txtlen . 603 

TEDINFO . 686, 687, 601 

TEDINFO- . 690 

Tedinfo-Poaition . 691 

Teil-String auweiaen in V3.0 . 111 

Tail-String-Poeition . 116 

Teildatei leeen . 111 

Teildatei ichreiben . 111 

Tempelmann-Debugger . 116 

Teat . 664 

Tetrade. 334 

Text im Grafikmodua auageben . 178 

Text invera achreiben . 611 

Text normal achreiben . 611 

Text-Objekte . 691 

Text-Puffer . 671 

Text-String vom MID-IN-Port leaen . 138 
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Taxt-String vom MiieUen Port (RS232) lesen . 137 

Textart . 263 

Tcxtauirichtung . 593 

Textbalken . 463 

Textbereich für V3.0-CompUer deklarieren . 446 

Texteingabe . 417 

Texteingabe-Objekten . 641 

Textfarbe. 620 

Textfeldindex . SOI 

Texthintergrundfarbe . 414 

Texthöhe . 263 

Textobjekt. 666, 680 

Textobjekt-Unteritruktur (28 Byte) . 692 

Textrotation . 416, 417 

Taxteegment . 409 

TaxUtatua . 416 

Textverarbeitung. 127 

Taxtwinkel. 263 

Taxteeichen => ASCII-Wert . 829 

Textaeichenhöhe. 414 

Ticke. 426, 428 

Tiefstriche . 641 

Timer-Ereignis . 492, 663 

Token-Code . 113 

Tool-Box. 640 

Tool-Box . 633 

Topline . 603 

TOS . 36 

TOS-Befahl . 83 

TOS-Befehlan. 616 

TOS-Bildschirm . 474 

TOS-Bildschirm . 82 

TOS-Cursor-Spalte . 410 

TOS-Cursor-Zeile . 410 

TOS-Dirakt-Ausgabe . 71 

TOS-Farbwert. SIS 

TOS-Font-Header-Start . 526 

TOS-Font-Pointer . 523 

TOS-Index . 263 

TOS-Index leeen . 311 

TOS-Stauerseichen. 83 

TOS-Versionsdatum. 398 

Total-Abeturs . 406 

TOUCHEXIT . 646, 688 

TPA . 409 

Traca-Modus ein-/ausschalten. 434 

Trace-Modus in Prosedur lenken . 436 

TRACE-Routine . 214 

Track . 630 

Track-Daten . 626 

Transient-Program-Area . 409 

Transmitter-Status . 647 

TRANSPARENT. 266 

Transparent-Flag . 416 

TRAPV-Routine . 214 

Treiber . 499 

Trennfunktion (-seichen) . 226 

Trennsaichenposition . 401 

TTP-Programmen . 674 
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Turtla-Koiiunuido« . 281 

Turtle-Poaition . 281 

Turtlc-Statu« . 283 

Typ«n-lnd«x . 887 

Typenraddnickar . 664 

Ub_coda. 506 

Ub_p»nn. 606 

UhrMit . 106, 106 

Uhrscit dar Datai-Eratallung . 635 

Uhnait ainatallan. 300 

Umfaaaungabox-Box . 612 

Umkrauradiua. 238 

Umlauta. 227 

Umrandungi-Flag . 602 

Umrachnungataballa . 260 

Umrachnungataballan . 312 

Umachalttaata. 73, 660, 607 

Umachalttaatan- und Maus-Status armittaln . 660 

Umschalttastan-Status . 420, 422, 661 

Umwandlung in Grad . 237 

Umwandlung in Radian (Boganmafi) . 230 

Unbadingtar Sprung su ainam Labal. 202 

Undarlinad . 604 

Undarscora. 641 

Untar-Badingungsabfraga. 160 

Untar-Inhaltsvarsaichnis . 616 

Untar-Struktur. 686 

Untar-Untar-Strukturan . 601 

Untar-Varsaichnis . 460, 636 

Untarobjakt-Koordinatan . 600 

Untarordnar. 06 

Untarstrukturan . 660 

Unwahr-Konstanta. 448 

Unwahrhaitswart . 166 

Unwihlbar . 680 

UPARROW . 477 

Updata. 126 

Upparcasa . 227 

UsarModa . 610 

Usar-Baraich . 107 

Usar-Batriab. 612 

Usar-Modus . 380 

Usar-Routina . 610, 506, 606 

Usar-Stack-Pointar . 406 

Usarstack-Inhalt. 612 

Utilitias. 348, 618 

Obargabavariablan . 301 

Obarlappung iwaiar Rachtecke . 322 

Obarlappungan . 473 

V_slida. 662 

Variabla auf Adrassa satsan . 364 

Variablan-Adraasa armittaln in V3.0 . 302 

Variablan-Pointar . 380 

Variablan-Varfolgung. 437 

Variablan/Faldar/Pointar tauschen . 461 

Variableninhalta/Naman ausgaben . 430 

Variablantyp armittaln . 416 
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VuiabUnyp. 716 

Variabiansaigar. 40 

Vario-RAM-Kartai . 666 

VBI-Quaua . S73 

VBL-Quaua . BIT 

VBL-Routinan . 510, 650 

VBL-Routinanliata . 66S 

VBL-Synchronuation . 337 

VBL-Vaktor . 516, 510 

Vbl_Uat . 375 

Vbiquaua . 375 

VDI - KontroUblock . 508 

VDI-Eacapaa . 413 

VDI-Farbragiatar ainatallen. 370 

VDI-Grafik-Grundfunktionan . 417 

VDI-Handla. 503 

VDI-Handla dar akt. Workstation. 603 

VDI-Handla u. ZaichanmaBa armittaln . 560 

VDI-Indax laaan . 311 

VDI-Intagar-Input-Block . 600 

VDI-Intagar-Output-Block. 600 

VDI-Kannung . 514 

VDI-Paramatar . 603 

VDI-Punkt-Input-Block . 601 

VDI-Punkt-Output-Block . 601 

VDI-Ragistar. 366 

VDI-Routinan aufrufan . 618 

VDI-Timar-Intamipt . 630 

VDI-Varwaltungsblock. 603 

VDI-Workstation . 560 

Vaktor . 50 

Varglaichsoparatoran . 57 

VargrOBarungsfaktor. 415 

Varify . 658 

Varklainartar Zaichansats . 503 

VarknOpfungs-Maska . 361 

VarknUpfungifunktionan . 341 

VarknOpfungsmodi . 37, 330 

Varachachtaln . 44 

Varatackta (hiddan) Datai . 616 

Varatackta Datai . 105 

Varatackta Saktoran. 640 

Vartikal-Blank-Intarruptroutinan . 650 

Vartikal-Blank . 337 

Vartikala Synchronisation . 338 

Vartikalschiabar. 477, 577, 578 

VarsamingsmaB. 440 

Vanwaigung bai Fahlar . 407 

Varawaigung au ainar PROCEDURE in V3.0 . 334 

Varawaigung aur Eraigniafaatstaliung. 403 

Varawaigungskritarian . 173 

Vidao-Kontroll-Chip. 36 

VIDEO-Port . 136 

Vidao-Port = Monitor. 135 

Vidao-RAM. 380, 660 

Vidao-Shiltar. 366, 633 

Virtual_Workstation Öffnan/Paramatar aataan . 505 

Virtual_Workatation achliaBan. 504 

Virtualla Datai. 136 
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Virtueller Druckkopf . 147 

Vordergrundfarbe . S61 

Vorkomma-Anteü . 231 

Voneichen ermitteln . 336 

Voneichenloe. 232, 244 

Vorseichenloeee LO-Byte(-Word) einet Wertes liefern . 244 

VSLIDE-Balken . 477 

Wagenrücklauf . 69 

Wahr-Konstante . 460 

Wahrheitswert . 47, 68, 166 

Wechseltasten-Status . 493 

Weitere Datei suchen . 108 

Wert auf 33 Bit erweitern. 349 

Werte-Eingaben . 417 

Wertepaare. 336 

Wertetabelle . 60 

Wiedergabe gespeicherter Ereignisse . 649 

Wiederholungsrate der Tastatur. 666 

Wildcard. 673 

Wüdcards . 94 

Window-Attribute . 478 

Window-Bereich. 666, 667 

Window-Handle . 676 

Window-Nummer. 478 

Window-Redraw . 320, 322, 679 

Window-Verwaltungsdaten . 476 

Window-X,Y-Koordinaten . 478 

WM_ARROWED . 491 

WM_CLOSED . 491 

WM_FULLED . 491 

WM_HSLID . 492 

WM_MOVED . 492 

WM_NEWTOP . 492 

WM_REDRAW . 491 

WM_SELECTED . 491 

WM_SIZED . 492 

WM_TOPPED . 491 

WM_VSLID . 492 

Word-Position des Mausseigers. 367 

Workstation . 499, 606 

Workstation Offnen/Parameter setsen . 607 

Workstation schlie^n . 606 

Workstation-Infos . 413 

Workstation-Puffer ausgeben . 611 

Workstation-Puffer löschen. 604 

Wortabstknde . 279 

Wursel-Funktion . 235 

Wursel-Objekt . 648 

Wurselobjekt . 686, 688 

X-Auflösungsteiler . 81, 274 

X-Teiler . 201 

XBIOS-Fehlermeldungen . 622 

XBIOS-Routinen aufrufen. 632 

XON/XOFF . 626 

XOR . 38, 229 

XOR (EXCLUSIV ODER) . 266 

XOR-Modus . 66, 249 
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Y-Auflö«ungfteiler . 274 

Y-T*U«r . 201 

Yunaha-Sound-Chip . 181 

Zahl auf 'cerade* testen . 233 

Zahl auf ’ungerade* testen . 234 

Zählschleife. 156 

Zeichen links vom Cursor löschen . 76 

Zeichen unter dem Cursor löschen . 76 

Zeichen(kette) in einem String rOckwärts suchen . 226 

Zeichenlkettej in einem String suchen. 222 

Zaichen(kette) links-, rechtsbündig einsetsen . 221 

Zeichenbox . 290 

ZeichenboxmaBe . 660 

Zeichenboxbreite (-höhe). 620 

Zeichenbreite . 415, 417, 620 

Zeichenhöhe. 415, 417, 620 

Zeichenketteneingabe . 70 

Zeichenkettenvariable(n) deklarieren . 102 

Zeichenkoordinaten . 670 

Zeichenorientierte Koordinaten . 500 

Zeichenrichtung. 286 

Zeichensats-Block . 514 

Zeichensttse .416, 490 

Zeichnen/LOschen einer Menüleiste . 563 

Zeiger auf die Font-Daten . 604 

Zeiger-Tabelle . 214 

Zeile ab Cursor löschen. 621 

Zeilen-Sequens . 438 

Zeilenanseige . 438 

Zeilentrennseichen . 80 

Zeilenüberlauf. 88, 442 

Zeilenvorschub . 60 

Zeit-Zähler. 403 

Zeitlupen-Queue . 373 

Ziel-Objekt . 666 

Ziel-Track . 625 

Zielraster . 360, 361 

Zielrechteck . 569, 562 

Zufallswert. 250 

Zufallssahlengenerator initialisieren . 250 

Zugrifbmodus. 126 

Zweierkomplement. 47 














































In der Regel klappt sie phantastisch, die Arbeit mit dem Computer. 
Und für Zweifelsfälle hat man Ja bereits eine ansehnliche Bibiiothek 
nützlicher Literatur. Doch immer wieder - mitten in der Arbeit - 
passiert es: Man sucht nach einem bestimmten Kommando. Irgend¬ 
wo im Handbuch, oder stand es in einem Computermagazin... 

Der Arbeitsfluß ist unterbrochen. Man versucht sich zu erinnern, 
durchwühlt den riesigen Literaturberg, sucht einen Hinweis. HILFE. 
Genau die bekommen Sie von den neuen DATA BECKER Führern. 
Ein gezielter Griff und Sie haben die gewünschte Information. 

Hier finden Sie umfassend alles auf einem Blick. Zu Ihrem Rechner 
oder auch zur entsprechenden Software. Das sind die ersten DATA 
Becker Führer: 



Der DATA BECKER Führer Der DATA BECKER Führer 
zu Signum zum Gf A-Basic 

144 Seiten, 29,80 DM 254 Seiten, 

ISBN 3-89011-443-1 DM24,80 

Wie gesagt, dies ist erst der Anfang. Weitere DATA BECKER Führer 
werden folgen: First Word/First Lektor, C16, CRC. Wordstar, MS-DOS 
und, und, und. Immer aktuell, übersichtlich und hilfreich. Immer im 
gleichen Gewand: Robustes Hardcover im handlichen Westentaschen¬ 
format. Und immer gleich strukturiert: Alle Befehle und Funktionen 
nach Sachgruppen, alphabetisch mit Kurzsyntax und über Stichworte 
geordnet. Egal, wie sich Ihr Problem darstellt, mit einem Blick in den 
DATA Becker Führer ist es bereits gelöst. 











Bücher zum Atari ST 


Dieses Buch möchte vermeiden, daß beim Programmieren das 
Rad noch einmal erfunden werden muß. Struktogramme zu Stan¬ 
dard-Algorithmen und einführende Erläuterungen fügen sich zu 
einem Nachschlagewerk zusammen, mit dem sowohl Anfänger 
als auch Fortgeschrittene zurechtkommen. Zu den möglichst por¬ 
tabel gehaltenen Algorithmen kommen in einem zweiten Teil nützli¬ 
che Tools für den ST. Gleichzeitig bietet dieses Buch einen Einstieg 
in das neue GFA-BASIC Version 3.0, eine komplett dokumentierte 
AES-Liste der neu hinzugekommenen AES-Bibliothek sowie eine 
Gegenüberstellung der Befehle GFA V2.0 und V3.0, um Ihnen die 
Anpassung Ihrer alten Programme zu erleichtern. 


Dos große 

GFA-Progrommier- 

Hondbudi 



GFA 2.0 
GFA 3.0 



Aus dem Inhalt: 

- Einführung in die Benutzung von 
Struktogrammen 

- Textverarbeitung: Platter- und 
Blocksatz, Silbentrennung, 
Wordwrap 

- Datenverarbeitung: Sequentielle, 
Index-Sequentielle und Random- 
Access-Dateien 

- Grafik: Vektorgrafik, Drehen, 
Spiegeln und Verschieben von 
Objekten, Barcodes 

- Mathematik: Matrizenrechnung, 
Nullstellen, Integral- und 
Differentialrechnung, Finanzmathe¬ 
matik, Zahlensysteme, Statistik 

- Kalenderberechnung 

- Strategie-Algorithmen 

- Tools: Automatisches Backup, 
REM-Killer, Diagramme, 
3-D-Funktionsplotter 

- GFAV3.0: AES-Liste, Befehlsliste 
GFAV2.0-V3.0 


Liesert, Linden 

Das große GFA-Programmier-Handbuch 
Tools & Algorithmen 
Hardcover, 480 Seiten, DM 59,- 
ISBN 3-89011-258-7 



Bücher zum ATARI ST 


Die Grafikfähigkeiten des ST gezielt für eigene Anwendungen 
einsetzen - dieses Buch zeigt Ihnen, wie es geht. Mit den vie¬ 
len Beispielprogrammen in GFA-BASIC, C und Assembler, 
deren Source-Code komplett auf der Diskette zum Buch mit¬ 
geliefert wird, bestimmen Sie den Schwierigkeitsgrad selbst. 
So ist Ihr Erfolg vorprogrammiert. 



Aus dem Inhalt: 

- Bildschirmfenster und Grafikausgaben 

- Grundlegende Grafikroutinen 

- Mausverwaltung 

- Sprite-Programmierung 

- Poster-Hardcopy 

- 3-D-Grafik und CAD 

- Bewegte Bilder in 3-D 

- Laufschriften 

- Spiele 

- Funktionsdarstellungen 

- Busineß-Grafik 

- Statistik 

- GDOS und Metafiles 

- Trickfilmproduktion mit Super-8 und Video 

- Grafikmanipulationen 

- Programmierung des Rasterzeileninterrupt 

- Flackerfreie Animation 

- Anschluß fremder Monitore 

- Ein-/Ausgabe von Grafiken auf Diskette 

- Druckeransteuerung 

- Viele Grafikalgorithmen 


Plenge 

Das Supergrafik-Buch zum Atari ST 
838 Seiten, DM 69,- 
ISBN 3-89011-004-5 



Bücher zum ATARI ST 


Mit diesem Buch wird Ihnen die Erstellung von 3-D-Grafiken 
leichtgemacht. Von der Einführung in die nötige Theorie über 
ein komfortables Grafikprogramm in GFA-BASIC und C bis 
hin zur Formulierung von Grafikroutinen in Assembler 
beschreibt dieses Buch alles, was Sie über die 3-D-Grafikpro- 
grammierung wissen müssen. Im Assembler-Teil lernen Sie 
spezielle Grafikroutinen kennen, die schneller sind als alles 
bisher Dagewesene. Da wird Echtzeitanimation erst möglich. 
Ein echtes Buch für Profis! 



Aus dem Inhalt: 

- Transformation in der Ebene und im 
dreidimensionalen Raum 

- Projektion aus dem Raum in die 
zweidimensionale Ebene 

- Entfernung der verdeckten Linien 

- Manipulation der verdeckten Flächen 

- Bildschirmmanipulation in 
Maschinensprache 

- Datenstrukturierung zur Beschreibung 
eines Objektes im Raum 

- Erzeugung von Rotationskörpern 

- Definition von mehreren Objekten für 
Zeichentrickfilme 

- Licht- und Schatteneffekte 

- Komfortabler Objekteditor 


Braun 

3-D-Grafikprogrammierung 
602 Seiten, DM 69,- 
ISBN 3-89011-189-0 



Bücher zum Atari ST 


Dieser INTERN-Band ist das Standardbuch zur Programmie¬ 
rung der Atari-ST-Computer. Sie finden alle Informationen 
zum Aufbau und zur Funktion Ihres Rechners, die zur profes¬ 
sionellen Programmierung unentbehrlich sind. 



Aus dem Inhalt: 

- Der 68000-Prozessor 

- Funktion der Custom-Chips 

- DerBlitter 

- Der I/O-Controller MFP 68901 

- Der Soundgenerator YM-2149 

- Der Tastaturprozessor 6301 und 
seine Befehle 

- Alles über die Schnittstellen des ST 

- Memorymap des Atari ST 

- Die Systemvariablen und ihre 
Bedeutung 

- WasistGEMDOS 

- Die Aufgabe von BIOS und XBIOS 

- Grafikprogrammierung des Atari ST 

- Dokumentiertes BIOS-ROM-Usting 

- Tabellen zum schnellen Nachschla¬ 
gen GEMDOS, BIOS. XBIOS 


Brückmann, Englisch, Gerits 
Atari ST Intern 
637 Seiten, DM 69,- 
ISBN 3-89011-119-x 



Bücher zum Atari ST 


Der Mega ST, das Flaggschiff von Atari, verfügt über eine Vielzahl 
von Anwendungsmöglichkeiten, die sich u. a. aus dem extrem gro¬ 
ßen Arbeitsspeicher dieses Rechners ergeben. Insbesondere in 
den Bereichen Desktop Publishing (DTP) und Programmierung 
erweist sich der Mega ST als vielseitig und anderen Geräten weit 
überlegen. In diesem Buch gehen die Autoren ausführlich auf die 
Möglichkeiten dieses Rechners ein und weisen darüber hinaus auf 
alle technischen Einzelheiten hin, deren Kenntnis für jeden Mega- 
ST-Besitzer unerläßlich ist. Besonders interessant ist es für alle, 
die das dokumentierte Blitter-TOS für die eigene Programment¬ 
wicklung nutzen wollen. 


Aus dem Inhalt: 

- Die Bedienung und die Handhabung 
des Mega ST 

- Die Software für den Mega ST 
(Textverarbeitungen, Datenbanken, 
Tabellenkalkulationen usw.) 

- Desktop Publishing mit dem Mega 
ST (Beckerpage ST usw.) 

- Die Programmierung des Mega ST 
(AES, VDI, BIOS, XBIOS, GEMDOS 
usw.) 

- Die Periphierie des Mega ST 
(Festplatte, Laserdrucker usw.) 

- Der Aubau des Rechners 

- Die Nutzung des großen 
RAM-Speichers - RAM-Disk bis 3,5 
MByte mit Autokonfiguration 

- Nützliche Beispielprogramme und 
ein ausführlich dokumentiertes 
Blitter-TOS-Listing 



Dittrich, Englisch, Severin 
Das große Mega ST Buch 
Hardcover, 512 Seiten, DM 69,- 
ISBN 3-89011-196-3 




DAS STEHT DRIN: 

Endlich gibt es GFAV3.0! Zu diesem umfangreichen BASIC gehört auch 
ein umfangreiches Buch, in dem detailliert jeder Befehl behandelt wird. 
Dabei liefert es keine nackte Befehlsübersicht, sondern wirklich brauch¬ 
bares Material in Hülle und Fülle. Anhand zahlreicher Beispielprogramme 
lernen Sie dieses leistungsfähige BASIC spielend zu beherrschen. 

Aus dem Inhalt; 

- Das Editor-Menü 

- Variablentypen und -Organisation 

- Diskettenoperationen 

- Strukturierte Programmierung 

- Mausabfrage in eigenen Programmen 

- Sound-Programmierung 

- Beschreibung des Resource-Construction-Set 

- Verwendung von Multitasking-Befehlen 

- Programmieren von Pull-Down-Menüs 

- Abfrage von Ereignissen (Events) 

- Window-Programmierung 

- Zugriff auf GEMDOS, BIOS und XBIOS 

- Komplette AES- und VDI-Ubrary-Beschreibung 

- Verwenden eigener Fonts mit GDOS 

- Eine komplette Adressenverwaltung als RAM-Kartei 

- Komplette Befehlsübersicht über alle Befehle des GFA-BASIC 

UND QESCHRIEBEN HABEN DIESES BUCH: 

Uwe Litzkendorf, Student der Architektur, ist erfahrener Programmierer 
und arbeitet seit langem mit GFA-BASIC. Mit diesem Buch erscheint 
bereits sein dritter Titel zu diesem Thema. 


ISB N 3-89011-222-6 DM -1-049.00 

04900 


DM 49,- 
ÖS 382,- 
sFr 47,- 
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* DATA BECKER 
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DIE DISKETTE IM BUCH 


Eiest.el 1 -Nr. 
Serien-Nr, 


Jad« von un« nicht «utorimiarto Woitargabo 
dam Prograaaa (Varlalh, Tauaeh, Varkau^> 
i«t untaraagt 



Scan von TP AU 







